编程论坛 → VB6论坛

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

小异yi 发布于 2013-03-18 16:39， 469 次点击

只有本站会员才能查看附件，请登录

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

只有本站会员才能查看附件，请登录

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

4 回复

小异yi2013-03-18 16:43

有人么？

风吹过b2013-03-18 16:43

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

小异yi2013-03-18 16:56

回复 3楼风吹过b

谢谢亲，我知道了，多多指教

qq8719281762013-03-20 13:28

我说新手，受教了，原来是一个判断语法啊。