在名称为Forml的窗体上添加一个名称为Ll的标签,标题为“口令”;添加两个文本框,名称分别为Textl、Text2,初始内容为空;再添加三个命令按钮,名称分别为Cl、C2、C3。标题分别为“显示口令”、“隐藏口令”、“复制口令”。在程序开始运行时,向Te

admin2020-04-08  28

问题 在名称为Forml的窗体上添加一个名称为Ll的标签,标题为“口令”;添加两个文本框,名称分别为Textl、Text2,初始内容为空;再添加三个命令按钮,名称分别为Cl、C2、C3。标题分别为“显示口令”、“隐藏口令”、“复制口令”。在程序开始运行时,向Textl中输入的所有字符,都显示为“*”,单击“显示口令”按钮后,在Textl中显示所有字符,再单击“隐藏口令”按钮后,Textl中的字符不变,但显示的都是“?”,单击“复制口令”后,把TextI中的实际内容复制到Text2中,如图所示。

    要求:
    ①在属性窗口中,将窗体的标题改为“口令窗口”:
    ②建立适当的事件过程,完成上述功能。每个过程中只允许写一条语句,且不能使用变量。
    注意:存盘时,工程文件名保存为sjt3.vbp,窗体文件名保存为sjt3.frm。

选项

答案 【操作步骤】 步骤l:新建一个窗体,按照题目要求建立控件并设置相应的属性,程序中用到的控件及其属性见表4.26和表4.27。 [*] 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 参考答案 Private Sub C1_Click()′显示口令 Textl.PasswordChar=""清空Pass· wordChar的设置使密码显示 End Sub Private Sub C2_Click()′隐藏口令 Textl.PasswordChar="?"′将Pass- wordChar设置为?则密码显示? End Sub Private Sub C3_Click()′复制口令 Text2.Text=Textl.Text End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

解析 PasswordChar属性用于屏蔽文本框中的内容,如果要去掉对文本框中输入内容的屏蔽,需将其PasswordChar属性值清空。
转载请注明原文地址:https://kaotiyun.com/show/MNTp777K
0

最新回复(0)