当按住鼠标左键时
可以将控件拖动到新的位置
担任最好在鼠标下面有控件的一个影子
谢谢大家了
可以将控件拖动到新的位置
担任最好在鼠标下面有控件的一个影子
谢谢大家了
解决方案 »
- 请问vb2005中有网格的控件吗?
- 哪个前辈帮我看看这个vb程序的错误在哪?
- 如何用vb在word文档的最后一页的最后一行写字符
- 请教高手怎么实现inputbox的挂起效果
- 怎麽確定數據庫中有無某張表的存在嗎???
- 急救!!! 出现的错误请高手解决。。。。。
- 如何在picturebox上画一五角星,并填充颜色???(很急,请指教!)
- 如何在VB中将窗体上的BarCodeCtrl1条形码图传到datareport报表中打印出来???
- 求助:关于vb画动态曲线图问题!!!!
- 讨论:你是否会用专门的Flash播放器/浏览器来观看Flash动画?为什么?回答最佳者给10分。
- 有很多分等你拿哦,EXCEL的問題
- 拜师!!!
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 WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
'以上API函数和常数的声明可在VB自带的“API 浏览器”中找到
'拖动窗体
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Call ReleaseCapture
Call SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
End If
End Sub
'拖动picturebox
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Call ReleaseCapture
Call SendMessage(Me.Picture1.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
End If
End Sub