vb常用方法汇编.doc

VB6常用方法汇编 02年09月10日 11:33 互联网 使用静态变量 放置控件: 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 创建对象 放置控件: 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 如不用t1对象，则程序中t1.BackColor要写成form1.text1.BackColor，比较麻烦。 自定义方法和属性 放置控件: 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 代码换行和并行 变量： a1 = 2: a2 = 3: a3 = 4 并行 b1 = a1 + a2 + _ 换行 a3 对于字符串： s1 = “sadd” c1 “qwer” 联接 s1 = “sadd” c1 “qwer” _ 换行 “fjkgjgj06” 打印和显示换行 s1 = ”fjdkkjd” vbcrlf “iioknno” 强迫变量声明 Option Explicit 还可以在菜单【工具】‖【选项】(编辑器)中选[要求变量声明]，自动在每个模块上加Option Explicit 查找字符串显示长度 Public Function len1(str As String) As Integer ‘公用函数 Dim si, i As Integer Dim str1 As String si = 0 For i = 1 To Len(str) str1 = Mid(str, i, 1) If Asc(str1) 0 Then si = si + 2 ‘汉字长度为2 Else si = si + 1 End If Next len1 = si End Function 截取字符串定长 Public Function len2(s2 As String, si As Integer) As String Do While len1(s2) si s2 = Mid(s2, 1, Len(s2) - 1) Loop len2 = s2 End Function 截取并补齐定长字符串 Public Function len3(s2 As