Question

关于VB编程实现：在文本框中每输入一个字符时，立即在窗体上输出当前文本框中的内容。实验步骤及指导如下

1、新建工程如图
2、编写如下过程
Private Sub Text1_Change()Print Text1End Sub
--------------------------------------------------------------------Private Sub Text1_LostFocus()Print "***"; Text1; "***"End Sub
--------------------------------------------------------------------
Private Sub Command1_Click()ClsText1.Text = ""Text1.SetFocusEnd Sub
--------------------------------------------------------------------
Private Sub Command2_Click()EndEnd Sub

谁能具体告诉我每一步分别代表什么意思？

Answer 1

Private Sub Text1_Change() ’这个表示是Text1_Change()事件，本行表示事件过程的开始
Print Text1 '这个表示在窗体上显示Text1 的文本内容
End Sub '本行表示事件过程的结束
--------------------------------------------------------------------
Private Sub Text1_LostFocus() ’这个表示是Text1_LostFocus()事件，本行表示事件过程的开始
Print "***"; Text1; "***" '这个表示在窗体上显示Text1 的文本内容,内容左右各加3个“*”
End Sub '本行表示事件过程的结束
--------------------------------------------------------------------
Private Sub Command1_Click() ’这个表示是Command1的单击事件，本行表示事件过程的开始
Cls '清除窗体上的显示内容
Text1.Text = "" '清除文本框Text1里的内容
Text1.SetFocus '使得文本框Text1获得焦点，即光标处于该控件里
End Sub '本行表示事件过程的结束
--------------------------------------------------------------------
Private Sub Command2_Click() ’这个表示是Command2的单击事件，本行表示事件过程的开始
End '结束本程序的运行
End Sub '本行表示事件过程的结束

事件是面向对象程序设计语言的一个重要而基本的概念，是Windows编程的最基本的途径与方法。可以这么说，编写事件过程代码是编写最简单最基本的基于 Windows的应用程序的基本。
在VB6里，提供的控件，具有各种各样的事件；

Answer 2

Text1_Change 事件
Print Text1 '这个就是在窗体上打印Text1.Text数据 ,Text属性是这个控件默认的所以可以不写
当Text1的内容被改变时,就触发这个事件

Text1_LostFocus 事件
Print "***" & Text1 & "***" '想必应该不是 ;号吧...
当Text1失去焦点时触发这个事件,比如你按 清除 按钮时,按钮得到了焦点,Text1则失去焦点
在计算机中 焦点是唯一的

Command1_Click 事件
Cls '清除
Text1.Text = "" '赋值Text1.Text为空
Text1.SetFocus 'Text1得到焦点
单击这个按钮时触发

最后一个就不用说了.....
而且不应该这样用End......而是 UnLoad Me