VB编程如何让标签在窗体中来回滚动

 我来答
匿名用户
推荐于2017-12-15
展开全部
1楼的答案是对的。但在开始定义变量那里写反了,而且代码写得比较乱,不够清晰雹冲。
2楼的答案从开始的想法上就错了,所以代码虽然没有语法上的错误,也很清楚,但却有逻辑错误,不能实现要求的功兆肆携能。
下面的是我写的,在窗体上添加1个Label和1个Timer,然后把代码复制进去就可以了。
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Static b As Boolean '我这里用的是静态变量,当然也可以跟1楼一样使用窗体级变量或者族伏全局变量

If Label1.Left <= 0 Or Label1.Left + Label1.Width >= Me.Width Then b = Not b
Label1.Left = Label1.Left + IIf(b, -75, 75)
End Sub
匿名用户
2013-04-27
展开全部
在程序中设置一个标志变量(最好为全局变答腊量):如:
dim integer as MoveTag
MoveTag=1 '初始化派举御1,开始时为左移
由时钟控件控尘岩制标签的移动
if MoveTag then
label1.left=label1.left - 10 * MoveTag
if label1.left<0 then
MoveTag=-1
else
if label1.left + label1.width >form1.width then
MoveTag=1
end if
end if
end if

1、当标签的左端到达窗体的
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
爱哭的孩子18_
2018-04-16
知道答主
回答量:1
采纳率:0%
帮助的人:842
展开全部

具体如下:

1、第一个程序是可以执行的,只是必须把j设为全局变量或静态变量,下面是静态变量的方法:吵配改

PrivateSubTimer1_Timer()

StaticjAsInteger

Form1.Caption=Space(20-j)&"查找与替换卖春例"

j=(j+1)Mod20

EndSub你自己搞的那个从思路和语法上都是完全错了,而且错得非常升判离谱,错到姥姥家了!

2、仅从语法上来看,应该这么改:

PrivateSubTimer1_Timer()

IfMe.ScaleLeft<6000Then

Form1.Caption=""+Form1.Caption

ElseIfMe.ScaleLeft>=6000Then

Form1.Caption="查找与替换例"

EndIf

本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式