VB.Net
jinta2001
这个作者很懒,什么都没留下…
展开
-
得到并设置输入法
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 · 962 阅读 · 0 评论 -
移动没有标题的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 · 684 阅读 · 0 评论 -
子类化任何对象
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 · 832 阅读 · 0 评论