【教学课件ppt】程序设计

《【教学课件ppt】程序设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VisualBasic程序设计第4章VB高级语言技巧安徽.蚌埠广播电视大学14.1多功能计算器任务4.1.1任务描述在第三章简单计算器的基础，增加以下功能：1.将计算结果转换为十六进制。2.就数字键设置为命令按钮组，使“0”～“9”数字按键的Index属性分别为0、1、2、3、4、5、6、7、8、9。3.禁止键盘在文本框中输入数据。4.使计算器总是悬浮在其它窗体上。界面如下页所示。234.1.2界面设计1.添加“十六进制”和“数字大写”两个文本框，分别命名为txtHex和txtBig。2.删除原来的“0”～“9”数字按钮控件，并重新放置一个命令按钮控件，将其Caption属性设置为“0”。3.

2、复制该数字命令按钮。4.在数字区框架控件上，粘贴该数字命令按钮，系统询问是否创建一个控件数组，回答“是”。将它的Caption属性改为“1”，Index属性值设置为1。按照上述方法粘贴数字按钮控件“2”～“9”。5、此时得到一个按钮控件数组“0”～“9”，它们的Index书香依次为“0”～“9”。6、将TxtBig的ToolTipText属性设置为“大写数字”。44.1.3代码设计1.用API函数实现“总在前面”效果（1）程序代码在代码编辑器的“通用”部分声明SetWindowPos函数及相关常数：PrivateDeclareFunctionSetWindowPosLib"user32"_(B

3、yValhwndAsLong,ByValhWndInsertAfterAsLong,_ByValxAsLong,ByValyAsLong,ByValcxAsLong,_ByValcyAsLong,ByValwFlagsAsLong)AsLongPrivateConstHWND_TOPMOST=-1PrivateConstSWP_NOMOVE=&H2PrivateConstSWP_NOSIZE=&H1然后在Form的Load事件中加入以下代码：SetWindowPoshwnd,HWND_TOPMOST,0,0,0,0,SWP_NOMOVEOrSWP_NOSIZE5（1）API函数调用的一般方法要

4、在VB中使用API函数，首先要在工程的标准模块（Module）或窗体的代码的“通用”部分中声明它，然后可以按照调用VB其它函数一样来使用它。获得函数声明的一般方法：在安装VB系统后，通常会在VB程序组中看到“API文本浏览器”的应用程序。步骤如下：沿[开始]-[程序]-[MicrosoftVisualStudio6.0]-[MicrofoftViaualStodio6.0Tools]-[APITextWiewer]找到API浏览器。67第1步：启动“API文本浏览器”8第2步：选择“文件-加载文本文件”菜单项9加载WinAPI.txt文件。10第3步：选择API类型：声明11第4步：选择可用项

5、SetWindowPos，将声明范围设置为“私有”。12按添加按钮。13第5步：就选定项下的VB代码复制14第5步：将复制的VB代码粘贴到窗体代码编辑器中的“通用-声明”部分。15习题P115一、单项选择题2.能够实现“窗体总在最前端”界面效果的API函数是（）。A.SetWindowPosB.SetWindowAPIC.SetWindowShapeD.DeclareAPI答案：A162.数字区命令按钮的Click事件PrivateSubCommand1_Click(IndexAsInteger)'使用Str函数将Index转换为字符串，然后使用Trim函数去掉前后空格IftxtLabel.T

6、ext=""ThentxtFirst.Text=txtFirst.Text+Trim(Str(Index))ElsetxtSecond.Text=txtSecond.Text+Trim(Str(Index))EndIfEndSub173.禁止用户在文本框中输入数字PrivateSubtxtResult_KeyDown(KeyCodeAsInteger,ShiftAsInteger)KeyCode=0'禁止所有的键盘输入（除BackSpace退格键外）EndSubPrivateSubtxtResult_KeyPress(KeyAsciiAsInteger)KeyAscii=0'禁止BackSpa

7、ce退格键EndSub18习题P116二、填空题1.通常可将文本框控件的属性设置为True，以禁止键盘输入。答案：Locked194.修改“计算结果”按钮的Click事件代码'“计算结果”命令按钮的Click事件PrivateSubCommand17_Click()'定义一个Double类型的变量DimMyResultAsDouble'以txtLable.Text的值为多重分支条件SelectCa