VB事件处理过程
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
End Sub
Sub shuru_KeyPress(KeyAscii As Integer ) If KeyAscii = 13 Then If nc<500 Then nc=nc+1 d(nc)=val(shuru.Text) liebiao.AddItem shuru.Text shru.Text = “” jishu.text = Str(nc) End If End If
步骤1：确定需要几个模块
（1）用户启动一次新的计算：本程序应能进行多次计算，每次新的计算从激活文本框 text1（即鼠标单击Text1）开始 （2）用户输入了数据：每输入一个数字，应按下回车键 （3）用户输入完所有数据，点击计算平均值
步骤2：确定需要哪几个事件
（1）用户启动一次新的计算：本程序应能进行多次计算，每次新的计算从激活文本框 text1（即鼠标单击Text1）开始 （2）用户输入了数据：每输入一个数字，应按下回车键 （3）用户输入完所有数据，点击计算平均值
事件名 Sub Command1_Click()
Dim a As Double, b As Double, c As Double
获取输入值
a = Val(Text1.Text): b = Val(Text2.Text): c = Val(text3.Text)
Text4.Text = Str(a * b * c)
End Sub
事件处理过程名必须符合原则：对象名_事件的标准名
例如：Text1.Click
对象
事件的标准名
文本框 Text
Click DblClick
KeyPress
命令按钮 Command
标签label
Click KCelicykPress
说明
在文本框内单击鼠标
在文本框内双击鼠标
文本框被激活后，用 户在键盘上按下了某 一个键 在命令按钮上单击鼠 标
V B编程
4.4.1事件处理过程
目 录
1
2
知识回顾
1.VB编程模块化的组成部分
2.过程与函数的区别
3 4
讲授新知
1.事件处理过程的结构 2.各事件的含义
典型例题讲解
1.求立方体体积 2.解题三步走 3.求数列平均值
能力提高及一点经验
1.防误触 2.精简代码 3.编码习惯
1
知识回顾
VB程序模块化的组成部分
在标签上单击鼠标
3
例题讲解
事件处理过程
例1、设计一个应用程序，计算一个立方体的体积。设用户分别在文本框Text1、Text2、Text3中输入立方体的长、 宽、高，程序的计算结果在文本框Text4中显示。当用户数据输入完后，可单击 字面为“计算”的命令按钮 Command1，程序将立即进行立方体体积的计算。
A
过程
分为事件处理过程(事件触发)和通用过程（自定义），
无返回值
B
函数
也是程序模块，有返回值
2
讲授新知
如果按下下面这个按钮，你会获得10元，而你的某一位朋友会胖1克，你会怎样？
什么？ 面对疾风吧！
按下按钮 按下开关 双击图标
事 件
获得10元 电灯亮起 打开软件
结 果
事件处理过程的结构
Sub 事件处理过程名（参数表） 语句块
nc=nc+1
d(nc)=val(Text1.Text)
List1.AddItem Text1.Text 将数据添加到列表中
Text1.Text = “”
Text2.text = Str(nc)
End If
End If
End Sub
点击计算平均值
Sub Command1_Click()
Dim sum As Double
Dim i As Integer
sum=0
累加器
For i=1 to nc
sum=sum+d(i)
Next I
If nc>0 Then
为什么？
Text3.Text=Str(sum/nc)
Else
Text3.Text=Str(0)
End If
End Sub
4
能力提高及一点经验
能力提高
1、每次单击输入框都会清空数据，如何做到防误触？ 2、精简代码，如何可以不用数组和循环？
End Sub
养成给每一个控件独立命名，便于代码二次阅读
感谢观看
4.4.1事件处理过程
List1.Clear nc=0
清空列表
End Sub
清空计数器
清空3个输入框
用户输入了数据
获取ASCII码值
Sub Text1_KeyPress(KeyAscii As Integer )
If KeyAscii = 13 Then
回车键的ASCII码为13
If nc<500 Then
如果大于500？
End Sub
计算体积
VB中过程是Sub开始，EndSub结尾
解题3步走
1、确定需 要几个模块 题
ຫໍສະໝຸດ Baidu
2、确定需 要哪几个事 件
3、编写相 应的代码
解题3步走
事件处理过程
例2、设计一个应用程序，计算一批输入数据（不超过500个）的平均值。要求能显示： （1）每次输入的数据 （2）已经输入的数据个数 （3）输出计算得到的平均值 （4）输出已经输入的数据的列表
步骤3：编写相应的代码
（1）用户启动一次新的计算：本程序应能进行多次计算，每次新的计算从激活文本框 text1（即鼠标单击Text1）开始 （2）用户输入了数据：每输入一个数字，应按下回车键 （3）用户输入完所有数据，点击计算平均值
用户启动一次新的计算
Sub Text1_Click( )
Text1.Text=“”:Text2.Text=“”:Text3.Text=“”
一点经验之谈
Sub Text1_KeyPress(KeyAscii As Integer ) If KeyAscii = 13 Then If nc<500 Then nc=nc+1 d(nc)=val(Text1.Text) List1.AddItem Text1.Text Text1.Text = “” Text2.text = Str(nc) End If End If
Sub shuru_KeyPress(KeyAscii As Integer ) If KeyAscii = 13 Then If nc<500 Then nc=nc+1 d(nc)=val(shuru.Text) liebiao.AddItem shuru.Text shru.Text = “” jishu.text = Str(nc) End If End If
步骤1：确定需要几个模块
（1）用户启动一次新的计算：本程序应能进行多次计算，每次新的计算从激活文本框 text1（即鼠标单击Text1）开始 （2）用户输入了数据：每输入一个数字，应按下回车键 （3）用户输入完所有数据，点击计算平均值
步骤2：确定需要哪几个事件
（1）用户启动一次新的计算：本程序应能进行多次计算，每次新的计算从激活文本框 text1（即鼠标单击Text1）开始 （2）用户输入了数据：每输入一个数字，应按下回车键 （3）用户输入完所有数据，点击计算平均值
事件名 Sub Command1_Click()
Dim a As Double, b As Double, c As Double
获取输入值
a = Val(Text1.Text): b = Val(Text2.Text): c = Val(text3.Text)
Text4.Text = Str(a * b * c)
End Sub
事件处理过程名必须符合原则：对象名_事件的标准名
例如：Text1.Click
对象
事件的标准名
文本框 Text
Click DblClick
KeyPress
命令按钮 Command
标签label
Click KCelicykPress
说明
在文本框内单击鼠标
在文本框内双击鼠标
文本框被激活后，用 户在键盘上按下了某 一个键 在命令按钮上单击鼠 标
V B编程
4.4.1事件处理过程
目 录
1
2
知识回顾
1.VB编程模块化的组成部分
2.过程与函数的区别
3 4
讲授新知
1.事件处理过程的结构 2.各事件的含义
典型例题讲解
1.求立方体体积 2.解题三步走 3.求数列平均值
能力提高及一点经验
1.防误触 2.精简代码 3.编码习惯
1
知识回顾
VB程序模块化的组成部分
在标签上单击鼠标
3
例题讲解
事件处理过程
例1、设计一个应用程序，计算一个立方体的体积。设用户分别在文本框Text1、Text2、Text3中输入立方体的长、 宽、高，程序的计算结果在文本框Text4中显示。当用户数据输入完后，可单击 字面为“计算”的命令按钮 Command1，程序将立即进行立方体体积的计算。
A
过程
分为事件处理过程(事件触发)和通用过程（自定义），
无返回值
B
函数
也是程序模块，有返回值
2
讲授新知
如果按下下面这个按钮，你会获得10元，而你的某一位朋友会胖1克，你会怎样？
什么？ 面对疾风吧！
按下按钮 按下开关 双击图标
事 件
获得10元 电灯亮起 打开软件
结 果
事件处理过程的结构
Sub 事件处理过程名（参数表） 语句块
nc=nc+1
d(nc)=val(Text1.Text)
List1.AddItem Text1.Text 将数据添加到列表中
Text1.Text = “”
Text2.text = Str(nc)
End If
End If
End Sub
点击计算平均值
Sub Command1_Click()
Dim sum As Double
Dim i As Integer
sum=0
累加器
For i=1 to nc
sum=sum+d(i)
Next I
If nc>0 Then
为什么？
Text3.Text=Str(sum/nc)
Else
Text3.Text=Str(0)
End If
End Sub
4
能力提高及一点经验
能力提高
1、每次单击输入框都会清空数据，如何做到防误触？ 2、精简代码，如何可以不用数组和循环？
End Sub
养成给每一个控件独立命名，便于代码二次阅读
感谢观看
4.4.1事件处理过程
List1.Clear nc=0
清空列表
End Sub
清空计数器
清空3个输入框
用户输入了数据
获取ASCII码值
Sub Text1_KeyPress(KeyAscii As Integer )
If KeyAscii = 13 Then
回车键的ASCII码为13
If nc<500 Then
如果大于500？
End Sub
计算体积
VB中过程是Sub开始，EndSub结尾
解题3步走
1、确定需 要几个模块 题
ຫໍສະໝຸດ Baidu
2、确定需 要哪几个事 件
3、编写相 应的代码
解题3步走
事件处理过程
例2、设计一个应用程序，计算一批输入数据（不超过500个）的平均值。要求能显示： （1）每次输入的数据 （2）已经输入的数据个数 （3）输出计算得到的平均值 （4）输出已经输入的数据的列表
步骤3：编写相应的代码
（1）用户启动一次新的计算：本程序应能进行多次计算，每次新的计算从激活文本框 text1（即鼠标单击Text1）开始 （2）用户输入了数据：每输入一个数字，应按下回车键 （3）用户输入完所有数据，点击计算平均值
用户启动一次新的计算
Sub Text1_Click( )
Text1.Text=“”:Text2.Text=“”:Text3.Text=“”
一点经验之谈
Sub Text1_KeyPress(KeyAscii As Integer ) If KeyAscii = 13 Then If nc<500 Then nc=nc+1 d(nc)=val(Text1.Text) List1.AddItem Text1.Text Text1.Text = “” Text2.text = Str(nc) End If End If