[工学]VB教程第6章数组.pptVIP

6.4 控件数组 2．在运行时添加或删除控件数组 在程序设计阶段建立控件数组元素后，有时还需要在程序运行时添加（载入）或删除（卸载）数组元素。可以用Load语句实现添加操作，用Unload语句实现删除操作。其格式分别如下： Load 控件名（下标） Unload 控件名（下标） 需要说明的是，使用Load语句实现添加数组元素，在默认情况下是不可见的。因此在添加后需要在程序中将其Visible属性设置为True。 ■创建和使用控件数组 6.4 控件数组 2．在运行时添加或删除控件数组 例【7-7】设计一个与例【7-6】一样功能(计算和、差、积)的程序。但程序的设计界面如图。在程序运行后添加后2个命令按钮控件数组元素。 ■创建和使用控件数组 6.4 控件数组 创建步骤： 1)在窗体上添加3个文本框，2个标签，一个含一个命令按钮控件数组，并按图设计它们的属性。 ■创建和使用控件数组 2)添加如下代码： Private Sub Form_Load() Dim cmdarrwidth As Single, cmdarrtop As Single Dim i As Integer cmdarrwidth = Command1(0).Width cmdarrtop = Command1(0).Top For i = 1 To 2 Load Command1(i) Command1(i).Left = Command1(i - 1).Left + cmdarrwidth + 100 Command1(i).Top = cmdarrtop Command1(i).Caption = IIf(i = 1, 计算差, 计算积) Command1(i).Visible = True Next End Sub 6.4 控件数组 Private Sub Command1_Click(Index As Integer) Label2.Caption = = Select Case Index Case 0 Label1.Caption = + Text3.Text = Val(Text1.Text) + Val(Text2.Text) Case 1 Label1.Caption = - Text3.Text = Val(Text1.Text) - Val(Text2.Text) Case 2 Label1.Caption = * Text3.Text = Val(Text1.Text) * Val(Text2.Text) End Select End Sub ■创建和使用控件数组 6.5 滚动条控件(ScrollBar) 1．Value属性 返回或设置滚动条的当前位置，其返回值始终介于 Max和 Min属性值之间的整数。 2．Max、 Min属性 返回或设置滚动条所能代表的最小、最大值，其取值范 围为-32768~32767。Min属性的默认值为0，Max属性的默 认值为32767。 3．LargeChange、 SmallChange属性 LargeChange属性返回和设置当用户单击滚动条和滚动 箭头之间的区域时，滚动控件Value属性值的改变量。SmallChange属性返回和设置当用户单击滚动箭头时， 滚动控件Value属性值的改变量。LargeChange和 SmallChange属性的取值范围是1~32767之间的整数，包括1和32767，默认设置值都为1。 ■常用的属性和事件 6.5 滚动条控件(ScrollBar) 4．Change 事件和Scroll事件 在程序运行过程中，每当滚动条的Value属性发生变化 时，就发生Change 事件。而每当用户用鼠标单击滚动箭 头，单击滚动框与滚动箭头之间的区域或沿着滚动条拖动 滚动框的动作结束时，滚动条的Value属性值就发生变化。 尽管拖动滚动框会引起Value属性值发生变化，但在滚 动条内拖动滚动框的过程中，并不发生Change 事件。此 时将触发滚动条的Scroll事件，当然滚动框的位置改变 后，又将触发Change 事件。 ■常用的属性和事件 6.5 滚动条控件(ScrollBar) 4．Change 事件和Scroll事件 在实际编程中，常用Scroll事件过程来跟踪滚动条在拖 动时数值的动态变化；常利用Change 事件来获得滚动条 变化后Value属性的最终值。 ■常用的属性和事件 6.5 滚动条控件(ScrollBar) 当项目列表很长或者信息量很大时，可以使用滚动条来模拟当前处理所在的位置。 例【7-8】 随机产生10000个两位整数每次产生一个放在数组中，然