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

第五章 使用文本框和标签输入输出文字信息
2、设置密码 例3
第五章 使用文本框和标签输入输出文字信息
清除按钮的click代码
Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" Text1.SetFocus End Sub
退出按钮的click代码
退出按钮的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 当程序运行时，用户在第一个文本框中输入一行文字时，在另外 两个文本框中同时显示出相同的内容，但显示的字体大小不同。
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
第五章 使用文本框和ቤተ መጻሕፍቲ ባይዱ签输入输出文字信息
4、如何保证输入数据的正确性
KeyPress(KeyAscii As Integer) 例如 Private Sub text1_KeyPress (KeyAscii As Integer) if KeyAscii<65 or KeyAscii>90 then print” 输入错误，请输入大写字母” else print” 输入正确” End Sub
第五章 使用文本框和标签输入输出文字信息
5.2 使用标签控件显示字符信息
用于显示文本(输出)信息，不能作为输入信息的界面。 1．基本属性 Name、Height、Width、Top、Left、Enabled、Visible、 Font、ForeColor、BackColor等与窗体的使用相同。 2．常用属性 1）Caption属性 Caption属性用来改变Label控件中显示的文本。Caption属 性允许文本的长度最多为1024字节。缺省情况下，当文本超过控 件宽度时，文本会自动换行，而当文本超过控件高度时，超出部 分将被裁剪掉。
第五章 使用文本框和标签输入输出文字信息
清除按钮的click代码
Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "“ Text1.SetFocus End Sub
退出按钮的click代码
Private Sub Command2_Click() End End Sub
第五章 使用文本框和标签输入输出文字信息
3、多行文本框
1）MultiLine： 是否为多行,默认一行。False 2）ScrollBars： 当MultiLine为True时,该属性才有效,滚动条的形 式。 0-None：无滚动条、1-Horizontal：水平滚动条、2Vertical垂直滚动条、3-Both水平和垂直滚动条。 3）PassWordChar：该属性的设置只有在MultiLine设为 False才有 效。
第五章 使用文本框和标签输入输出文字信息
2） Alignment属性 设置Caption属性中文本的对齐方式，共有三种可选值： 0 左对齐(Left Justify)；1 右对齐(Right Justify)； 2 居中对齐(Center Justify)。 3）BackStyle属性 该属性用于确定标签的背景是否透明。有两种情况可选：值 为0时，表示背景透明，标签后的背景和图形可见；值为1时，表 示不透明，标签后的背景和图形不可见。 4）AutoSize属性 AutoSize属性确定标签是否会随标题内容的多少自动变化。 如果值为True，则随Caption内容的大小自动调整控件本身的大小， 且不换行；如果值为False，表示标签的尺寸不能自动调整，超出 尺寸范围的内容不予显示。
第五章 使用文本框和标签输入输出文字信息
5.1 使用文本框处理字符信息 5.1.1 文本框的简单使用 例1
第五章 使用文本框和标签输入输出文字信息
清除按钮的click代码
Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text5.Text = "" Text1.SetFocus End Sub
第五章 使用文本框和标签输入输出文字信息
text1的change事件 Private Sub Text1_Change() Text2.Text = Text1.Text Text2.FontSize = 18 Text3.Text = Text1.Text Text3.FontSize = 24 End Sub