北京电大VisualBasic程序设计第4章VB高级语言技巧

北京电大VisualBasic程序设计第4章VB高级语言技巧

ID:37443959

大小:1.04 MB

页数:98页

时间:2019-05-12

北京电大VisualBasic程序设计第4章VB高级语言技巧_第1页
北京电大VisualBasic程序设计第4章VB高级语言技巧_第2页
北京电大VisualBasic程序设计第4章VB高级语言技巧_第3页
北京电大VisualBasic程序设计第4章VB高级语言技巧_第4页
北京电大VisualBasic程序设计第4章VB高级语言技巧_第5页
资源描述:

《北京电大VisualBasic程序设计第4章VB高级语言技巧》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

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”数字

2、按钮控件,并重新放置一个命令按钮控件,将其Caption属性设置为“0”。3.复制该数字命令按钮。4.在数字区框架控件上,粘贴该数字命令按钮,系统询问是否创建一个控件数组,回答“是”。将它的Caption属性改为“1”,Index属性值设置为1。按照上述方法粘贴数字按钮控件“2”~“9”。5、此时得到一个按钮控件数组“0”~“9”,它们的Index书香依次为“0”~“9”。6、将TxtBig的ToolTipText属性设置为“大写数字”。44.1.3代码设计1.用API函数实现“总在前面”效果(

3、1)程序代码在代码编辑器的“通用”部分声明SetWindowPos函数及相关常数:PrivateDeclareFunctionSetWindowPosLib"user32"_(ByValhwndAsLong,ByValhWndInsertAfterAsLong,_ByValxAsLong,ByValyAsLong,ByValcxAsLong,_ByValcyAsLong,ByValwFlagsAsLong)AsLongPrivateConstHWND_TOPMOST=-1PrivateConst

4、SWP_NOMOVE=&H2PrivateConstSWP_NOSIZE=&H1然后在Form的Load事件中加入以下代码:SetWindowPoshwnd,HWND_TOPMOST,0,0,0,0,SWP_NOMOVEOrSWP_NOSIZE5(1)API函数调用的一般方法要在VB中使用API函数,首先要在工程的标准模块(Module)或窗体的代码的“通用”部分中声明它,然后可以按照调用VB其它函数一样来使用它。获得函数声明的一般方法:在安装VB系统后,通常会在VB程序组中看到“API文本浏览

5、器”的应用程序。步骤如下:沿[开始]-[程序]-[MicrosoftVisualStudio6.0]-[MicrofoftViaualStodio6.0Tools]-[APITextWiewer]找到API浏览器。67第1步:启动“API文本浏览器”89第2步:选择“文件-加载文本文件”菜单项10加载WinAPI.txt文件。11第3步:选择API类型:声明12第4步:选择立刻用项SetWindowPos,将声明范围设置为“私有”。13按添加按钮。14第5步:就选定项下的VB代码复制15第5步:

6、将复制的VB代码粘贴到窗体代码编辑器中的“通用-声明”部分。16习题P115一、单项选择题2.能够实现“窗体总在最前端”界面效果的API函数是()。A.SetWindowPosB.SetWindowAPIC.SetWindowShapeD.DeclareAPI答案:A172.数字区命令按钮的Click事件PrivateSubCommand1_Click(IndexAsInteger)'使用Str函数将Index转换为字符串,然后使用Trim函数去掉前后空格IftxtLabel.Text=""Th

7、entxtFirst.Text=txtFirst.Text+Trim(Str(Index))ElsetxtSecond.Text=txtSecond.Text+Trim(Str(Index))EndIfEndSub183.禁止用户在文本框中输入数字PrivateSubtxtResult_KeyDown(KeyCodeAsInteger,ShiftAsInteger)KeyCode=0'禁止所有的键盘输入(除BackSpace退格键外)EndSubPrivateSubtxtResult_KeyPr

8、ess(KeyAsciiAsInteger)KeyAscii=0'禁止BackSpace退格键EndSub19习题P116二、填空题1.通常可将文本框控件的属性设置为True,以禁止键盘输入。答案:Locked204.修改“计算结果”按钮的Click事件代码'“计算结果”命令按钮的Click事件PrivateSubCommand17_Click()'定义一个Double类型的变量DimMyResultAsDouble'以txtLable.Text的值为多重分支条件SelectCasetxtLab

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。