实验 VB 滚动条
实验名称滚动条的设计应用
一、实验目的
1．掌握滚动条的属性设置；
2．掌握滚动条的事件；
3．学会滚动条的设计应用。
二、实验内容
1、
2、在名称为Form1的窗体上画一个命令按钮和一个水平滚动条，其名称分别为Command1和Hscroll1，编写适当的事件过程。
程序运行后，如果单击命令按钮，则按如下要求设置水平滚动条的属性：
Max=窗体宽度
Min=0
LargeChange=50
SmallChange=10
而如果移动水平滚动条的滚动框，则在窗体上显示滚动框的位置值。
3、
4、在窗体上画一个标签，输入内容为自己姓氏，再画一个水平流动条，滚动条的最小值为8，最大值为200，SmallChange为3，largeChange为10。
程序运行时，当滚动框的位置发生改变时标签上的字也跟着变大。
5、
6、调色板制作：按照给出的调色板应用程序的功能。
自己动手实现。
说明：窗体上有8个标签，其中7个标签的标题如图所示，还有一个标签用于显示颜色。
还有3个滚动条（取值范围是0~255，即颜色的取值范围。
），2个命令按钮。
程序运行：通过调整红，绿，蓝，三种颜色的滚动条中的值来实现颜色的修改。
提示：颜色的合成要使用RGB（red,green,blue）这个函数，其中red、green、blue是分别代表红，绿，蓝的三个数据，值在0到255之间。
三、实验体会。
二是利用VB的picturebox和滚动条控件编程实现
二是利用VB的picturebox和滚动条控件编程实现PICTUREBOX控件能支持许多种图像格式，但没有缩放功能并且不自动添加滚动条，所以必须自行编程实现。
应用程序使用两个图片框，一个作为包容器，可称之为父图片框，另一个作为子图片框显示图形，配合滚动条控件在父图片框内移动子图片框就可实现画面的滚动。
VB中提供了paintpicture方法，可以在窗体、图片框上的任何地方绘制图形，语法为object.PaintPicture picture, x1, y1, width1, height1, x2,y2, width2, height2, opcode,其中x1,y1为指定在object 上绘制picture的目标坐标；width1,height1 指定picture 的目标宽度和高度；x2,y2指定picture 内剪贴区的坐标width2,height2 指定picture 内剪贴区的源宽度和高度，当我们重新设定width1,height1时，就可以在子图片框内实现平滑的缩放图片。
虽然Paintpicture可以代替bitblt windows API函数，但没有API的执行速度快，如程序对速度的要求比较高，可用API函数代替paintpicture方法。
在窗体中先画出picture1作为父图片框,然后在其中中画出picture2，在窗体中再画出滚动条，picture2的autosize属性为TRUE，borderstyle属性为0，autoredraw属性为true,滚动条的largechange和smallchange属性设为合适大小,窗体既设置完毕。
以下为可以直接使用的完整程序，可以用光标键移动画面，也可以拖放方式移动画面；用加减号缩放画面。
Public c1, c2, c3, c4 As IntegerPublic tf, d1, d2, d3, d4, blf As IntegerPublic yk, yg As LongPrivate Sub Form_Load()c1 = Form1.Widthc2 = Form1.Heightblf = 100Picture2.Picture = LoadPicture("a:\ddd.jpg")yk = Picture2.Widthyg = Picture2.HeightEnd SubPrivate Sub Form_Resize()If Width > 1500 And Height > 1170 Thenc3 = Form1.Width - c1c4 = Form1.Height - c2Picture1.Move Picture1.Left, Picture1.Top, Picture1.Width + c3, Picture1.Height + c4 c1 = Form1.Widthc2 = Form1.HeightCall pEnd IfPicture2.SetFocusEnd Sub'以拖放方式滚动画面Private Sub Picture2_DragDrop(Source As Control, x As Single, y As Single)If Picture2.Height > Picture1.Height Then '通过计算鼠标移动位置，调用vscroll_change事件cccc = VScroll1.V alue + (d2 - y) '移动画面If cccc <= 0 Thencccc = 0End IfIf cccc >= VScroll1.Max Thencccc = VScroll1.MaxEnd IfVScroll1.V alue = ccccEnd IfIf Picture2.Width > Picture1.Width Thencccc1 = HScroll1.V alue + (d1 - x)If cccc1 <= 0 Thencccc1 = 0End IfIf cccc1 >= HScroll1.Max Thencccc1 = HScroll1.MaxEnd IfHScroll1.V alue = cccc1End IfEnd Sub'设置功能键，光标键移动画面，加减号缩放画面Private Sub Picture2_KeyDown(KeyCode As Integer, Shift As Integer)Select Case KeyCodeCase vbKeyLeftHScroll1.V alue = IIf(HScroll1.V alue - HScroll1.SmallChange < 0, 0, HScroll1.V alue - HScroll1.SmallChange)Case vbKeyRightIf Picture2.Width > Picture1.Width ThenHScroll1.V alue = IIf(HScroll1.V alue + HScroll1.SmallChange > HScroll1.Max, HScroll1.Max, HScroll1.V alue + HScroll1.SmallChange)End IfCase vbKeyUpVScroll1.V alue = IIf(VScroll1.V alue - VScroll1.SmallChange < 0, 0, VScroll1.V alue -VScroll1.SmallChange)Case vbKeyDownIf Picture2.Height > Picture1.Height ThenVScroll1.V alue = IIf(VScroll1.V alue + VScroll1.SmallChange > VScroll1.Max, VScroll1.Max, VScroll1.V alue + VScroll1.SmallChange)End IfCase vbKeyAddIf blf < 150 Thenblf = blf + 25Call fs(blf)End IfCase vbKeySubtractIf blf > 50 Thenblf = blf - 25Call fs(blf)End IfEnd SelectEnd SubPrivate Sub Picture2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) d1 = xd2 = yPicture2.Drag 1Set Picture2.DragIcon = LoadPicture("a:\plane.ico")End SubSub p()'画面和滚动条重设置程序Picture2.Move 0, 0HScroll1.Top = Picture1.Height + Picture1.TopHScroll1.Left = Picture1.LeftHScroll1.Width = Picture1.WidthVScroll1.Top = Picture1.TopVScroll1.Left = Picture1.Width + Picture1.LeftVScroll1.Height = Picture1.HeightHScroll1.Max = (Picture2.Width - Picture1.Width)VScroll1.Max = (Picture2.Height - Picture1.Height)VScroll1.Visible = (Picture1.Height < Picture2.Height)HScroll1.Visible = (Picture1.Width < Picture2.Width)End SubPrivate Sub VScroll1_Change()Picture2.Top = -VScroll1.V aluePicture2.SetFocusEnd SubPrivate Sub HSCROLL1_Change()Picture2.Left = -HScroll1.V aluePicture2.SetFocusEnd SubSub fs(bl1 As V ariant) '画出缩放Dim bl As V ariantbl = bl1 / 100Form1.MousePointer = vbHourglassPicture2.Width = yk * blPicture2.Height = yg * blPicture2.RefreshPicture2.PaintPicture Picture2.Picture, 0, 0, yk * bl, yg * bl, 0, 0, yk, ygCall pIf VScroll1.Visible ThenVScroll1.V alue = IIf(VScroll1.V alue * bl > VScroll1.Max, VScroll1.Max, VScroll1.V alue * bl) End IfIf HScroll1.Visible ThenHScroll1.V alue = IIf(HScroll1.V alue * bl > HScroll1.Max, HScroll1.Max, HScroll1.V alue * bl) End IfForm1.MousePointer = vbDefaultEnd Sub一、数据库的设计数据库可以采用微软的Access97或者SQL Server来进行，首先新建一张表，取名为Table，添加三个字段，分别是：姓名Char型（SQL Server中）文本型（Access中）；编号Char型（SQL Server中）文本型（Access中）；照片image型（SQL Server中）OLE对象（Access 中），设计好后存盘。
VB实验4
实验4：基本用户界面设计实验目的：1.掌握单选按钮，复选按钮，计时器的主要属性和事件的用法2.掌握框架的相关属性。
3.列表框，组合框和滚动条的相关属性、事件和方法。
实验原理：1.VB基本控件的属性、事件和方法实验步骤：（实验程序效果见附件）1. 字体控制对话框：设计一个字体控制对话框，如图所示。
要求：在单选按钮和复选按钮选中后，文本框中文字的字体效果随之改变。
用户界面及运行界面如图：2.闪烁文字：编写程序，利用计时器实现文字闪烁功能，即使标签中文字随机变成qbcolor 函数所提供的15种颜色，实现闪烁效果。
（提示：关于vb中颜色的使用见文档最后，qbcolor的参数0~15可由随机数产生）3. 电子滚动屏幕（难度一）：单击“开始”按钮，“热烈欢迎”从窗体右侧向左侧移动，按钮名称改为“继续”，当单击“暂停”按钮时，字幕暂停移动，“继续”按钮被激活。
（提示：使用计时器，计时事件中移动标签，标签的水平移动即修改其left值，请参见第一次实验题目。
点击开始和继续按钮时，时计时器的Enable属性为true，点击暂停时，设为false即可。
）3.电子滚动屏幕（难度二）：在上题的基础上，当标签移动到从左边框消失时，再从屏幕右侧重新向左移动。
效果见实验效果程序。
4.字体和字号：从组合框选择字体，通过滚动条滚动事件来调节文本框中字体的大小（8到72号字），并在窗体上的标签显示出字体的大小，窗体的界面如图所示。
5.篮球比赛组队：窗体装载时，利用列表框分别显示参赛队员名单和候补名单。
单击对应的方向键可以调整组队名单。
若组队名单已满5人，再添加时弹出提示框，用户界面和运行界面如图：（提示：使用list的additem方法和removeitem方法，同时注意msgbox语句的使用格式）附录：vb中颜色的表示1.RGB函数：RGB即Red，Green，Blue的简写，该函数通过三原色的值混合产生一种颜色。
函数格式：RGB（红色值，绿色值，蓝色值）说明：红，绿，蓝的值均为0~255的整数。
vb滚动条
滚动条(ScrollBar)滚动条常常用来附在某个窗口上帮助观察数据或确定位置，也可以用来作为数据输入的工具。
在日常操作中，我们常常遇到这样的情况：在某些程序中，如Photoshop ，一些具体的数值我们并不清楚，如调色板上的自定义色彩，这时，可以通过滚动条，用尝试的办法找到自己需要的具体数值。
在Visual Basic 中，滚动条分为横向（HscrollBar）与竖向（VscrollBar）两种，命名规则为：HsbX 或VsbX ，如HsbShow、VsbShow ，等等。
它们在工具箱上的图标如图所示：图一选中滚动条按钮，把鼠标指针放到界面设计区，然后拖动，画出符合自己要求的滚动条，或者直接双击该按钮，自动在界面设计区生成默认大小的滚动条，如图二所示：图二一、滚动条控件的属性：1、Max（最大值）与Min（最小值）属性：滚动块处于最右边（横向滚动条）或最下边（竖向滚动条）时返回的值就是最大值；滚动块处于最左边或最上边，返回的值最小，如图三所示：图三Max 与Min 属性是创建滚动条控件必须指定的属性，默认状态下，Max 值为32767 ，Min 值为0 。
本属性既可以在界面设计过程中予以指定，也可以在程序运行中予以改变，如：HsbShow.Min = 3HsbShow.Max = 302、Value（数值）属性：Value 属性返回或设置滚动滑块在当前滚动条中的位置，如图三所示。
改变滚动条value属性的方法有五种：直接在属性窗口中设定value值；鼠标单击两端箭头键改变滚动条数值；可将滚动框沿滚动条拖动到任意位置；用鼠标单击滚动条中滚动块两侧的部分，使滚动块以翻页的速度移动。
可以在程序运行中改变，如：HsbShow.Value = 243、SmallChange（小改变）属性：当用户单击滚动条左右边上的箭头时，滚动条控件Value 值的改变量就是SmallChange，如图四：图四4、LargeChange（大改变）属性：单击滚动条中滚动框前面或后面的部位时，引发Value 值按LargeChange 设定的数值进行改变，如图五：图五二、滚动条控件的事件：与滚动条控件相关的事件主要是Scroll 与Change时会触发Scroll 事件（但要注意，单击滚动箭头或滚动条时不发生Scroll 事件），滚动框发生位置改变后则会触发Change 事件。
VB列表框、组合框和滚动条
[教案]（七）列表框、组合框和滚动条授课方式：讲授法授课学时：4学时教学目的：通过本次课的学习，学生应该掌握列表框、组合框和滚动条控件的常用属性、方法和事件，并能够灵活的运用。
教学重点和难点：1．列表框和组合框的属性和方法；2．滚动条的常用属性和事件。
教学过程：列表框、组合框和滚动条一、列表框(ListBox)和组合框（ComboBox）1．作用介绍列表框和组合框的基本作用，以及他们使用环境的区别。
2．两者共有的重要属性使学生掌握以下5个共有属性（1）List（2）ListIndex（3）ListCount（4）Sorted（5）Text3．列表框特有的重要属性通过例题讲解列表框特有的4个属性：（1）Columns（2）ItemData（3）MultiSelect（4）Selected4．组合框特有的重要属性通过例题讲解决定组合框的类型和行为style属性。
5．方法介绍两者共有的以下三种方法--AddItem方法、RemoveItem和Clear方法。
（1）方法可以实现的功能（2）方法调用的语法格式6．事件列表框响应Click及DblClick事件组合框响应Click事件，只有Style=1的时候简单二、滚动条（ScrollBars）1．种类：介绍两种滚动条--水平滚动条（HScrollBar）和垂直滚动条（VScrollBar）结构上的区别。
2．常用属性：通过例题讲解它的常用5个属性--Value属性、Max属性、Min属性、LargeChange 属性和SmallChange属性3．事件--Change事件和Scroll事件（1）事件的具体应用情况（2）区别两种事件触发条件的区别学生作业：上机实验五：1．列表框、组合框2．滚动条[讲稿]（七）列表框、组合框和滚动条一、列表框(ListBox)和组合框（ComboBox）（一）、列表框ListBox1、作用：显示项目列表，用户可从中选择一个或多个项目。
Excel VBA编程 滚动条
Excel VBA编程滚动条滚动条是放置在窗体的独立控件。
它看上去与列表框或组合框的下拉部分中的滚动条类似。
然而，与它们不同的是，滚动条控件是独立的，并不是任何其他控件的组成部分。
在VBA工具箱中提供一种滚动条。
要创建水平或垂直滚动条，将已放置在窗体中的滚动条进行水平或垂直拖动就可以创建水平或垂直的滚动条。
多数情况下，滚动条控件与文本框、列表框等一起使用，通过它可以查看列表选项或数据，还可以进行数值输入。
借助最大值和最小值的设置，并配合滚动条中滚动块的位置，就能读取用户指定的数据。
1．滚动条常用属性滚动条控件常用的属性如下：●Value属性在滚动条控件中，滚动块所处的位置可以用数值代表。
Value属性值即为表示滚动块在滚动条中位置的数值。
对于水平滚动条，当滚动块处于最左边时，Value取最小值；而当滚动块处于最顶端时，Value取最小值。
反之，则Value的值为最大值。
在中间的各个位置，Value值与位置是按比例来设定的。
●Max属性用于确定滚动条在滚动块位于最底端(垂直滚动条)或最右边(水平滚动条)时可表现的最大值。
该属性可以指定-32768到32767之间的一个整数。
缺省值为32767。
●Min属性用于确定滚动条在滚动块位于最顶端(垂直滚动条)或最左边(水平滚动条)时可表现的最小值。
该属性可以指定-32768到32767之间的一个整数。
缺省值为0。
●LargeChange属性设定单击滚动条中间的滚动块时，每次增减的数值。
●SmallChange属性设定单击滚动条中的箭头时，每次增减的数值。
2．滚动条常用事件滚动条控件常用的事件主要包含两种，其功能如下：●Change事件当单击滚动条的箭头或两箭头之间的区域引起Value属性值变化时而发生的事件。
它与Scroll事件一样都是最常用来实现指定功能的事件。
●Scroll事件移动滚动块时发生，而单击滚动条中的箭头或滚动条时不发生。
例如，使用滚动条来调节数值大小，如图所示。
VB中编辑代码窗口的滚动条怎么不能通过鼠标滑轮控制解决办法
VB中编辑代码窗口的滚动条怎么不能通过鼠标滑轮控制解决办法
1.下载VB 6.0 鼠标Wheel.exe 文件(/download/e/f/b/efb39198-7c59-4ace-a5c4-8f0f88e00d34/vb6m ousewheel.exe)。
解压后有一个VBA Mouse Wheel Fix文件，双击。
有一个VB6IDEMouseWheelAddin.dll 文件，复制到系统文件夹C:\Windows\System32下。
2.单击开始，在搜索栏键入regsvr32 VB6IDEMouseWheelAddin.dll
3.启动Visual Basic 6.0。
在窗口单击加载项管理器（或外接程序管理器），然后单击加载项管理器（或外接程序管理器）。
5.在加载项管理器（或外接程序管理器）列表, 单击MouseWheel fix 。
6.在available add-ins（可用外接设备）列表中，选择“mousewheel fix”，在load behavior （加载行为）栏中单击选中loaded/unloaded（加载/卸载）和load on startup（在启动中加载）复选框
7.单击确定。
VB实验案例(数组)
实验五数组一、控件属性的设置 (滚动条)1、在名称为Forml的窗体上添加一个名称为H1水平滚动条，请在属性窗口中设置它的属性值，满足下列要求：它的最小刻度值为1，最大刻度值为100，在程序运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。
再在滚动条下面画两个名称分别为L1、L2的标签，并分别显示1、100，运行时的窗体如图5-1所示。
工程文件名保存为sy5-1.vbp，窗体文件名为sy5-1.frm。
2、在名称为Form1的窗体上添加一个名称为HS1的水平滚动条，其刻度值范围为1 -100；添加一个命令按钮，名称为C1，标题为"移动滚动框"。
请编写适当的事件过程，使得在程序运行时，每单击命令按钮一次(假定单击次数不多于10次)，滚动框向右移动10个刻度。
程序运行时的窗体如图5-2所示。
要求程序中不得使用变量，事件过程中只能写一条语句。
工程文件名保存为sy5-2.vbp，窗体文件名保存为sy5-2.frm。
3、在名称为Form1的窗体上画一个图片框，其名称为Picture1、一个水平滚动条，名称为HScroll1，和一个命令按钮，名称为Command1，标题为"设置属性"，通过属性窗口在图片框中装入一个图形(文件名为pic1.jpg，位于考生目录下)，图片框的高度与图形的高度相同，图片框的宽度任意(如图1所示)。
编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的如下属性：Min 100Max 1500LargeChange 100SmallChange 10之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。
程序运行后的窗体如图5-3所示。
要求程序中不得使用任何变量。
工程文件名为sy5-3.vbp，窗体文件名为sy5-3.frm。
4、在控件属性1文件夹下有一个工程文件sy5-4.vbp，窗体上有一个圆和一个矩形，还有水平和垂直滚动条各一个。
VB实验3
需要提交的文件 GUI\G3_04.vbp GUI\G3_04.frm GUI\G3_04.exe GUI\G3_04.jpg（结果图） （结果图）
图一
图二
图三
需要提交的文件：GUI\ 需要提交的文件：GUI\G3_01.vbp GUI\G3_01F1.frm(对应第一个Form文件 对应第一个Form文件） GUI\G3_01F1.frm(对应第一个Form文件） GUI\G3_01F2.frm (对应第二个Form文件） GUI\ (对应第二个Form文件） 对应第二个Form文件 GUI\ GUI\G3_01.exe GUI\G3_01A.jpg（图一） GUI\G3_01A.jpg（图一） GUI\G3_01B.jpg（图二） GUI\G3_01B.jpg（图二） GUI\G3_01C.jpg（图三） GUI\G3_01C.jpg（图三）
G3_03: 制作趣味调色板 设计一个趣味调色板。通过改变红、 设计一个趣味调色板。通过改变红、绿、蓝三种基本颜色 的比例，显示调色结果。 具体步骤： 的比例，显示调色结果。 具体步骤：
1、在界面上放置3个滚动条控件（HScrollBar水平滚动条）， 在界面上放置3个滚动条控件（HScrollBar水平滚动条）， 水平滚动条 个标签（label）控件， 个形状（shape）控件， 4个标签（label）控件，1个形状（shape）控件，其中形状控 件是用来显示调出的颜色结果的， 件是用来显示调出的颜色结果的，标签控件则分别用来静态显 调色板”信息， 示“红”、“绿”、“蓝”和“调色板”信息，三个滚动条则 用来在程序执行时调整三原色的配比比例。 用来在程序执行时调整三原色的配比比例。 2、形状控件shape的初始设置：Shape属性设置值为“oval” 形状控件shape的初始设置：Shape属性设置值为“ shape的初始设置 属性设置值为 或者“circle”；Backstyle属性设置值为 属性设置值为“ 或者“circle”；Backstyle属性设置值为“opaque” 。 3、程序中使用RGB函数。该函数的完整格式： 程序中使用RGB函数。该函数的完整格式： RGB函数 RGB（red，green，blue） RGB（red，green，blue） 其中的red green、blue分别代表红 red、 分别代表红、 蓝的三个整型数据， 其中的red、green、blue分别代表红、绿、蓝的三个整型数据， 其值在0 255之间 如果超过255 则当作255处理）。 之间（ 255， 255处理 其值在0～255之间（如果超过255，则当作255处理）。 合理搭配这三个整型数据，就可以得到全部色彩。 合理搭配这三个整型数据，就可以得到全部色彩。
VB中Listbox控件添加水平垂直滚动条问题解决
VB中Listbox控件添加水平垂直滚动条问题解决(1)VB中Listbox控件若条目足够多，则自动会显示垂直滚动条(2)若仅仅需要水平滚动条，且每向右滚动一下移动一个条目，则将控件的columns 属性设为1(3)如果需要两种滚动条，则仅仅考虑水平滚动条即可，这时需要引入API函数，先判断是否超出条目范围，如果超出，则调用API生成水平滚动条，具体代码如下：代码：vb 为listbox添加水平滚动条Private Declare Function SendMessage Lib "user32 " Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const LB_SETHORIZONTALEXTENT = &H194Private Sub setListWidth()'如果列表框不够宽，则增加水平滚动条Dim i As IntegerDim List_MaxL As Integer'获得选项内容的最大长度For i = 0 To demo_lbox.ListCount - 1''让list_maxl中保存最长的一条字串If Len(demo_lbox.List(i)) > List_MaxL ThenList_MaxL = Len(demo_lbox.List(i)) + 2End IfNext i'判断是否内容显示不完全，如果是则添加水平滚动条If Me.TextWidth("AA ") * List_MaxL > demo_lbox.Width ThenSendMessage demo_lbox.hwnd, LB_SETHORIZONTALEXTENT, Me.TextWidth("a") * List_MaxL, ByVal 0&End IfEnd SubPrivate Sub Form_Load()Dim i As Integer'为ListBox控件添加选项For i = 0 To 100demo_lbox.AddItem ("这是，最据jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj：（第" + CStr(i)) & "行）"'demo_lbox.AddItem ( "（第" + CStr(i)) & "行）"Next i' 设置窗体坐标尺度模式和字体大小Me.ScaleMode = vbPixelsMe.FontSize = demo_lbox.FontSize'设置列表框的水平滚动条Call setListWidthEnd Sub。
VB控件大全属性详解 水平滚动条
作者：杜 勇
属性
说明
(Name)
控件对象的名称
CauseValidation
该控件获得焦点时,失去焦点的控件的Validate事件是否发生。取值为：
True 发生
获得或设置与对象相关联的上下文号
Width
设置该对象的宽度
False 不发生
DragIcon
该对象在拖动过程中鼠标的图标
DragMode
该对象的拖动模式,取值为：
0 Manual(手动)
1 Automatic(自动)
Enabled
用于设定是或对事件产生响应,取值为：
True 可用
False 不可用,在执行程序时,该对象用灰色显示,并且不响应任何事件
Height
MousePointer=99时,设定一个自定义的鼠标图标
MousePointer
RightToLeft
文本书写是否自左向右。取值为：
True
False 自右向左
SmallChange
用于设置单击滚动条两端箭头时,每单击一次滚动条移动的数量。
TabIndex
获得或设置此对象在父窗体的编号(父窗体中对象响应Tab键的顺序)
TabStop
设置是否可以用"Tab"键选取此对象。取值为：
True 可以
False 不可以
Tag
存储程序所需的附加数据
Top
距窗体顶部边界的距离
Value
该属性值对应于滚动框在滚动条中的相应位置,是一个整数。