vb使按钮左右移动

比如有3个按钮，1，2，3，3在1，2之间。取得1按钮的右边位置，left属性+width属性，2按钮的左位置，就是left属性。再定位3的left就可以了。Dim a Private Sub Command2_Click()Timer1.Enabled = True End Sub Private Sub Form_Click()Timer1.Enabled = False End Sub Private Sub Form_Load(...

方一：用Left或Top属性分别控制控件的左边距和上边距,命令按钮C1,如C1.Left=C1.Left+a(若a<0则往左移,反之右移)方二：先将C1的DragMode改为1,再在窗体DragDrop事件中写Source.Move X,Y

1、建立两个命令按钮，分别将名称改为A，B，style设置为1。2、在属性栏里找到picture，找到本地图片，装上图片，先要将style设置为1。3、将按钮A中的disabledpicture改为你本地图片。4、最后运行一下。这是在普通状态下的按钮。5、点击按钮A时，出现的图片。

通过检测和更改按钮的Left属性，就可以实现每一次按钮的点击并让它移动。由于可能会有其它的控件引起遮挡，所以下面的代码让它左右移动：Private Sub Command1_Click() '交替左右移动 If Command1.Left Mod 2 = 0Then Command1.Left = Command1.Left － 1001 '先左移 Else Command1.Left = ...

左移Label1.left= Label1.left－步长 右移Label1.left= Label1.left＋步长 斜移：同时进行上边上下与左右的一个组合 例子：text1输入步长，'tag 确定方向，比如上tag=1,下tag=-1 Private Sub MyMove(ByVal tag%)Label1.Top = Label1.Top + tag * Val(Text1)Label1.Left = Label1.Left ...

1、第一步，在桌面上单击VisualBasic6.0，见下图，转到下面的步骤。2、第二步，完成上述步骤后，选择“标准EXE”选项，然后单击“打开”按钮，见下图，转到下面的步骤。3、第三步，执行完上面的操作之后，分别在窗体中创建一个label控件，两个command控件和一个timer控件，见下图，转到下面的步骤。4、...

向右移动 Private Sub Command1_Click()Picture1.Left = Picture1.Left + 200 If Picture1.Left > Form1.Width Then Picture1.Left = -Picture1.Width End If End Sub 向左移动 Private Sub Command2_Click()Picture1.Left = Picture1.Left - 200 If Picture1.Left < 0 Then Picture1.Left...

Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)Dim temp As Integer temp = Index Select Case KeyCode Case 37 '左 temp = temp - 1 Case 38 '上 temp = temp - 4 Case 39 '右 temp = temp + 1 Case 40 '下 te...

'添加两个命令按钮，一个label控件 dim n as integer private sub command1_click n=n+1 label1.caption=space(n) & label1.caption end sub '上面这段代码经过调试，可以的

跟我下面的代码比较一下有什么不一样dimbjasboolean,szasintegerprivatesubcommand1_click()timer1.interval=500callmymoveendsubsubmymove()label1.movelabel1.left,label1.top+100*sziflabel1.top+label1.height>form1.heightthensz=-1elseiflabel1.top<0thensz=1endifendsubprivatesubcommand2_click...