#t#VB.NET经过长时间的发展，很多用户都很了解VB.NET窗体标题栏了，这里我发表一下个人理解，和大家讨论讨论。VB.NET做为VB6的升级版本，具备了许多新的功能，它可以简便快捷地创建 .NET 应用程序（包括 XML Web services 和 ASP.NET Web 应用程序），还是一个功能强大的面向对象的编程语言（如继承、接口和重载）。新的语言功能包括自由线程处理和结构化异常处理。VB.NET 还完全集成了.NET 框架和公共语言运行库，.NET 框架和公共语言运行库共同提供语言互操作性、垃圾回收、增强的安全性和改进的版本支持。可以说是一个划时代的产品！
无标题栏的窗体的拖动问题，在特殊窗体的应用中，我们有时需要把VB.NET窗体标题栏屏蔽掉，以窗体换上自己的外壳。是，当去掉了VB.NET窗体标题栏后，移动窗体就成了一个问题。我们还是来看一下在VB6中的实现，VB6中实现（借助API函数SendMessage）在设计时将窗体的BorderStyle属性设置为0-none
- PrivateDeclareFunction SendMessage Lib "User32" Alias "SendMessageA"
(ByVal hWnd AsLong, ByVal wMsg AsLong, ByVal wParam AsLong, ByVal lParam As Any) AsLong- PrivateDeclareSub ReleaseCapture Lib "User32" ()
- Const WM_NCLBUTTONDOWN = &HA1
- Const HTCAPTION = 2
- Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
- Dim lngReturnValue AsLong
- If Button = 1 Then
- 'Release capture
- Call ReleaseCapture()
- 'Send a 'left mouse button down on caption'-message to our form
- lngReturnValue = SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
- EndIf
- EndSub
- PrivateSub Form_Paint()
- Me.Print("Click on the form, hold the mouse button and drag it")
- EndSub
在VB.NET窗体标题栏中，这次需要借助API SendMessage了，在设计时将Form.FormBorderStyle 属性设置为None，然后添加以下代码：
- DeclareFunction SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hwnd AsInteger, ByVal wMsg AsInteger, ByVal wParam AsInteger,
ByVal lParam AsInteger) AsInteger- PrivateDeclareSub ReleaseCapture Lib "User32" ()
- Const WM_NCLBUTTONDOWN = &HA1
- Const HTCAPTION = 2
- PrivateSub Form1_MouseDown(ByVal sender AsObject,
ByVal e As System.Windows.Forms.MouseEventArgs) HandlesMyBase.MouseDown- ReleaseCapture()
- SendMessage(Me.Handle.ToInt64, WM_NCLBUTTONDOWN, HTCAPTION, 0)
- EndSub
