vb的命令按钮要实现点一下向右移一位，再点再移，代码应该怎么写啊

答案:6 悬赏:50

解决时间 2021-04-27 17:25

提问者网友：芷芹
2021-04-26 18:57

vb的命令按钮要实现点一下向右移一位，再点再移。。。。一直下去。代码应该怎么写啊。急！！刚学的新手，谢谢指教

最佳答案

二级知识专家网友：输掉的尊严
2021-04-26 20:32

1、建立两个命令按钮，分bai别将名称改为A，B，style设置为1。

2、在属性栏du里找到picture，找到本地图片，装上图片，先要将style设置为zhi1。

3、将dao按钮A中的disabledpicture改为你本地图片。

4、最后运行一内下。这是在普通状态下的按钮。

5、点击按钮A时，出容现的图片。

全部回答

1楼网友：為→妳鎖鈊
2021-04-27 01:45

Private Sub Command1_Click() On Error Resume Next Command1.Left = Command1.Left + 100 End Sub

2楼网友：桃花别处起长歌
2021-04-27 00:27

'添加 Command1(0) 注意是数组,把属性中的Index设为 0 Dim i%, oldx(4) As Integer Private Sub Form_Load() Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2 For i = 1 To 4 Load Command1(i) Command1(i).Visible = True Command1(i).Caption = "按钮" & Str(i) Next i Command1(0).Caption = "恢复" Call plbutton End Sub Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 Call plbutton Case Else Command1(Index).Left = IIf(Command1(Index).Left <> 30, 30, oldx(Index)) End Select End Sub Sub plbutton() Command1(0).Top = 0 For i = 1 To 4 Command1(i).Top = Command1(i - 1).Top + Command1(i).Height + 30 Command1(i).Left = Me.ScaleWidth - Command1(i).Width - 50 oldx(i) = Command1(i).Left Next i Command1(0).Left = (Me.ScaleWidth - Command1(0).Width) \ 2 Command1(0).Top = Me.ScaleHeight - 50 - Command1(0).Height End Sub 你可32313133353236313431303231363533e59b9ee7ad9431333332613664以参考一下这段代码做一下吧！

3楼网友：哥在撩妹请勿打扰
2021-04-26 23:57

楼上的写得太复杂了 Private Sub Command1_Click() Command1.Left = Command1.Left + 100 '这里的100 是指移动的距离如需要向左移则是把+改成- End Sub

4楼网友：废途浑身病态
2021-04-26 23:01

命令按钮的哪个属性的值？

caption 是上面的字，vlaue＝1相当于按下，不知道你问题问什么。

5楼网友：统治我的世界
2021-04-26 21:42

Private Sub Command1_Click() Command1.Left = Command1.Left + 300 End Sub 点一下右移300缇（相当于20像素）

我要举报

如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！