vb高级语言技巧教学课件

《vb高级语言技巧教学课件》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第四讲VB高级语言技巧1[内容简介]本章以一个多功能计算器应用程序为实例对第3章所开发的简单计算器进行功能扩展在基础上，较系统介绍数组、过程、函数的定义和使用方法详细讲解了鼠标和键盘的常用使用技巧。通过本章的学习，你将初步具备利用VB编程各类高级应用程序的能力。2[学习目标]1．掌握数组的使用方法2．掌握键盘、鼠标的使用技巧3．掌握过程和函数的定义和调用方法4．掌握API函数的调用方法5．了解枚举及自定义数据类型6．了解“多功能计算器”程序设计过程34.1“多功能计算器”程序任务目的：对上一讲的“计算器”程序进行扩展和完善44.1.1任务概述能否利用第3章所学知识，对

2、这个程序进行一些功能扩展，比如将计算结果转换成十六进制呢？文本框主要是用于显示信息的，那么能否禁止用户通过键盘在其中输入数据呢？能否使计算器窗体总是悬浮在其他窗体之上，以便于使用呢？5在编写数字区按钮事件代码时，工作量过于重复。10个按钮要编写10个Click事件处理程序，如果有100个这样的按钮，是不是意味着我们要编写100个这样的程序呢？仔细分析这些代码，会发现它们基本相同，那么能否采用合并同类项的方法，以减少代码设计的工作量呢？6本讲任务将针对上述问题，利用数组、键盘控件、自定义函数等方法，对简单计算器程序进行功能扩充，运行结果如图所示7采用控件数组重新设计禁止

3、用户键盘输入当鼠标移动时，自动显示提示信息84.1.2界面设计新知识：控件数组94.1.3代码设计1．用API函数实现“总在前面”效果102．数字区的命令按钮的Click事件与普通Click事件的区别11PrivateSubCommand1_Click(IndexAsInteger)'使用Str函数将Index转换为字符串，然后使用Trim函数去掉前端空格。IftxtLabel.Text=""ThentxtFirst.Text=txtFirst.Text+Trim(Str(Index))ElsetxtSecond.Text=txtSecond.Text+Trim(St

4、r(Index))EndIfEndSub123．禁止用户在文本框中输入数字三种方法可实现这种功能一是将文本框的Enabled属性设置为False；二是将文本框的Locked属性设置为True；三是通过代码控制键盘事件13PrivateSubtxtResult_KeyDown(KeyCodeAsInteger,ShiftAsInteger)KeyCode=0'禁止所有的键盘输入（除BackSpace退格键外）EndSub由于上述方法不能禁止BackSpace退格键，因此需要在KeyPress事件中额外编写代码。PrivateSubtxtResult_KeyPress(K

5、eyAsciiAsInteger)KeyAscii=0'禁止BackSpace退格键EndSub144．修改“计算结果”按钮的Click事件代码'将计算结果转换为十六进制数字txtHex.Text=Hex(MyResult)‘将计算结果转换为大写数字，由于需要编写大量代码，所以采用函数功能完成。txtBig.Text=ChangeMe(MyResult)155．编写ChangeMe函数代码16PrivateFunctionChangeMe(FirstAsDouble)AsString'声明变量DimstrFirstAsStringDimstrBig(9)AsStrin

6、g'声明一个字符串数组DimstrTempAsStringDimi,jAsInteger'设置数组变量的值strBig(0)=“零”:strBig(1)=“壹”:strBig(2)=“贰”strBig(3)="叁":strBig(4)="肆"strBig(5)=“伍”:strBig(6)=“陆”:strBig(7)=“柒”:strBig(8)=“捌”strBig(9)="玖"'将Double型的参数First转换为字符串型strFirst=Trim(str(First))strTemp="“'开始数字转换Fori=1ToLen(strFirst)j=Val(Mid(s

7、trFirst,i,1))'取第i位置的字符数字，并将它转换为数值型strTemp=strTemp+strBig(j)'通过数组完成大写转换NextI'将转换结果返回ChangeMe=strTempEndFunction174.2数组的使用184.2.1数组1．数组的概念在实际编程时，经常会对一批具有相同属性的数据整体进行处理，这时就会用到数组类型了。VB中把一组具有同一名字，不同下标的变量称为数组，它实际上是一组相同类型的变量的集合。根据下标的个数可分为一维数组、二维数组、多维数组。192．声明静态数组方法1：Dim数组名(上界)As数据类型Dim