VB教程 使用文本框和标签输入输出文字信息指导.ppt

第五章 使用文本框和标签输入输出文字信息 5.1 使用文本框处理字符信息 5.1.1 文本框的简单使用 例1 第五章 使用文本框和标签输入输出文字信息 清除按钮的click代码 Private Sub Command1_Click() Text1.Text = Text2.Text = Text3.Text = Text5.Text = Text1.SetFocus End Sub 退出按钮的click代码 Private Sub Command3_Click() End End Sub 第五章 使用文本框和标签输入输出文字信息 运算按钮的click代码 Private Sub Command2_Click() a = Val(Text1.Text) b = Val(Text3.Text) Select Case Text2.Text Case + c = a + b: Text5.Text = Str$(c) Case - c = a - b: Text5.Text = Str$(c) Case * c = a * b: Text5.Text = Str$(c) Case / c = a / b: Text5.Text = Str$(c) Case Else Print 运算符错!: Text5.Text = End Select End Sub 第五章 使用文本框和标签输入输出文字信息 5.1.2 文本框的属性、事件和方法 1.Change事件 改变文本框的Text属性时会引发该事件。当输入一个字符，就会触发一次Change事件。 第五章 使用文本框和标签输入输出文字信息 例2 当程序运行时，用户在第一个文本框中输入一行文字时，在另外两个文本框中同时显示出相同的内容，但显示的字体大小不同。 第五章 使用文本框和标签输入输出文字信息 清除按钮的click代码 Private Sub Command1_Click() Text1.Text = Text2.Text = Text3.Text = “ Text1.SetFocus End Sub 退出按钮的click代码 Private Sub Command2_Click() End End Sub 第五章 使用文本框和标签输入输出文字信息 text1的change事件 Private Sub Text1_Change() Text2.Text = Text1.Text Text2.FontSize = 18 Text3.Text = Text1.Text Text3.FontSize = 24 End Sub 第五章 使用文本框和标签输入输出文字信息 2、设置密码 例3 第五章 使用文本框和标签输入输出文字信息 清除按钮的click代码 Private Sub Command1_Click() Text1.Text = Text2.Text = Text1.SetFocus End Sub 退出按钮的click代码 Private Sub Command2_Click() End End Sub 第五章 使用文本框和标签输入输出文字信息 校验密码按钮的click代码 Private Sub Command2_Click() pass$ = Text1.Text If pass$ = password Then Text2.Text = 密码正确，继续进行 Else Text2.Text = 密码错误，重新输入 End If End Sub 第五章 使用文本框和标签输入输出文字信息 3、多行文本框 1）MultiLine： 是否为多行,默认一行。False 2）ScrollBars： 当MultiLine为True时,该属性才有效,滚动条的形式。 0-None：无滚动条、1-Horizontal：水平滚动条、2-Vertical垂直滚动条、3-Both水平和垂直滚动条。 3）PassWordChar：该属性的设置只有在MultiLine设为 False才有效。 第五章 使用文本框和标签输入输出文字信息 4、如何保证输入数据的正确性 KeyPress(KeyAscii As Integer) 例如 Pr