UC知道vb求救 vb上级题目，，不会，，，！！！急
来源：百度知道 编辑：UC知道 时间：2024/07/06 16:38:29
1。建立一个文本框，一个下拉菜单，含有两个菜单项“显示”“隐藏”
编写适当过程，运行后按“隐藏”，文本框消失，按“显示”文本框出现
2。两个文本框，三个按纽（显示。隐藏。复制）。要求编写相应程序，待运行时出现，
在第一个文本框输入的所有字符都显示“*”号，
单击“隐藏”TEXT1中的所有“*”号变成“？”号
单击“复制”TEXT1中的所有东西都复制到TEXT2中
（每个时间只写一条语句，，VB高手请加864382279。小弟在线等，，急需，还请各位帮忙）
编写适当过程，运行后按“隐藏”，文本框消失，按“显示”文本框出现
2。两个文本框，三个按纽（显示。隐藏。复制）。要求编写相应程序，待运行时出现，
在第一个文本框输入的所有字符都显示“*”号，
单击“隐藏”TEXT1中的所有“*”号变成“？”号
单击“复制”TEXT1中的所有东西都复制到TEXT2中
（每个时间只写一条语句，，VB高手请加864382279。小弟在线等，，急需，还请各位帮忙）
Private Sub Combo1_Click()
If Combo1.Text = "显示" Then
Text1.Visible = 1
Else: Text1.Visible = 0
End If
End Sub
Private Sub Command1_Click()
Text1.PasswordChar = ""
End Sub
Private Sub Command2_Click()
Text1.PasswordChar = "?"
End Sub
Private Sub Command3_Click()
Text2.Text = Text1.Text
End Sub
Private Sub Form_Load() '属性初始化
Combo1.AddItem "显示"
Combo1.AddItem "隐藏"
Text1.PasswordChar = "*"
End Sub
一个combo控件.两个text控件.三个command控件
测试通过
1、“显示”的事件中写 文本框.visible=true 在“隐藏”的事件中写文本框.visible=false 就可以了
2、两个文本框，三个按纽（显示。隐藏。复制）。要求编写相应程序，待运行时出现，
在第一个文本框输入的所有字符都显示“*”号
设置文本框的textmode属性为password,替换字符为*
单击“隐藏”TEXT1中的所有“*”号变成“？”号
在“隐藏”事件中将TEXT1的替换字符改为？
单击“复制”TEXT1中的所有东西都复制到TEXT2中
在“复制”事件中添加以下代码：TEXT2.Text=TEXT1.Text