注册拖放控件

Ⅰ 怎样在VB中设置一个可以拖动的控件

在窗口放一个按钮，在复制下面代码运行测试ok！！！

Dimxx,yy,ax,ayAsLong
PrivateSubCommand1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=2Then
xx=X
yy=Y
EndIf
EndSub
PrivateSubCommand1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=2Then
ax=Command1.Left+X
ay=Command1.Top+Y
Command1.Top=ay-yy
Command1.Left=ax-xx
EndIf
EndSub
PrivateSubCommand1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1ThenPrint"你点击了按钮了"
IfButton=2ThenPrint"你移动按钮了"
EndSub
PrivateSubForm_Load()
Command1.Caption="鼠标左键点击，鼠标右键移动"
EndSub

Ⅱ vs2010窗体拖放控件

你可以看一下是不是项目创错了 一般不会出现这种情况 再不然就重装vs

Ⅲ java 控件拖动~~~~~~~~

1>super.setLayout(null);

2>label>加事件监听

思想是

鼠标松开时候,记录鼠标的point,

判断是否到了容器边界外,

如果没到,就把控件位置设为鼠标的point,

但是问题是,定位不准,如果要精准的话,

还需要记录鼠标在label上的相对坐标,

然后运算后再确定拖动后label的新坐标!

建议你自己多想想,自己写代码,

不然你学编程干什么吗.......

Ⅳ 易语言拖放控件问题

在启动的时候注册了拖放控件
不需要撤销注册，一直可以用，关闭软件的时候再撤销

Ⅳ C#中怎么样实现控件拖放

你的这个问题有点不太正确!
你应该问 VS.NET 2003 里的控件是如何托放的,是不分C#.NET VB.NET 的!

首先你专要把视图属调节到"设计" 而不是"HTML"

之后选择"视图"-->"工具箱" 之后选择你需要的控件 托到里面就是了!

Ⅵ JAVA做界面是手动编代码好还是拖放控件的方

看你的需求是什么，如果是后台管理系统界面，有一个easyUI的东西很方便，前端页面的话当然就要自己写了，不过拖放控件？你做的是SWT之类的吗？

Ⅶ 求易语言实现拖动控件源码。

先放一个拖放控件，在设置控件的接收控件，再在属性里 现在得到文件名 文件名就是发给文件的路径啦!

Ⅷ VB中拖动控件代码

我给你写了一段示例程序，拖动的控件时Label1。这个程序中，只有一个Label控件（name属性为Label1）和一个窗体。程序如下：
'定义一个布尔变量，用于标识控件是否可拖动
Dim canDrag As Boolean
Private Sub Form_Load()
'当窗体加载时，设置其值为false（即控件不可拖动）
canDrag = False
End Sub

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'当按下鼠标时，控件可以拖动，但是这个动作不在这里执行
canDrag = True
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If canDrag Then '如果canDrag为真，这一动鼠标时就拖动控件
Label1.Left = Label1.Left + X
Label1.Top = Label1.Top + Y
End If
End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'松开鼠标时，控件不可拖动
canDrag = False
End Sub

Ⅸ vb中怎样拖动控件

‘拖动command1的例子
Option Explicit
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Type POINTAPI
x1 As Long
y1 As Long
End Type
Dim cmdX1 As Integer
Dim cmdY1 As Integer
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim P As POINTAPI
If Button = vbLeftButton Then
GetCursorPos P '获取鼠标在屏幕中的位置
ScreenToClient Me.hwnd, P '将现有坐标0,0转换为本窗体的坐标
cmdX1 = Command1.Left - P.x1 * Screen.TwipsPerPixelX
cmdY1 = Command1.Top - P.y1 * Screen.TwipsPerPixelY
End If
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim P As POINTAPI
Dim t As Boolean
If Button = vbLeftButton Then
GetCursorPos P '获取鼠标在屏幕中的位置
ScreenToClient Me.hwnd, P '将现有坐标0,0转换为本窗体的坐标
t = P.x1 >= 0 And P.y1 >= 0 And P.x1 < Me.Width / Screen.TwipsPerPixelX And P.y1 <= Me.Height / Screen.TwipsPerPixelY
If t Then
Command1.Left = P.x1 * Screen.TwipsPerPixelX + cmdX1
Command1.Top = P.y1 * Screen.TwipsPerPixelY + cmdY1
End If
End If
End Sub

Ⅹ C# 窗体上的控件，如何拖放复制

那些回答ctrl+c,ctrl+v的人，简直是不知所云！！

我现在也遇到这样的问题，我曾经在VB中实现了这个操作，大概思路是：实现定义一个控件，隐藏起来！等单击窗体上任一点时，就用方法，在该点生成控件复制件，我想跟楼主的拖拉复制应该是相同的道理；只是我现在在C#中，无法实现这步，刚用C#不久，不是很熟悉！