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

vb的命令按钮要实现点一下向右移一位,再点再移。。。。一直下去。代码应该怎么写啊。急!!刚学的新手,谢谢指教... vb的命令按钮要实现点一下向右移一位,再点再移。。。。一直下去。代码应该怎么写啊。急!!刚学的新手,谢谢指教 展开
 我来答
依然特雷西sky
高粉答主

2020-05-16 · 繁杂信息太多,你要学会辨别
知道答主
回答量:1511
采纳率:33%
帮助的人:68.7万
展开全部

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

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

3、将侍游按钮A中的disabledpicture改为你本地图片册败。

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

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

网海1书生
科技发烧友

推荐于2018-04-27 · 擅长软件设计、WEB应用开发、小程序
网海1书生
采纳数:12311 获赞数:26228

向TA提问 私信TA
展开全部
Private Sub Command1_Click()
Command1.Left = Command1.Left + 300
End Sub

点一晌悄下右移300缇(相当带友于蠢谨槐20像素)
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2013-04-13
展开全部
楼上的 写启链得太复杂了
Private Sub Command1_Click()
Command1.Left = Command1.Left + 100 '这并旁局里的绝让100 是指移动的距离如需要向左移则是把+改成-
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2013-04-13
展开全部
'添加 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
你可以乎尘陪参考一下这兄袭段代码做一下吧!
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
我爱编程序
2013-04-12 · TA获得超过106个赞
知道答主
回答量:124
采纳率:100%
帮助的人:71.9万
展开全部
Private Sub Command1_Click()
On Error Resume Next
Command1.Left = Command1.Left + 100
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式