æ代ç å¤å¶å°çªä½éå³å¯ãç¨åºè¿è¡æ¶åå»ç¸åºçè¿ä¼¼ï¼æ ç¾æ§ä»¶åé£ä¸ªæ¹å移å¨ã
代ç å¦ä¸ï¼
Private Sub Command1_Click()
Label1.Top = Label1.Top - 50
End Sub
Private Sub Command2_Click()
Label1.Left = Label1.Left - 50
End Sub
Private Sub Command3_Click()
Label1.Top = Label1.Top + 50
End Sub
Private Sub Command4_Click()
Label1.Left = Label1.Left + 50
End Sub
Private Sub Form_Load()
Command1.Caption = "ä¸"
Command2.Caption = "å·¦"
Command3.Caption = "ä¸"
Command4.Caption = "å³"
Label1.Caption = "欢è¿ä½¿ç¨VB"
End Sub
Command1.Caption = "上"
Command2.Caption = "左"
Command3.Caption = "下"
Command4.Caption = "右"
End Sub
Private Sub Command1_Click()
Command1.Top = Command1.Top - 20
End Sub
Private Sub Command2_Click()
Command2.Left = Command2.Left - 20
End Sub
总共复制3次，生成4个按钮，按照复制出来的顺序分别标上“上”，“左”，“下”，“右”。
最后放上你的标签。
Private Sub Command1_Click(Index As Integer)
Dim msX As Long, msY As Long
dim PosX as long ,PosY as long
PosX = label1.left
PosY = label1.top
Select Case Index
Case 0 'up
msY = posy - 50
msX = posx
Case 1 'left
msX = PosX - 50
msY = PosY
Case 2 'down
msY = PosY + 50
msX = PosX
Case 3 'right
msX = PosX + 50
msY = PosY
Case Else
Exit Sub
End Select
label1.move msx,msy
End Sub
'--------觉得好多给分，谢谢！
VB语言把控件左右 或上下移动 怎么说
向左移动 即减少left的属性值即可,.右则增加 如 command1.left=command1.left+100 向右移100 向上移动 即减少top属性的值即可 下则增加 或者可以使用move方法 command1.move command1.left+100,command1.top+100 '向右和下移100
如何用vb实现上下左右的移动
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 = Form1.Width End If End Sub 向上移动 Private Sub Command3_Click()Pictu...
VB 编制程序,当点击命令按钮时,标签框左右移动
Label1.Left = Label1.Left - 120 End If ElseIf Command1.Caption = "右" Then If Label1.Left >= Form1.Width - Label1.Width Then Command1.Caption = "左"Else Label1.Left = Label1.Left + 120 End If End If End Sub 你试试吧，觉得移动慢就把数字改大点 ...
VB label控件移动问题
1，如果每间隔一段时间增加Left属性，看到的效果就是向右移动。2，如果每间隔一段时间减少Left属性，看到的效果就是向左移动。3，如果每间隔一段时间增加Top属性，看到的效果就是向下移动。4，如果每间隔一段时间减少Top属性，看到的效果就是向上移动。要产生每间隔一段时间，去移动控件，通常用Timer控件...
VB LABEL的上移与下移
你可以在窗体上添加两个timer控件,在form_load 中写代码, 如下:Private Sub Form_Load()Timer1.Interval = 100 '100可以任意修改 它控制向下移动的速度 Timer2.Interval = 100 '100可以任意修改 它控制向上移动的速度 Timer1.Enabled = True Timer2.Enabled = False End Sub Private Sub Timer1_...
VB.net中窗体上控件太多,运行时在桌面上显示不全,怎样用滚动条来解决...
在PicTureBox1里添加PicTureBox2，在窗体上添加一个垂直滚动条。把你所谓的许多控件放到PicTureBox2里，滚动条改变的是PicTureBox2在PicTureBox1里的Top属性，我想你通过一定的空间想象力，可以想到效果了吧？注意：默认状态设置PicTureBox2的Top属性为0，当该属性为负值的时候，PicTureBox2显示的效果是向上...
vb 如何让图片向上移动(打开后自动向上移动无需点击)求代码
在窗体的load事件里面写代码；代码大致是这样的：p.top=p.top-x 这里p是你放图片的那个容器名字，x是你每次的移动量；如果你想让它持续移动，就添加一个timer，在load事件里面打开timer，在timer事件里面写上面的代码；
VB窗体在右下角向上移动
楼上的代码有一点点小问题 如果窗体大小小于command1的大小就会出错 所以要加上on error resume next private sub form_resize()on error resume next command1.left = me.width - command1.width command1.top = me.height - command1.height end sub ...
VB菜单栏在哪里?
在 MDI 应用程序中，确定菜单控件是否包含一个打开的 MDI 子窗体列表。“右箭头”每次单击都把选定的菜单向右移一个等级。一共可以创建四个子菜单等级。“左箭头”每次单击都把选定的菜单向上移一个等级。一共可以创建四个子菜单等级。“上箭头”每次单击都把选定的菜单项在同级菜单内向上移动一个位置...
Excel中的“宏”怎么用?
1)打开“HOUR2”工作簿。 2)调出”窗体“工具栏。 3)单击”窗体“工具栏中的“按钮”控件,此时鼠标变成十字形状。 4)在希望放置按钮的位置按下鼠标左键,拖动鼠标画出一个矩形,这个矩形代表了该按钮的大小。对大小满意后放开鼠标左键,这样一个命令按钮就添加到了工作表中,同时EXCEL自动显示“指定宏”对话框。
