实例4-1 TextBox控件和Label控件的使用

该实例实现步骤如下。

1 创建窗体

① 新建一个项目，命名为chapter4。具体实现参照第2章的实例2-1。

② 在本章的项目chapter4下，右键单击该项目名，在弹出菜单中选择“添加”→“Windows窗体”菜单命令，在弹出的对话框中输入窗体名TLFrm，单击“添加”按钮完成窗体的创建。

2 添加控件

在窗体上添加三个TextBox控件，并将TextBox2的PasswordChar属性设置为“*”，TextBox3的ReadOnly属性设置为Ture。添加两个Label控件用于对相关信息的说明。

3 添加代码

本实例由一个窗体组成，名称为TLFrm.vb。

双击该窗体进入窗体的代码编辑器窗口，向其中添加代码4-1中的代码。

        01. Public Class TBoxFrm
        02.         Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal
    e As System.EventArgs) Handles TextBox2.TextChanged
        03.         If Me.TextBox1.Text <> " " Then
        04.             Me.TextBox3.Text = "欢迎用户" + " " + Me.TextBox1.Text
        05.         End If
        06.         End Sub

        07.     Private Sub TBoxFrm_Load(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles MyBase.Load
        08.         Me.Label1.Text = "用户名"
        09.         Me.Label2.Text = "密码"
        10.     End Sub
        11. End Class

代码4-1执行步骤如下：

① 第3行代码判断TextBox1中的文本是否为空，若不为空则在TextBox2的文本发生改变时，设置TextBox3的文本；

② 第8行和第9行代码是设置当窗体运行时窗体上的Label1和Lebal2分别显示的文本。

4 运行结果

按F5键，运行该程序，结果如图4-3所示。

图4-3 实例4-1运行结果