如何在在窗体间拖动控件

2003-05-12 09:07:45 140 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Visual Studio 设置窗体控件，随窗体拖动变化大小前几天做NCRE项目的时候遇到了问题，项目的目的是这样的：考生在使用的过程中，更想通过拖动主窗体放到合适的位置，来方便自己答题。那么问题来了~~~ 问题重现就原来的项目窗体来看，举个例子来说，窗体原来是这个样子的：下面来看运行后，如果我想要拖动窗体，拖动之后的效果：修改过程开始并不知道如何解决这个问题阅读详情

可将Command1按钮在窗体内拖动，也可将其拖动到另一个窗体中。

...全文

通过鼠标任意拖动.NET Winform窗体中的控件在Winform窗体中通过鼠标拖动，改变控件的位置。在拖动过程中，跟随鼠标显示一个与被拖动控件大小一样的黑框，用以模拟拖动效果。如下图：以下是源代码。这里拖动了一个Button控件。如果需要，还可以在拖动时改变光标。using System;using System.Collections.Generic;using System.ComponentModel;us 阅读详情

gougou1

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

刘洪峰AIoT 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

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

如何在 在窗体间拖动控件

相关推荐

如何在在窗体间拖动控件