Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 50
Label1.Left = -Label1.Width
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 50
If Label1.Left > Me.Width Then Label1.Left = -Label1.Width
End Sub
用vb代码如何实现滚动字幕
font_width=Me.TextWidth("循环滚动")Whilefont_height<=Label1.HeightAndfont_width<=Label1.Width size=size+1 Label1.Font.size=size font_height=Me.TextHeight("循环滚动")font_width=Me.TextWidth("循环滚动")Wend Label1.Font.size=size-1'\/\/选择最合适的字体大小 pos=1'\/\/从第一个字...
vb中若要求字幕自左向右移动,如何处理
使用 Timer控件，在其Timer事件中，不断增加字幕对应控件的Left属性。假设你字幕用Label控件：Private Sub Form_Load()Timer1.Interval = 500 n = 0 End Sub Private Sub Timer1_Timer()If Label1.Left < Me.Width Then Label1.Left = Label1.Left + 100 Else Label1.Left = - Label1.Wid...
VB 字幕从左往右滚动
首先添加一个Timer1 控件(时钟控件)Private Sub Form_Load()Timer1.Enabled = True Timer1.Interval = 50 Label1.Left = -Label1.Width End Sub Private Sub Timer1_Timer()Label1.Left = Label1.Left + 50 If Label1.Left > Me.Width Then Label1.Left = -Label1.Width End Sub ...
VB滚动字幕:要求 字幕从左到右移动到窗体边缘消失,再从右到左出现...
'这不知是不是你想要达到的效果 Dim a As Integer Private Sub Command1_Click() a = 1 Timer1.Enabled = True '启动定时器 End Sub Private Sub Command2_Click() a = 2 Timer1.Enabled = True '启动定时器 End Sub Private Sub Command3_Click() Timer1.Enabled = False End Sub Priv...
求vb制作字幕滚动条代码
Label1.Caption = "滚动字幕"Label1.FontSize = 30 End Sub Private Sub Option1_Click()z = True: y = False: zy = False '从左向右的状态按钮属性 End Sub Private Sub Option2_Click()y = True: z = False: zy = False '从右向左的状态按钮属性 End Sub Private Sub Option3_...
vb制作字幕,怎么让字幕从左边到右边,碰到右边缘再弹回来,到左边,到左 ...
Dim s As BooleanDim right As BooleanPrivate Sub Command1_Click()s = TrueEnd SubPrivate Sub Command2_Click()s = FalseEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Form_Load()Label1.Left = Form1.Width \/ 2 - Label1.Width \/ 2s = Falseright = TrueEnd SubPrivate ...
vb设计一条滚动的广告字幕,要求设计界面,编写代码
方法如下：添加一个Label标签，并设置背景为透明，放置于窗体最右边，用于显示字幕；添加一个Timer控件，间隔属性自行设置，用于制作滚动效果；在Timer事件中，添加代码，使Label标签的left属性，每次减少100，当小于0时，回到初始值。这样，就制作出了字幕滚动效果。
vb文本框中内容左右移动代码
如果实在要这么做，可以这样：Dim N As Integer Dim S As String Private Sub Form_Load()S = "欢迎光临。"Text1.Text = S End Sub Private Sub Command1_Click() '右移 N = N + 1 Text1.Text = String(N, " ") & S End Sub Private Sub Command2_Click() '左移 N = N - ...
vb制作滚动字幕
True, False)End SubPrivate Sub Command1_Click()Unload MeEnd SubPrivate Sub Form_Load()Label1.Left = Picture1.WidthTimer1.Interval = 30End SubPrivate Sub Form_Unload(Cancel As Integer)Timer1.Enabled = FalseEnd SubPrivate Sub Opt_sd_Click(Index As Integer)Select Case Index Case ...
用vb设计字幕滚动程序,要求label先向右移,碰到form1最右边的边框后向...
dim x as integer 需要放在代码的最上面 而不是放在过程里 过程里只是局部变量 而且不管label是该向左或向右移动的时候你代码 都是无条件的让x=100 那么你If里的 x=-100 就完全失去意义 条件满足后赋值成功 但是还没执行label1.left=label1.left+x 的时候100又变回100了 我给你正确的 如下 Dim...
