Visual_Basic程序设计项目教程 教学课件 作者 李天真 李宏伟 教程代码任务10—13new.doc

《Visual_Basic程序设计项目教程 教学课件 作者 李天真 李宏伟 教程代码任务10—13new.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、197VisualBasic程序调试任务11任务10Splash界面设计知识时钟控件与API2．API（2）API文本浏览器很多API函数都很长。如下就是作为例子的apiddeclienttransaction函数：DeclareFunctionddeclienttransactionlib"user32"(pdataasbyte,byvalcbdataaslong,byvalhconvaslong,byvalhszitemaslong,byvalwfmtaslong,byvalwtypeaslong,byvaldwtimeoutaslong,pdwresu

2、ltaslong)aslong（3）VisualBasic中使用API在VisualBasic中如何声明函数呢？以下便是前面讲过的函数声明格式：FunctionSetFocus(Byvalhwndaslong)aslongAPI函数的声明也很类似。API中的SetFocus函数是这样声明的：DeclareFunctionSetFocuslib"user32"alias"setfocus"(byvalhwndaslong)aslong结构更加复杂。但除了这些多出来的部分，其他部分还是和以前学到的函数声明是一样的，函数在程序中的调用也是一样，例如：Dimdlas

3、longdl=SetFocus(Form1.hwnd)例如，以下两个函数声明都是有效的，他们调用的是同一个SetFocus函数：DeclareFunctionabcdLib"user32"Alias"SetFocus"(ByValhwndAsLong)AsLong197VisualBasic程序调试任务11DeclareFunctionSetFocusLib"user32"(ByValhwndAsLong)AsLong（4）几个API函数介绍它的使用方法如下：DimretAsLongret=GetWindowLong(Form1.hwnd,GWL_STYLE

4、)例如：SetLayeredWindowAttributesForm1.hWnd,0,145,LWA_ALPHA上述代码的功能：半透明整个窗口。SetLayeredWindowAttributesForm1.hWnd,0,145,LWA_COLORKEY上述代码的功能：0表示黑色，窗口的黑色部分将被透明，整个窗口不会透明，第三个参数失效。SetLayeredWindowAttributesForm1.hWnd,0,145,LWA_ALPHAORLWA_COLORKEY上述代码的功能：先把黑色的部分透明，剩余的部分再作整体半透明化处理。197VisualBas

5、ic程序调试任务11任务11VisualBasic程序调试在后面的叙述中将多次引用该示例。PrivateSubFormClick()lDima(5)AsInteger2DimiAsInteger3DimmaxAsInteger4Fori=0To55a(i)=Val(InputBox("请输入一个整数"))6Nexti7max=a(0)8Fori=1TO591fmax

6、即”窗口使用该窗口可以实现以下功能：1）检查某个属性或变量的值，或对表达式求值。例如：？i；a(i);max;a(i)+a(i+1)?Text1.text197VisualBasic程序调试任务112）为变量或属性设置新值。例如：I=5：a(i)=10：Text1.Text="李斯"3）测试过程。可以制定参数来调用过程。例如，假设有一个函数Sum(n%)用于求1~n之和，可使用以下方法测试：A=10:b=20？Sum（a）；Sum（b）知识3如何捕获和处理错误1．设置错误捕获（1）OnErrorGoToline语句例如，若“ErrorHandler：”是一个

7、标号，则OnError语句为如下形式：OnErrorGoToErrorHandler或OnErrorGoToErrorHandler：2．编写错误处理程序例如，一个含有错误处理程序的通用过程TestError形式如下：SubTestError()OnErrorGoToErrorHandler……ExitSubErrorHandler：'错误处理代码位于此处……Endsub【例11.1】设计一个进行除法运算的简单程序，运行界面如图11.11所示。在第一个文本框Textl中输入被除数，在第二个文本框Text2中输入除数，单击命令按钮CmdDiv（“运算”）时，在

8、第三个文本框Text3中显示结果。代码如下：Priv