VB高级语言技巧【应用】.ppt

第四章 VB高级语言技巧 门头沟学院: 胡天长 第四章 VB高级语言技巧 4.1 多功能计算器程序任务 4.2 数组的使用 4.3 过程和函数的定义和调用 4.4 键盘和鼠标使用技巧 4.1 多功能计算器程序任务 4.1.1任务的概述 1 对计算器程序进行扩展。 2 数子区按钮事件代码过于复杂,使用数组。 3 各文本框禁止键盘输入。 4 计算器窗体总是悬浮在其他窗体之上。 4.1.2 界面设计 1 添加“十六进制”和“数字大写”两个文本框,名称为txtHex和txtBig。 2 删除0—9数字按钮控件,添加一个新的命令按钮command1. 3 选定该命令按钮,按“复制”. 4 在数字区框架内,按“粘贴”,确认提示创建数组,依此类推,创建0—9数字按钮. 5 得到一个按钮控件数组,各控件按钮的属性Index为0,1,2,3,4,5,6,7,8,9 6 将txtBig的ToolTipText 属性设置为“大写数字” ，当鼠标移动到该文本框上时，先是大写。 4.1.3 代码设计 1 用API 函数实现“总在前面”效果代码 （1）程序代码 Private Declare Function SetWindowPos Lib user32 (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Const HWND_TOPMOST = -1 Private Const SWP_NOMOVE = H2 Private Const SWP_NOSIZE = H1 在Form 的Load 事件中添加代码 Private Sub Form_Load() SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOST Or SWP_NOSIZE End Sub (2)API函数调用的一般方法 完全安装VB系统后,通常会在VB程序组项中看到“API文本浏览器”。使用API文本浏览器工具获得函数的声明 ： 第一步：启动“API文本浏览器”应用程序。 第二步： 选择“文件?加载文本文件”菜单项,加载Win32API.txt文件. 第三步：添加、复制，声明范围为”私有“ 第四步：在代码编辑器中的通用部分“粘贴”。 2 数字区的命令按钮的Click事件 双击数字区中的任意一个按钮控件 Private Sub Command1_Click(Index As Integer) If txtlabel.Text = Then txtfirst.Text = txtfirst.Text + Trim(Str(Index)) Else txtsecond.Text = txtsecond.Text + Trim(Str(Index)) End If End Sub 只有一个控件上述代码即可 3 禁止用户在文本框中输入数字 有三种方法可以实现上述功能: （1）将文本框的Enabled 属性设为False 即可。 （2）将文本框的Locked 属性设为True 即可。 （3）通过代码控制键盘事件 Private Sub txtResult_KeyDown(KeyCode As Integer,Shift As Integer) KeyCode=0 End Sub 禁止退格键的使用 Private Sub txtResult_KeyPress(KeyAscii As Integer) KeyAscii =0 End Sub 4 修改“计算结果”按钮的Click点击事件 在源代码后添加： txtHex.Text = Hex(myresult) txtBig.Text = changeme(myresult) 5 编写ChangeMe函数代码 上面提到的Hex（）为标准函数， ChangeMe函数为自定义函数，在“通用”部分添加代码： Private Function changeme(First As Double) As String Dim strFirst As String Dim strBig(9) As String Dim strTemp As String Dim i, j As Integer strBig(0) = 零: strBig(1) = 壹: strBig(2) = 贰: strBig(3) = 叁: strBig(4) = 肆: strBig(5) = 伍: strBig(6) = 陆: strBig(7) =