(9.32)--VB面向对象程序设计控件参数.pptVIP

第6章 过程 6.5　对象参数例6.6　编写一个通用过程，在过程中设置字体属性，并调用该过程显示指定的信息。6.5.2 控件参数在通用过程中，只接收各种控件的形参叫控件参数。控件参数的数据类型为Control；在调用通用过程中的实参为控件名。通用过程如下：Sub fontout(ctrl1 As Control, ctrl2 As Control) With ctrl1 .FontSize = 18 .FontName = 幼圆 .FontItalic = True .FontBold = True .FontUnderline = True End With With ctrl2 .FontSize = 24 .FontName = 隶书 .FontItalic = False .FontUnderline = False End WithEnd Sub 在调用该过程时，必须考虑到作为实参的控件是否具有通用过程中所列的控件属性。如果用标签作为实参的控件，则在窗体上建立两个标签，然后编写如下的事件过程：Private Sub Form_Load() Label1.Caption = 功崇惟志 Label2.Caption = 业广惟勤End SubPrivate Sub Form_Click() fontout Label1, Label2End Sub想一想，还可以用什么控件作为实参？事件过程如何改？图片框控件可以吗？6.5　对象参数 说明：“控件名称”指的是控件参数（形参）的名字，即“As Control”前面的参数名。“控件类型”是代表各种不同控件的关键字，这些关键字是工具箱上各种控件的名称，例如Label(标签)、TextBox(文本框)、CommandButton(命令按钮)等。注意：在用指定的控件调用通用过程时，如果通用过程中的属性不属于这种控件，则会发生错误。为此，Visual Basic提供了一个TypeOf语句，用来限定控件参数的类型，其格式为：[If│Elself] TypeOf 控件名称 Is 控件类型6.5　对象参数 若使用TypeOf语句限定只能用文本框（TextBox）作为实参调用通用过程，则上述通用过程改为：Sub fontout(ctrl1 As Control, ctrl2 As Control) With ctrl1 .FontSize = 18 .FontName = 幼圆 .FontItalic = True .FontBold = True .FontUnderline = True End With If TypeOf ctrl1 Is TextBox Then ctrl1.text= 功崇惟志 End If With ctrl2 .FontSize = 24 .FontName = 隶书 .FontItalic = False .FontUnderline = False End With If TypeOf ctrl2 Is TextBox Then Ctrl2.text= 业广惟勤 End IfEnd Sub想一想，事件过程如何改？可以用什么控件作为实参？图片框控件可以吗？6.5　对象参数 例6.7　在窗体上建立一个标签、一个文本框和一个命令按钮，不断地单击窗体，可在窗体上随机移动这3个控件的位置。分析：标签、文本框和命令按钮都有Width和Height属性，都可用Move方法移动其位置，因此可编写一个控件参数的通用过程移动不同的控件在窗体上的位置。可编写一个函数过程产生整型随机数，确定控件在窗体上的水平和垂直方向的随机位置，然后用Move方法移到这个位置。6.5　对象参数 通用过程代码如下：Sub jump(ct1 As Control) Dim horiz As Integer, vert As Integer horiz = randint(0, Width - ct1.Width) vert = randint(0, Height - ct1.Height) ct1.Move horiz, vertEnd SubFunction randint(inmin As Integer, inmax As Integer) randint = Int((inmax - inmin + 1) * Rnd + inmin)End Function事件过程代码如下Private Sub Form_Click() Static i As Integer i = (i