VB里滚动条程序设计！！
新建立一个工程文件，并按照下列要求进行操作：
在名称为Form1的窗体上画一个名称为HS1的水平滚动条，其刻度值范围为1～100；画一个命令按钮，名称为C1，标题为“移动滚动条”。请编写适当的事件过程，使得在运行时，每单击命令按钮一次（假定单击次数少于10次），滚动框向右移动10个刻度。
改标题 点一下C1 在右边的属性窗口里 修改caption属性为“移动滚动条”
刻度范围 点一下HS1 在右边的属性窗口里 修改min属性为“1” max属性为“100”
事件过程：
双击C1
然后输入
HS1.value=HS1.value+10
然后就完事了。。
是这种效果不
hs1.Value=HS1.Value+1
End Sub本回答被网友采纳
vb 滚动条 怎么用
1、新建一个工程，调整好软件的界面大小。2、给界面里面添加一个图片。3、然后点击滚动条。画到界面里面，就像这样。这样界面就构建好了。4、接下来给图片空间添加图片，拉动右边的滚动条，找到picture。5、在picture右边的按钮给他添加图片。6、拉动滚动条，找到autoredraw，和autosize进行设置。7、在右...
vb里面怎么设置textbox的滚动条?
1、首先打开VB，然后在VB窗体上添加一个文本框，如图。2、然后点击这个添加的文本框，接着在右侧的一个窗口中，设置他的相关名称和数值，然后将文本内容清空。如图。3、紧接着在窗体上面，再添加一个水平滚动条，如图。4、然后单击这个水平滚动条，设置名称和数值，将Min设置为0，Max设置为100。largech...
VB怎么让文本框滚动条滚动
方法一：1、VB中让文本框滚动条滚动，设置文本框的属性值Mutiline属性为true；2、设置文本框的Scrollbars的属性为垂直滚动条或者水平滚动条；3、将文本框赋值后，当文本框的内容大于当前文本框显示内容时，文本框滚动条便会显示可用状态，这时点击滚动条两侧箭头可以使滚动条滑动，或者鼠标左键按住中间的...
VB怎么让文本框滚动条滚动
1、在VB中实现文本框滚动条的滚动，首先需要将文本框的Mutiline属性设置为true，允许文本框显示多行文本。2、接下来，设置文本框的Scrollbars属性，可以选择垂直滚动条或水平滚动条，以适应不同的滚动需求。3、当向文本框输入内容并超出当前显示范围时，滚动条会自动显示。用户可以通过点击滚动条两侧的箭头...
VB如何设置水平滚动条?
1、首先打开VB，然后在VB表单上添加一个文本框，如图所示。2、然后点击添加文本框，在右边的窗口中设置它的名称和值，然后清空文本。如图所示。3、在表单的正上方添加一个水平滚动条，如下所示。4、然后单击水平滚动条设置名称和值，并将Min设置为0，Max设置为100。设置“Largechange”为2，“Small...
VB如何设置水平滚动条?
1、首先打开VB，然后在VB表单上添加一个文本框，如图所示。2、然后点击添加文本框，在右边的窗口中设置它的名称和值，然后清空文本。如图所示。3、在表单的正上方添加一个水平滚动条，如下所示。4、然后单击水平滚动条设置名称和值，并将Min设置为0，Max设置为100。设置“Largechange”为2，“Small...
vb编程列表框换行及滚动条问题
在VB编程中处理列表框(ListBox)的换行及滚动条问题，可以通过以下步骤实现：首先，要实现列表框中的元素能够自动换行，需要将属性`MultiSelect`设置为`2`。这将允许列表框同时选择多个项，即使列表项超出列表框的可视区域时，列表项也能自动换行，从而保持列表内容的完整性。接着，为了处理列表框的滚动事件...
VB 编一上下滚动的字幕程序,利用滚动条控制标签动的速度
'判断是否到顶头，若到头则返回底端 If y < 0 Then y = Picture1.Height '定义输出位置 Picture1.PSet (x, y)Picture1.Print "滚动字幕1"Picture1.PSet (x + 100, y + 200)Picture1.Print "滚动字幕2"Picture1.PSet (x + 200, y + 400)Picture1.Print "滚动字幕3"End Sub ...
vb滚动条的代码
新建窗体，画个文本框和一个水平滚动条、两个标签，然后编写：Private Sub HScroll1_Change()Text1.Text = HScroll1.Value End Sub 这样，程序运行时，单击水平滚动条，文本框内就会显示相应的数字。程序如图
VB程序设计 怎么设置滚动条位置
假设按钮名为Command1,Command2,Command3，滚动条名为HScroll1则直接添加如下代码到窗体中测试即可 Private Sub Command1_Click()If HScroll1.Value <= 20 Then HScroll1.Value = 0 Else HScroll1.Value = HScroll1.Value - 20 End If End Sub Private Sub Command2_Click()HScroll1.Value =...
