7492
社区成员
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
叶帆 2003-05-13
’这种拖动效果好
Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const WM_NCLBUTTONUP = &HA2
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 Long) As Long
Dim G_Index As Integer
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
X = ReleaseCapture()
Call SendMessage(Picture1.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.MousePointer = 5
End Sub
Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const WM_NCLBUTTONUP = &HA2
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 Long) As Long
Dim G_Index As Integer
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
X = ReleaseCapture()
Call SendMessage(Picture1.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.MousePointer = 5
End Sub
LoveBH 2003-05-12
设计方法：
把要在窗体间拖动的控件分别放置在两个窗体上，且使它们的外观完全相同。当在窗体间拖动该控件时，则将源窗体中的控件置为不可见，将目标窗体中的控件置为可见，这样就好像控件真的被拖动了一样。
代码如下
窗体1
Option Explicit
Dim dragx As Single
Dim dragy As Single
Const BEGIN_DRAG = 1
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
'如果所拖动的控件名称为"Command1"
If Source.Name = "Command1" Then
'将控件移动到指针所在位置
Command1.Move (X - dragx), (Y - dragy)
'控制
Command1.Visible = True
form2.Command1.Visible = False
End If
End Sub
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'记录指针在控件上的位置
dragx = X
dragy = Y
'开始拖动
Command1.Drag BEGIN_DRAG
End Sub
'在窗体加载是同时显示窗体form2
Private Sub Form_Load()
form2.Show
form2.Command1.Visible = False
End Sub
窗体2
Option Explicit
Dim dragx As Single
Dim dragy As Single
Const BEGIN_DRAG = 1
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
'如果所拖动的控件名称为"Command1"
If Source.Name = "Command1" Then
'将控件移动到指针所在位置
Command1.Move (X - dragx), (Y - dragy)
'控制
Command1.Visible = True
form1.Command1.Visible = False
End If
End Sub
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'记录指针在控件上的位置
dragx = X
dragy = Y
'开始拖动
Command1.Drag BEGIN_DRAG
End Sub
欢迎光临电脑爱好者论坛 bbs.cfanclub.net
把要在窗体间拖动的控件分别放置在两个窗体上，且使它们的外观完全相同。当在窗体间拖动该控件时，则将源窗体中的控件置为不可见，将目标窗体中的控件置为可见，这样就好像控件真的被拖动了一样。
代码如下
窗体1
Option Explicit
Dim dragx As Single
Dim dragy As Single
Const BEGIN_DRAG = 1
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
'如果所拖动的控件名称为"Command1"
If Source.Name = "Command1" Then
'将控件移动到指针所在位置
Command1.Move (X - dragx), (Y - dragy)
'控制
Command1.Visible = True
form2.Command1.Visible = False
End If
End Sub
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'记录指针在控件上的位置
dragx = X
dragy = Y
'开始拖动
Command1.Drag BEGIN_DRAG
End Sub
'在窗体加载是同时显示窗体form2
Private Sub Form_Load()
form2.Show
form2.Command1.Visible = False
End Sub
窗体2
Option Explicit
Dim dragx As Single
Dim dragy As Single
Const BEGIN_DRAG = 1
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
'如果所拖动的控件名称为"Command1"
If Source.Name = "Command1" Then
'将控件移动到指针所在位置
Command1.Move (X - dragx), (Y - dragy)
'控制
Command1.Visible = True
form1.Command1.Visible = False
End If
End Sub
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'记录指针在控件上的位置
dragx = X
dragy = Y
'开始拖动
Command1.Drag BEGIN_DRAG
End Sub
欢迎光临电脑爱好者论坛 bbs.cfanclub.net
C# 在窗体上可拖动控件 C# 在窗体上可拖动控件 最近做了一个标签打印配置功能，需要根据客户需求自定义标签格式、显示内容，这时就用到了后台生成控件，并且其控件可在窗口中进行拖动，这里仅为记录一下实现过程，方便...
winform窗体自由拖拽控件 实现功能：实现自由拖拽控件，按住鼠标控件拖拽时有黑框显示，松开鼠标控件位置即为黑框位置 实现思路：在按住鼠标时，得到所点击控件的Size以及Location，在鼠标移动时，得到鼠标的坐标，并且在光标坐标处绘制一个...
Delphi仿IDE的窗体控件拖动及改变大小 Delphi仿IDE的窗体控件拖动及改变大小，也就是说这是个用Delphi写的程序，模拟Delphi7编辑器的控件元素放置、拖动、改变大小的功能，在本程序的运行界面上，你只需单击鼠标就可以动态添加一个按钮元素，并在按钮的...
C#点击、拖动某一控件来拖动整个窗体 [DllImport("user32.dll")] public static extern bool ReleaseCapture(); [DllImport("user32.dll")] public static extern bool SendMessage(IntPtr hwnd, int wMsg, int wParam, int lP...
