那么在timer的timer事件中
Private Sub Timer1_Timer()
str1 = Mid(str1, 2) & Left(str1, 1)
Label1.Caption = str1
End Sub本回答被提问者采纳
Private Sub Form_Load()
Timer1.Interval = 10
Label1.Left = Me.ScaleWidth
Label1.Top = Me.ScaleHeight / 2
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 10
If Label1.Left + Label1.Width <= 0 Then Label1.Left = Me.ScaleWidth
End Sub
VB里的Lable控件属性怎么设置字体会变色会动呢?
要在VB中的Label控件实现字体颜色和文本动效，只需将特定属性添加至Timer控件内。首先，在窗体中创建一个Label控件和一个Timer控件。接下来，请复制以下代码并运行，即可观察到预期效果。在Form_Load事件处理函数内，设定Label1的Caption（显示文本）为"测试文字"，ForeColor属性为红色。同时，为Timer1设置In...
vb设计一条滚动的广告字幕,要求设计界面,编写代码
方法如下：添加一个Label标签，并设置背景为透明，放置于窗体最右边，用于显示字幕；添加一个Timer控件，间隔属性自行设置，用于制作滚动效果；在Timer事件中，添加代码，使Label标签的left属性，每次减少100，当小于0时，回到初始值。这样，就制作出了字幕滚动效果。
用vb代码如何实现滚动字幕
'\/\/label1控件，手动调整 '\/\/接着需要选择字体大小 SetMe.Font=Label1.Font'\/\/方便借用Form.TextHeight方法 Dimfont_heightAsLong,font_widthAsLong,sizeAsLong size=Label1.Font.size font_height=Me.TextHeight("循环滚动")font_width=Me.TextWidth("循环滚动")Whilefont_height<=Label1.HeightAnd...
求vb label 中的文字向上滚动的代码,当最后一行滚动到上边时,第一行...
label中的文字滚不了，但是可以考虑滚动整个label 将label放在某个容器内(form，frame或者picture box等），使用timer控制 当label低端到达容器上端时，将该label直接移至容器下端即可
VB怎么实现标签中的字从右向左一直滚动
加入一个LABEL控件，一个TIMER控件，如下代码 Dim n As Integer, a As String Private Sub Form_Load()Label1.Caption = "欢迎光临" '标签内容为欢迎观临 Label1.Alignment = 1 '右对齐 'Label1.Alignment = 0 如果你想左到右就把这行加上，把上面去掉 n = 1 '初始值1 a =...
VB中如何使字上下来回移动
1、点击桌面上的“VisualBasic6.0”2、选择“标准EXE”，单击“打开”。3、分别在窗体中创建一个label控件、两个command控件、一个timer控件。4、把label的caption改成“欢迎来到VB！”，command1的caption改成“手动”，command2的caption改成“自动”。5、最后呈现出的效果如图所示。6、双击点开编辑...
用VB编写简单的程序,实现字体的上下滚动
在窗体上键timer控件一个，label一个复制以下代码：label用来写上你需要的字幕 Option Explicit Private Sub Form_Load()Timer1.Interval = 100 Label1.Top = Me.ScaleHeight End Sub Private Sub Timer1_Timer()Label1.Move Label1.Left, Label1.Top - 50 If Label1.Top + Label1.Height < 0...
VB 如何使label控件 从右向左滚动 并且要从左边消失的字立刻在右边显示...
.Caption = "滚动字幕的演示"End With Timer1.Interval = 10 End Sub Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then Label1.Left = Label1.Left + X - Label1.Width \/ 2 Label1.Top = Label1.Top + Y - Label1...
在VB编程中 如何让字体一直滚动
做一个label标签，添加一个timer控件。设置好timer控件的时间间隔为50，在timer事件里面添加如下代码，标签滚动到了最后会从最开始的地方开始滚动 label1.left=label1.left+10 if label1.left>form1.width then label1.left=0 end if
vb中怎么向左或向右移动一段文字,
需要添加定时器Timer来实现 代码及注释如下：private sub Form_load()timer1.interval=500'窗体出现时，定义定时器的出发间隔为0.5s timer1.enabled=true'定时器启动 end sub private sub timer1_time()label1.left=label1.left+100'label1的左边距离，每0.5s向右移动100，由于文字位于Label上，因此...
