请问怎样让浮雕文字左右移动啊?
vb吧
全部回复
仅看楼主
level 5
终鞍狂 楼主
我这个代码每次移动到边界都会原地抽搐而不往回走[泪]
2023年12月19日 07点12分 1
level 13
代码可以简化
If Timer1.Enabled then
Timer1.Enabled=false
else
Timer1.Enabled =true
end if
或者直接一行
Timer1.Enabled = not Timer1.Enabled
请问Form_load、Mousedown中的Radomize存在有何意义,又没有用随机数函数Rnd。
后面的代码用了 and 又是什么意义
这个你试试,可以左右移动
Static N As Boolean
If N Then
Label1.Left = Label1.Left + 200
If Label1.Left + Label1.Width >= Form1.ScaleWidth Then
Label1.Left = Form1.ScaleWidth - Label1.Width
N = False
End If
Else
Label1.Left = Label1.Left - 200
If Label1.Left <= 0 Then
Label1.Left = 0
N = True
End If
End If
变量N要么用外部,要么用静态
2023年12月19日 08点12分 0
ScaleWidth和Width是不一样的,ScaleWidth是内部的,自己找书看吧
2023年12月19日 08点12分
非常感谢[突然兴奋]
2023年12月19日 10点12分
非常感谢[突然兴奋]
2023年12月19日 10点12分
randomize是别的功能用的,但第二个确实是忘删了[笑尿]
2023年12月19日 11点12分
1