统计VB窗体里特定文本框的个数

VB下统计字符串中所含某字符的个数~

首先保证窗体上有一个标签label1，一个按钮command1,一个文本框text1
Private Sub Command1_Click()
Dim ii As Integer, Ccount As Integer
For ii = 1 To Len(Text1)
If Mid(Text1, ii, 1) = "e" Then Ccount = Ccount + 1
Next ii
Label1.Caption = "共有" & Count & "个e"
End Sub

扩展资料：
字符串函数（String processing function）也叫字符串处理函数，指的是编程语言中用来进行字符串处理的函数，如C，pascal，Visual以及LotusScript中进行字符串拷贝，计算长度，字符查找等的函数。
Visual Basic

定位函数
InStr,InStrRev,InStrB

截取函数
Mid,Right,Left

替换函数
Replace

分割函数
Split

格式化输出
Format

比较函数
StrComp,Like

长度计算
Len,LenB

编码转换
StrConv

大小写转换
LCase,UCase

重复产生
String,Space
参考资料来源：百度百科-字符串函数

如统计text个数（不适用于控件组）
Private Sub Command1_Click()
On Error GoTo a
Do
i = i + 1
a = Controls("text" & i)
Loop
a:
Print i - 1
End Sub

Visual Basic 6.0具有丰富的数据类型和众多的内部函数。其采用模块化和结构化程序设计语言，结构清晰，语法简单，容易学习。其中统计VB窗体里特定文本框的个数的方法为：

1、首先，我们绘制一个命令按钮，并双击进入。

2、然后我们输入要显示的窗体。

3、然后输入【.show】方法。

4、接下来我们就可以运行测试。

5、点击后，我们便可以看到第二个窗体。

注意事项：

Visual Basic 6.0利用数据控件可以访问Access、FoxPro等多种数据库系统，也可以访问Excel、Lotus等多种电子表格。

dim num as integer
num=0
for i=0 to 99
    if text1(i).text="完成" then
        num=num+1
    end if
next

最终num中就是“完成”的个数

Dim oText As TextBox
dim icount as Integer
‘遍历文本框
For Each oText In Me.text1
if otext.text="完成" then
icount=icount+1
Next

---

统计VB窗体里特定文本框的个数视频