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

建议不要拖控件，自己写xml来布局，这样你对android布局了解的会更深入，而且控件拖出来的代码，比较臃肿，况且android开发并不是只有视图层，android默认的组件比较丑，需要用代码冲悄迅重写，你是拖运胡不出来漂亮的组件的，如果真的做开发，建议不要拖控散此件，从最基本的代码写起

---