vb中command控件怎样实现:鼠标点击后跟着鼠标移动?

显示全部楼层 · 2007-8-16 11:35:03

不对的，用图片控件做棋子要好得多！自己可以定义坐标，判断你点击的坐标，用MOVE方法移动棋子。

千问 · 2007-8-16 11:35:03

以上没有一个是确切的要command1与form配合起来用,包你鼠标到哪里,command1到那里.我有现成的程序代码.不过只提供给朋友.

千问 · 2007-8-16 11:35:03

Dim Xx, YyPrivate Sub command1_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)If Button = 1 ThenXx = XYy = yEnd IfEnd SubPrivate Sub command1_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)If Button = 1 ThenCommand1.Left = X - Xx + Command1.LeftCommand1.Top = y - Yy + Command1.TopEnd IfEnd Sub好吧，我也加一种Dim Xx, YyPrivate Sub command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenCommand1.Left = X - Xx + Command1.LeftCommand1.Top = y - Yy + Command1.TopElseXx=xYy=yEnd IfEnd Sub

千问 · 2007-8-16 11:35:03

Private Sub Command1_DragDrop(Source As Control, X As Single, Y As Single)Source.Move (X - Source.Width / 2), (Y - Source.Height / 2)End SubPrivate Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Command1.Drag 1End SubPrivate Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Command1.Drag 2End Sub