- 博客(5)
- 资源 (1)
- 收藏
- 关注
原创 把某一窗口带到最前
Private Declare Sub SwitchToThisWindow Lib "user32" (ByVal hwnd As Long, ByVal bRestore As Long)Private Declare Function GetForegroundWindow Lib "user32" () As LongDim lngCount As LongPrivat
2005-06-19 18:21:00 1070
原创 子类化任何对象
Subclass Any HWNDms-help://MS.VSCC.2003/MS.MSDNQTR.2003FEB.2052/enu_kbvbnetkb/en-us/vbnetkb/Q311317.htmPublic Class SubclassHWND Inherits NativeWindow Const WM_RBUTTONDOWN = &H204
2005-06-19 18:20:00 849
原创 得到并设置输入法
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim objLang As InputLanguage For Each objLang In InputLanguage.InstalledInputLanguages
2005-06-19 18:17:00 983
原创 移动没有标题的FORM
Private Const WM_NCHITTEST As Integer = &H84Private Const HTCLIENT As Integer = &H1Private Const HTCAPTION As Integer = &H2 Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Messag
2005-06-19 18:16:00 697
原创 选择用户组
Option ExplicitPrivate Const NERR_SUCCESS As Long = 0&Private Const OPENUSERBROWSER_INCLUDE_SYSTEM As Long = &H10000Private Const OPENUSERBROWSER_SINGLE_SEL
2005-06-19 18:09:00 1050
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人