程序运行后,怎么用鼠标托着一个标签控件在一个picture控件里移动阿?
解决方案 »
- 怎样让 CommonDialog 的 Save as 对话框不能更改保存文件的路径?
- VB中调用DTS模块报错
- vb读取EXCEL问题
- 我也不知道这个问题怎么问,具体看一下吧,谢谢
- 急急急,关于 listView 行的选定问题!
- 还是那个问题,把100*100的图片改成120*120的图片,但是,不能让用户看到这个过程。
- 高分求助,关于一个程序的错误问题,大家请进阿
- 50分请大家看看http://www.csdn.net/Expert/TopicView1.asp?id=910123,给点意见!
- 求助一个老问题:xmlhttp中文处理
- 今天也很高兴,送分!截止17:30。
- 答对有分
- 关于工程的打开问题!
Dim x0 As Single, y0 As SinglePrivate Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 1 Then Exit Sub
x0 = X
y0 = Y
Label1.Drag vbBeginDrag
End SubPrivate Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
Label1.Left = X - x0
Label1.Top = Y - y0
End Sub