VB 编一上下滚动的字幕程序,利用滚动条控制标签动的速度
Private Sub HScroll1_Change()Timer1.Interval = HScroll1.Value End Sub Private Sub Timer1_Timer()Picture1.Cls y = y - 100 '判断是否到顶头，若到头则返回底端 If y < 0 Then y = Picture1.Height '定义输出位置 Picture1.PSet (x, y)Picture1.Print "滚动字幕1"Picture1.PSet ...
VB滚动条(ScrollBar)怎么控制动画的速度
当滚动条在最左端时速度应该最小 即间隔时间最大）一个按钮，一个滚动条，一个时间控件 Private Sub Command1_Click()Timer1.Enabled = False'停止图片移动 End Sub Private Sub Form_Load()HScroll1.Min = 0'（HScroll1.Min 、HScroll1.Max 这两个属性决定了HScroll1.Value的范围）HScroll1....
求vb制作字幕滚动条代码
Dim z As Boolean, y As Boolean, zy As Boolean '申明三种状态按钮 Private Sub Form_Load()Label1.Caption = "滚动字幕"Label1.FontSize = 30 End Sub Private Sub Option1_Click()z = True: y = False: zy = False '从左向右的状态按钮属性 End Sub Private Sub Option2_Click()y ...
急求!vb制作滚动字幕代码
加入一个文本框：text1.加入一个时间控件：timer1.加入一个横向的滚动条：hscroll1.把：min属性设为2，max属性设为100，smallchange设为1。下面代码：Private Sub Command1_Click()Timer1.Enabled = True Timer1.Interval = 10 End Sub Private Sub Form_Load()Command1.Caption = "开始"Text1....
VB怎么让文本框滚动条滚动
1、首先打开VB，然后在VB窗体上添加一个文本框，如图。2、然后点击这个添加的文本框，接着在右侧的一个窗口中，设置他的相关名称和数值，然后将文本内容清空。如图。3、紧接着在窗体上面，再添加一个水平滚动条，如图。4、然后单击这个水平滚动条，设置名称和数值，将Min设置为0，Max设置为100。
...一个程序实现字体的自动放大,并用垂直滚动条控制放大的速度。_百度...
程序如下：Private Sub Command1_Click()Timer1.Enabled = True End Sub Private Sub Form_Load()With VScroll1 .Max = 4000 .Min = 500 ' 快慢程度自己设定 End With Label1.FontSize = 8 '初始字体大小 Timer1.Enabled = False End Sub Private Sub Timer1_Timer()If Label1.FontSize >...
VB滚动条怎么做
Private Sub Form_Load()Me.Caption = "改变字号"HScroll1.Min = 12 HScroll1.Max = 72 Label1.Caption = "心想事成"End Sub Private Sub HScroll1_Change()Label1.FontSize = HScroll1.Value End Sub Private Sub Text1_Change()If Len(Text1.Text) > 2 Then Text1.Text = Left(...
VB编程怎样让这个滚动条控制这个文本框的字?
LZ可以用文本框自带的滚动条；设置如下：设置好之后想怎么拉就怎么拉，妈妈整夜不会担心我看不到后面的字了。有问题请追问，满意请采纳！
vb 添加VScrollbar 控制FORM窗体的上下
End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With VScrollBar1 .Maximum = Me.Height .Value = Me.Height .Minimum = 100 .SmallChange = 2 End With 这样可以通过VScorllBar调节窗体的高度，不知道这是不是你想要的...
VB如令图片跟着滚动条移动而移动
Private Sub Form_Resize()HScroll1.Max = ScaleWidth - Picture1.WidthHScroll1.Min = 0HScroll1.LargeChange = Picture1.WidthHScroll1.SmallChange = Picture1.Width \\ 10On Error Resume NextHScroll1.Value = Picture1.LeftEnd SubPrivate Sub HScroll1_Change()Picture1.Left = HScroll1....
