怎麽用vb做壹個窗口隨鼠標移動而移動

像樓上說的那樣 用時鐘 獲取鼠標位置 然後將鼠標直接賦值給窗口的坐標 代碼： Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long '先調用GetCursorPos函數，用來獲取鼠標坐標的 Private Type POINTAPI x As Long y As Long End Type Dim pos As POINTAPI Private Sub Form_Load() Timer1.Interval = 10 End Sub Private Sub Timer1_Timer() GetCursorPos pos Form1.Top = pos.y * Screen.TwipsPerPixelY '直接將獲取的鼠標坐標通過TIMER控件實時賦給窗口坐標 Form1.Left = pos.x * Screen.TwipsPerPixelX End Sub 望采納。。

上一篇:java的WebService最大的好處是什麽,最多的使用場合是什麽?

下一篇:微信社群運營方案