VB的窗体问题

Temppktemp

高手们：
　　好！小弟求教一个关于VB窗体的问题，我把一个窗体即Form的BorderStyle变为None，这样就看不到标题和最大最小按钮，但在运行时我想移动之个窗体却不行，要如果在BorderStyle = None时，还可以移动窗体呢？？
      望高手们指教!

fantong

我晕．容易的不行．

fantong

1.在窗体中声明一下:
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1
创建一个Image．＂用来拖动．里面可以放一个自己的标题栏．用来模拟标题拦

fantong

Private Sub Image_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)＇拖动事件．如果把Image换成morm可以直接拖动窗体．
If Button = 1 Then
ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End If
End Sub

Temppktemp

真的可以！大侠多谢了！