关于VB编程实现:在文本框中每输入一个字符时,立即在窗体上输出当前文本框中的内容。实验步骤及指导如下
1、新建工程如图2、编写如下过程PrivateSubText1_Change()PrintText1EndSub-----------------------------...
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
谁能具体告诉我每一步分别代表什么意思? 展开
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
谁能具体告诉我每一步分别代表什么意思? 展开
展开全部
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里,提供的控件,具有各种各样的事件;
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里,提供的控件,具有各种各样的事件;
展开全部
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询