比较复杂和特殊的功能来说,使用类库和控件是非常难以实现的,这时就需要采用API函数来实现。
这也是API函数使用的场合,所以我们对待API函数不必刻来研究每一个函数的用法,那也是不现实的(能用的到的API函数有几千个呢)。正如某位人士所说:API不要去学,在需要的时候去查API帮助就足够了。
在VB中声明API函数有两种方法:如果我们只在某个窗体中使用API函数,我们可以在窗体代码的General部分声明它:
声明的语法是:
PrivateDeclareFunction...
PrivateDeclareSub.....
这里必须采用Private声明,因为这个API函数只能被一个窗体内的程序所调用。
如果我们的程序有多个窗体构成,而且我们需要在多个窗体中使用同一个API函数,就需要在模块中声明了。
先添加一个模块,具体方法为:在设计程序时,选"project"菜单项下的子菜单项"AddMoudle"
然后采用如下语法声明:
PublicDeclareFunction....
PublicDeclareSub....
Public声明的含义是把API函数作为一个公共函数或过程,在一个工程中的任何位置(包括所有的窗体和模块)都能直接调用它。声明完毕我们就能在程序中使用此API函数了。
可采用以下几种方式使用API函数,以SetWindowPos函数为例:
(1)忽略函数返回值的调用:
SetWindowPosForm1.hWnd,-2,0,0,0,0,3
注意此时函数的参数是不加括号的。
(2)Call方法调用:
CallSetWindowPos(Form1.hWnd,-2,0,0,0,3)
注意这里需要加上括号,但我们不取回函数的返回值。
(3)取得函数返回值的调用:
MyLng=SetWindowPos(Form1.hWnd,-2,0,0,0,3)
此时需要加上括号,而且我们必须事先定义一个变量(变量的类型与函数返回值类型相同)来存储API函数的返回值。
几个问题的说明:
(1)声明中的Lib和Alias是怎么回事
一般情况下WIN32API函数总是包含在WINDOWS系统自带的或是其它公司提供的动态连接库DLL中,而Declare语句中的Lib关键字就用来指定DLL(动态连接库)文件的路径,这样VB才能找到这个DLL文件,然后才能使用其中的API函数。如果我们只是列出DLL文件名而不指出其完整的路径的话,VB会自动到.EXE文件所在目录、当前工作目录、WINDOWS\SYSTEM目录、WINDOWS目录下搜寻这个DLL文件。所以如果所要使用DLL文件不在上述几个目录下的话,我们应该指明其完整路径。
Alias用于指定API函数的别名,如果我们调用的API函数要使用字符串(参数中包含String型)的话,Alias关键字是必须的。这是因为在ANSI和Unicode字符集中同一API函数的名称可能是不一样的,为了保证不出现声明错误,我们使用Alias关键字指出API函数的别名,一般来说在WIN9X平台下我们把API函数名后加一个大写A作为别名即可。
(2)常见的API参数类型的说明
API函数的参数中最常见的是长整Long型数据类型,例如API中的句柄、一些特定的常量、函数的返回值都是此类型的值;另外几种常见的参数类型有:整型Integer、Byte型、String型等。
(3)声明中的ByVal是作什么用的
这跟VB的参数传递方式有关,在默认情况下VB是通过地址传递方式传递函数的参数、而有些API函数要求必须采用传值方式来传递函数参数(这两种参数传递方式是不同的,前者传递的是一个指针,而后者要求是参数真实的值)。这样就会发生错误,解决的办法是在API函数参数声明的前面加上ByVal关键字,这样VB就采用传值方式传递参数了。
(4)怎样得到完整的API函数声明
VB自带了API文本查看器APITEXTVIEWER,我们可以在其中找到API函数的完整声明,然后把它粘贴到程序中即可。
了解了以上有关VB的基础知识,我们现在就可以开始着手运用VB进行程序设计了。
第二章学生评语生成系统的开发
2.1、本软件将具有何种功能
1、能根据对某位学生的"德、智、体、美、劳"表现(即优秀、良好、一般、差)进行简单的选择,便能自动生成相应的评语。
2、可选择相应的寄语,以及加入个人的评语。
3、对生成的评语可以进行修改。
4、最后生成一个文本文件(.txt),使我们可方便地导入到wps或word中进行排版打印。
2.2、有关界面及控件设置
一、界面及控件设置如下图所示:
二、有关控件的属性
控件名称
属性
功能描述
Combo1
Text='请选择寄语'
供选择相应的寄语
Command1
Caption="生成"
Command2
Caption="保存"
保存成.txt文件
Command3
Caption="退出"
Text1
供生成评语
Text2
供添加自定义评语
Text3
供输入姓名
Frame控件4个
分开德智体美劳五项
Option控件20个
细分成四个等级
Label控件3个
显示相应提示信息
2.3、源代码
OptionExplicit
'声明德智体美劳变量
DimMindAsString,ScoreAsString,PEAsString
DimMannerAsString,LaborAsString,jyAsString
PrivateSubCombo1_Click()
jy=Combo1.Text
EndSub
'生成
PrivateSubCommand1_Click()
IfText3.Text=""Then
MsgBox"姓名栏不能为空",vbOKOnly,"提示"
Text3.SetFocus
Text1.Text=""
Else
Text1=""+Text3.Text+"同学一学期来"+Mind+Score+_
PE+Manner+Labor+Text2.Text+jy
EndIf
EndSub
'保存
PrivateSubCommand2_Click()
DimsFAsString
sF=Text3.Text+".txt"
OpensFForOutputAs#1
Print#1,Text1.Text
Close#1
EndSub
PrivateSubCommand3_Click()
End'退出
EndSub
'德
PrivateSubOption1_Click(IndexAsInteger)
SelectCaseIndex
Case0
Mind="各方面从高从严要求自己,上进心强,遵守纪律。"
Case1
Mind="思想上要求进步,严于律已,能较好地遵守校纪班规。"
Case2
Mind="有一定的上进心,基本上能遵守学校的规章制度。"
Case3
Mind="思想纪律表现一般,基本上能遵守校纪班规,但自律能力不强,偶尔"+"有意外行为。"
EndSelect
EndSub
'智
PrivateSuboptScore_Click(IndexAsInteger)
SelectCaseIndex
Case0
Score="学习能力出众,勤奋用功,成绩优异,如保持下去,前途无限。"
Case1
Score="学习能力较好,肯下功夫,成绩优良,有较好的发展潜力。"
Case2
Score="有一定的自学能力,所作出的努力取得相应的成绩,挖掘潜力可观。"
Case3
Score="学习上用心程度不够,成绩不太理想,但悟性较好,经努力会很快有长足进步的。"
EndSelect
EndSub
'体
PrivateSubOption3_Click(IndexAsInteger)
SelectCaseIndex
Case0
PE="热爱体育,积极参加体育锻炼,体能素质优良,身体健康。"
Case1
PE="爱好体育,主动参加体育锻炼,体能素质良好,身体健康。"
Case2
PE="基本上按要求参加体育锻炼,成绩合格。"
Case3
PE="体育方面不太理想,身体素质有待加强。"
EndSelect
EndSub
'美
PrivateSubOption4_Click(IndexAsInteger)
SelectCaseIndex
Case0
Manner="为人诚实,尊重老师、长辈,团结同学,乐于助人。"
Case1
Manner="待人有礼貌,尊重师长、团结同学。"
Case2
Manner="和气待人,与同学和好相处。"
Case3
Manner="举止有进欠周到,望加强修养。"
EndSelect
EndSub
'劳
PrivateSubOption2_Click(IndexAsInteger)
SelectCaseIndex
Case0
Labor="热爱劳动,有吃苦耐劳的精神。"
Case1
Labor="劳动积极肯干,能吃苦耐劳。"
Case2
Labor="劳动课能完成任务,但主动性有待提高。"
Case3
Labor="劳动方面认识不足,表现一般。"
EndSelect
EndSub
第三章毕业设计
上一篇:
vb设备管理系统+论文(论文和程序)
下一篇:
第1章 现在完成时和现在完成进行时