- 註冊時間
- 2006-5-8
- 最後登錄
- 2024-11-16
- 主題
- 查看
- 積分
- 206
- 閱讀權限
- 50
- 文章
- 329
- 相冊
- 0
- 日誌
- 9
 
狀態︰
離線 
|
本帖最後由 students1 於 2016-7-28 11:42 編輯
請問一下為什麼我拖曳我的表格控制項,如果拖曳到重疊其他的控制項時會完成無法拖曳
要怎樣解決即使重疊還是一樣可以拖曳勒該位置
程式碼如下:
Dim Move_Command As Integer '拖曳MSFlexGridS控件
Dim xx As Long, yy As Long '拖曳MSFlexGridS控件
Private Sub Command1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
Command1(Index).ZOrder
Move_Command = Index
Command1(Index).Drag vbBeginDrag
xx = x: yy = y
End Sub
Private Sub Form_DragDrop(Source As Control, x As Single, y As Single)
Command1(Move_Command).Move x - xx, y - yy
End Sub
http://www.vbgood.com/forum.php?mod=attachment&aid=NTEzMTd8YTcwNTZhMjB8MTQ2OTY3Njk5MXwxNTQxNTl8MTUxMjQ2 |
|
發表於 2016-7-28 11:39:16
