VB设计测试文本框的各种事件

来源：百度知道 编辑：UC知道 时间：2024/05/06 12:42:47
要求：

①、程序运行后第一个文本框获得焦点，左边显示“得到焦点”。

②、在任意文本框内点击，则该文本框得到焦点，左边显示“得到焦点”，光标不在文本框内闪烁意味着失去焦点，左边显示“失去焦点”，

③、点击命令按钮‘替换’是用第三个文本框内选定的字符替换第一个文本框的内容，同时用所选定的字符个数替换第二个文本框的内容，

④、第一个文本框内的内容改变意味着发生Change事件，左边显示“发生了Change事件”

⑤、第二个文本框输入字符时意味着发生KeyPress事件，左边显示“发生了KeyPress事件”

⑥、点击命令按钮‘清框’将三个文本框的内容清空
⑦、点击‘退出’按钮后，出现对话框询问是否退出

Private Sub Command1_Click()
Text1.Text = Text3.SelText
Text2.Text = Len(Text3.SelText)
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Form_Activate()
Text1.SetFocus
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Command1.Caption = "替换"
Command2.Caption = "清框"
End Sub

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("是否要退出？", vbYesNo, "提示") = vbYes Then
Cancel = 0
Else
Cancel = 1
End If
End Sub

Private Sub Text1_Change()
Cls
Print "文本框1发生了Change事件"
End Sub

Private Sub Text1_GotFocus()
Cls
Print "文本框1得到焦点"
End Sub

Private Sub Text2_GotFocus()
Cls
Print &q