新手求教，有爱的亲们帮我啊 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 新手求教，有爱的亲们帮我啊

标题：新手求教，有爱的亲们帮我啊

只看楼主

小异yi

等　级：新手上路
帖　子：6
专家分：0
注　册：2013-3-15
结帖率：50%

楼主

已结贴√ 问题点数：20 回复次数：4

新手求教，有爱的亲们帮我啊

如图，我做的向右移命令按钮操作时label字样一直向右至超出边框字体消失，怎么控制让它移动一直在边框内？

求代码啊，原谅我，刚学的，什么都不懂。。。

2013-03-18 16:39

小异yi

等　级：新手上路
帖　子：6
专家分：0
注　册：2013-3-15

第 2 楼

得分:0

有人么？

2013-03-18 16:43

风吹过b

等　级：贵宾
威　望：364
帖　子：4912
专家分：29900
注　册：2008-10-15

第 3 楼

得分:20

Private Sub Command1_Click()
If Label1.Left - 200 > 0 Then
    Label1.Left = Label1.Left - 200
Else
    Label1.Left = 0
End If
End Sub

-----------------
Private Sub Command2_Click()
If Label1.Left + Label1.Width + 200 > Me.ScaleWidth Then
    Label1.Left = Me.ScaleWidth - Label1.Width
Else
    Label1.Left = Label1.Left + 200
End If
End Sub

收到的鲜花