《VB方法大全》由会员分享，可在线阅读，更多相关《VB方法大全（32页珍藏版）》请在金锄头文库上搜索。
1、AddItem 方法示例?/a 应用于用于将项目添加到 ListBox 或 ComboBox 控件，或者将行添加到 MS Flex Grid 控件。不支持命名参数。语法object.AddItem item, indexAddItem 方法的语法包含下列部分：:部分描述object必需的。一个对象表达式，其值为“应用于”列表中的一个对象。Item必需的。字符串表达式，它用来指定添加到该对象的项目。这仅仅对于 MS Flex Grid 控件，才能使用 tab字符（字符代码 09）分隔将要插入到新添加行中每列的多重字符串。Index可选的。是整数，它用来指定新项目或行在该对象中的位置。对于 Lis
2、tBox 或 ComboBox 控件的首项，或者对于 MS Flex Grid 控件的首行，index 为 0。说明如果所给出的 index 值有效，则 item 将放置在 object 中相应的位置。如果省略 index，当 Sorted 属性设置为 True 时，item 将添加到恰当的排序位置，当 Sorted 属性设置为 False 时， item 将添加到列表的结尾。绑定到 Data 控件的 ListBox 或 ComboBox 控件不支持 AddItem 方法。AddItem 方法示例本示例使用 Addltem 方法增加 100 项给一个列表框。要检验此示例，可将本例代码粘贴到一个
3、带有被命名为 List1 的 ListBox 控件的窗体的声明部分，然后按 F5 键并单击该窗体。Private Sub Form_Click () Dim Entry, I, Msg 声明变量。 Msg = Choose OK to add 100 items to your list box. MsgBox Msg 显示信息。 For I = 1 To 100 计数值从 1 到 100。 Entry = Entry & I 创建输入项。 List1.AddItem Entry 添加该输入项。 Next I Msg = Choose OK to remove every other entr
4、y. MsgBox Msg 显示信息。 For I = 1 To 50 确定如何 List1.RemoveItem I 每隔一项 Next I 删除。 Msg = Choose OK to remove all items from the list box. MsgBox Msg 显示信息。 List1.Clear 清除列表框。End Sub应用于：ComboBox 控件ListBox 控件相关基础知识：命名参数一参数，在对象库中预先定义了其名称。对每个参数，不必拘泥于语法所规定的特定顺序来提供值，而是只需按任何顺序用命名参数分配值。例如，假设一方法接受了三个参数：DoSomeThing n
5、amedarg1, namedarg2, namedarg3在对命名参数赋值时，可使用以下语句：DoSomeThing namedarg3 := 4, namedarg2 := 5, namedarg1 := 20注意，命名的参数不必按语法中安排的正规顺序出现。对象表达式说明具体对象的表达式，可以包含对象的容器。例如，应用程序可以拥有 Application 对象，其中包含 Document 对象，而 Document 对象又包含 Text 对象。字符串表达式任何其值为一连串字符的表达式。字符串表达式的元素可包含返回字符串的函数、字符串文字、字符串常数、字符串变量、字符串 Variant 或返
6、回字符串 Variant (VarType 8) 的函数。Circle 方法示例应用于在对象上画圆、椭圆或弧。语法object.Circle Step (x, y), radius, color, start, end, aspectCircle 方法的语法有如下的对象限定符和部分：部分描述object可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。Step可选的。关键字 ，指定圆、椭圆或弧的中心，它们相对于当前 object 的 CurrentX 和 CurrentY 属性提供的坐标。(x, y)必需的。 Single （单精度浮点
7、数），圆、椭圆或弧的中心坐标。object 的 ScaleMode 属性决定了使用的度量单位。radius必需的。Single （单精度浮点数），圆、椭圆或弧的半径。 object 的 ScaleMode 属性决定了使用的度量单位。color可选的。Long （长整型数），圆的轮廓的 RGB 颜色。如果它被省略，则使用 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。start, end可选的。 Single （单精度浮点数），当弧、或部分圆或椭圆画完以后，start 和 end 指定（以弧度为单位）弧的起点和终点位置。其范围从 -2 pi 到 2 pi 。起点
8、的缺省值是0; 终点的缺省值是2 * pi。aspect可选的。 Single （单精度浮点数），圆的纵横尺寸比。缺省值为 1.0，它在如何屏幕上都产生一个标准圆（非椭圆）。说明想要填充圆，使用圆或椭圆所属对象的 FillColor 和 FillStyle 属性。只有封闭的图形才能填充。封闭图形包括圆、椭圆、或扇形。画部分圆或椭圆时，如果 start 为负，Circle 画一半径到 start，并将角度处理为正的；如果 end 为负，Circle 画一半径到 end，并将角度处理为正的。Circle 方法总是逆时针（正）方向绘图。画圆、椭圆或弧时线段的粗细取决于 DrawWidth 属性值。在
9、背景上画圆的方法取决于 DrawMode 和 DrawStyle 属性值。画角度为 0 的扇形时，要画出一条半径（向右画一水平线段），这时给 start 规定一很小的负值，不要给 0。.可以省略语法中间的某个参数，但不能省略分隔参数的逗号。您指定的最后一个参数后面的逗号是可以省略的。Circle 执行时，CurrentX 和 CurrentY 属性被参数设置为中心点。这个方法不能用在 With匛nd With 语句块中。Circle 方法示例这个示例用Circle 方法在窗体中央画许多同心圆。要运行这个示例，将此代码放入窗体的 General 部分。按 F5 并单击窗体。Sub Form_Cl
10、ick () Dim CX, CY, Radius, Limit Declare variable. ScaleMode = 3 以像素为单位。 CX = ScaleWidth / 2 X 位置。 CY = ScaleHeight / 2 Y 位置。 If CX CY Then Limit = CY Else Limit = CX For Radius = 0 To Limit 半径。 Circle (CX, CY), Radius,RGB(Rnd * 255, Rnd * 255, Rnd * 255) Next RadiusEnd Sub应用于：Form 对象、Forms 集合Pictur
11、eBox 控件PropertyPage 对象UserControl 对象相关基础知识：对象表达式说明具体对象的表达式，可以包含对象的容器。例如，应用程序可以拥有 Application 对象，其中包含 Document 对象，而 Document 对象又包含 Text 对象。关键字Visual Basic 程序语言中的保留字或符号；例如， 语句、函数名称或运算符。焦点在任何时间接收鼠标单击或键盘输入的能力。在 Microsoft Windows 环境中，在同一时间只有一个窗口、窗体或控件具有这种能力。“具有焦点”的对象通常会以突出显示标题或标题栏来表示。用户或应用程序可设置焦点。Clear 方
12、法示例清除 Err 对象的所有属性设置。语法object.Clearobjec 总是 Err 对象。说明在处理错误之后使用 Clear 来清除 Err 对象，例如，在对 On Error Resume Next 使用拖延错误处理时就可使用 Clear。每当执行下列语句时就会自动调用 Clear 方法： 任意类型的 Resume 语句。 Exit Sub, Exit Function, Exit Property 任何 On Error 语句。 注意 当处理因访问其他对象产生的错误时，与其使用 On Error GoTo，不如使用 On Error Resume Next。每一次与对象打交道之后
13、都检查 Err，则可消除代码访问对象时的含混之处。可以确认是哪个对象将错误引入 Err.Number 中，也可以确认最初是哪个对象产生了这个错误（Err.Source 中指定的对象）。Clear 方法示例本示例使用 Err 对象的 Clear 方法将 Err 对象之数值属性重新设置为零，并将其字符串属性设置为零长度字符串。如果在代码中省略 Clear 方法，则每完成一次循环便会显示一次错误信息（发生错误之后），不论程序中的计算结果是否真的有错误。Dim Result(10) As Integer 声明数组变量 其元素容易溢出Dim indxOn Error Resume Next 将错误处理的
14、方式改为“继续下一行”。Do Until indx = 10 下面计算若有错误发生，便显示错误信息。 Result(indx) = Rnd * indx * 20000 If Err.Number 0 Then MsgBox Err, , Error Generated: , Err.HelpFile, Err.HelpContext Err.Clear 清除 Err 对象的属性。 Else indx = indx + 1 End IfLoop相关基础知识：属性对象的命名属性。属性定义了对象特性，像大小、颜色、对象状态等。语句在语法上为完全的单元，可表达一种动作、声明或定义。尽管可以用分号 (:) 使一行中包含多个语句，但语句通常要占据一行。也可用续行符 ( _) 在第二个物理行上继续一个逻辑行上的内容。Cls 方法示例应用于清除运行时 Form 或 PictureBox 所生成的图形和文本。语法object.Clsobject 所在处代表一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，则带有焦点的 Form 就被认为是 object。说明Cls 将清除图形和打印语句在运行时所产生的文本和图形，而设计时在 Form 中使用 Picture 属性设置的背景位图和放置的控件不受 Cls 影响。
