怎样使label中的字滚动起来
答案:3 悬赏:70 手机版
解决时间 2021-02-20 03:22
- 提问者网友：美人性情
- 2021-02-19 17:31
怎样使label中的字滚动起来
最佳答案
- 五星知识达人网友：長槍戰八方
- 2021-02-19 18:31
Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = True
Label1 = "字体滚动起来了 "
End Sub
Private Sub Timer1_Timer()
Label1 = Mid(Label1, 2) & Left(Label1, 1)
End Sub
Timer1.Interval = 100
Timer1.Enabled = True
Label1 = "字体滚动起来了 "
End Sub
Private Sub Timer1_Timer()
Label1 = Mid(Label1, 2) & Left(Label1, 1)
End Sub
全部回答
- 1楼网友：梦中风几里
- 2021-02-19 19:33
你可以画一个picture，然后画两个label（注意picture和label的大小），通过timer控制label移动显示顺序，可以实现字符串上下滚动和左右滚动效果
- 2楼网友：孤独的牧羊人
- 2021-02-19 19:24
假如你要显示的文字保存在str1中
那么在timer的timer事件中
private sub timer1_timer()
str1 = mid(str1, 2) & left(str1, 1)
label1.caption = str1
end sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯
| 正方形一边上任一点到这个正方形两条对角线的 |
| 阴历怎么看 ？ |