非常感谢leolan(史留香),后半段的问题解决了。如何可以象design time 那样新加入这些元件呢?
//如何可以象design time 那样新加入这些元件呢?用controls.add
---- 怎 样 用 控 件 拖 放 表 单 呢 ? 很 简 单, 将 这 段 代 码 插 入 到Declare 部 分。 Declare Function ReleaseCapture Lib "user32" () As Long Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 再 在 控 制 的Mousedown 事 件 中 插 入: Sub Command1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Dim Ret& ReleaseCapture Ret& = SendMessage(Me.hWnd, &H112, &HF012, 0) End Sub
如果没人顶,帖子就沉到海底了,就没有人回答了.
我们也是对这个帖子感兴趣才顶的,这样可以从我参与问题中找到这个帖子,这也叫做Mark!
可能实现你的要求
http://www.china-askpro.com/msg2/qa01.shtml
Declare Function ReleaseCapture Lib "user32" () As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
再 在 控 制 的Mousedown 事 件 中 插 入:
Sub Command1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Ret&
ReleaseCapture
Ret& = SendMessage(Me.hWnd, &H112, &HF012, 0)
End Sub