大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
可以将文字放在标签内,标签背景颜色设置为透明,即backstyle为0,这样就只显示文字
网站建设哪家好,找创新互联建站!专注于网页设计、网站建设、微信开发、小程序制作、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了南和免费建站欢迎大家使用!
判断文字是否走到最右边,则
if
label1.leftform1.width
then
label1.right=0
end
if
让文字运动则label.lefe=label.lefe+100
若有用,记得采纳哦~~
最简单的,就是在上面放一个label,用Timer定时器控件控件这个label的移动
文字写在label的caption属性中,调用timer()函数
附上我写的左右往复运动代码,实现image1在picture1中左右往复运动
Private
Sub
Timer1_Timer()
If
Image1.Left
=
Picture1.ScaleWidth
-
Image1.Width
Then
k
=
1
If
k
=
1
Then
Image1.Left
=
Image1.Left
-
50
Else
Image1.Left
=
Image1.Left
+
50
End
If
If
Image1.Left
=
Then
k
=
End
Sub