[工学]VB6常用方法汇编.doc

文件 第  PAGE 226 页 一 语法和编程方法 基本语法 过程 Sub abc (i As Long ) 语句 End Sub 调用：abc ii 或者：call abc(ii) 如果要返回参数变化： Sub abcd ( ByRef i As Long ) 语句 End Sub 函数 Function a1 (i As Long ) 语句 a1=s0 ‘返回 End Function 有时会出现计算了i值，引起原来调用的变量跟着发生变化，这时要用： Function a1 ( ByVal i As Long ) 中止运行 中止循环： Exit Do Exit For 中止过程： Exit Sub Exit Function 如果要中止目前的Form，用： Unload Me 强迫中止目前程序，用 End 注意这时不做任何关闭处理。 使用静态变量 放置控件: Form1:Label1,Command1 属性设置: cLabel1.Autosize= true代码:Private Sub Command1_Click() Static stflag As Boolean 使用静态变量来保存变量值 If stflag = False Then Label1.Font.Size = 14 stflag = True Else Label1.Font.Size = 9 stflag = False End If End Sub 数据转换 CBool(expression)、CByte(expression)、CCur(expression)、CDate(expression)、CDbl(expression)、CDec(expression)、CInt(expression)、CLng(expression)、CSng(expression)、CStr(expression)、CVar(expression)、CStr(expression)。 创建对象 放置控件: Form1:Command1,text1 代码:Private Sub Command1_Click() Dim t1 As TextBox Set t1 = Form1.Text1 If t1.Text = 0 Then t1.BackColor = 0 t1.ForeColor = 255 End If End Sub 运行时，只要在Text1中写入0，点击Command1，Text1框就变色了。 如不用t1对象，则程序中t1.BackColor要写成form1.text1.BackColor，比较麻烦。 清空对象 使用new。如果对于集合Strs： Set Strs = New Collection 自定义方法和属性 放置控件: Form1:Command1,text1 代码:Public tsize As Integer 定义属性 Public Sub textlarge() 定义方法 Text1.Width = Text1.Width * 1.1 Text1.Height = Text1.Height * 1.1 Text1.FontSize = Text1.FontSize + tsize End Sub Private Sub Command1_Click() Form1.tsize = 4 Form1.textlarge End Sub 遍历控件集合 放置控件: Form1:Label1,Command1,text1,list1 代码:Private Sub Form_Load() Dim myc1 As Control For Each myc1 In Controls List1.AddItem myc1.Name Next myc1 End Sub 集合寻址 放置控件: Form1:Label1,Command1,text1,list1 代码:Private Sub Command1_Click() Text1 = Controls(3).Left Text1 = Controls(label1).Left Text1 = Controls!label1.Left End Sub If If (i Len(s0) - 1) Then Bl = False End If 必要要加End If。 For Next 可以倒序。 For i = 20 To 0 Step -1 Strs(1).Add (i * 10) Next i 如果明确，最后next i的i可以