快上课了……
谢谢大家了!!! Private Sub Command4_Click() '点命令按纽.执行下列代码 Dim filename1 As String ' 定义一个字符串变量 Dim fsomes As New FileSystemObject, txtmes As TextStream '创建 FSO 对象的一个实例 dia1.ShowOpen '打开对话框, filename1 = dia1.FileName '将对话框选取的路径给字符串 Set txtmes = fsomes.OpenTextFile(filename1, ForReading) '通过FSO 对象的一个实例读取文件,并把文件内容送给文本框,text2 Text2.Text = txtmes.ReadAll txtmes.Close '关闭 Exit Sub End Sub
Private Sub Form_Load() '添加Windows XP Blue风格 BSE1.SchemeStyle = 0 BSE1.EndSubClassing BSE1.InitSubClassing End Sub Private Sub Combo1_Change()
End Sub Private Sub Command1_Click() '点命令按纽.执行下列代码 Dim a As String Dim m As Integer '定义am为字符串变量 Dim c As Integer '定义c为整形变量
a = Text2.Text 'a得到text2中输入的内容 m = 0 c = Len(a) 'c得到a的长度.计字符个数 If a = "" Then '判断a是否为空. Text1.Text = 0 '为空是,在text1中输出0 Else '不为空是执行下面6行代码 For i = 1 To c '循环c次,即有几个字符,就判断几次 If Mid(a, i, 1) = " " Then '判断如果a中的第i个字符为空格,让m加一. m = m + 1 While Mid(a, i, 1) = " " '如果a中的第i个字符为空格,就让i加一,直到i个字符不为空格为止, i = i + 1 Wend End If '判断结束 Next i '循环结束
Text1.Text = m + 1 '输出m的值 End If
End Sub
Private Sub Command2_Click() Text1.Text = "" Text2.Text = ""
End Sub
Private Sub Command3_Click() Unload Me
End Sub 我想再加上一点特色的,不知道该加点什么,大家给提点意见吧!!!
[此贴子已经被作者于2005-7-11 9:21:39编辑过]