自动到.EXE 文件所在目录、当前工作目录、WINDOWSSYSTEM 目录、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 文本查看器 API TEXT VIEWER,我们可以在其中找到 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、源代码 Option Explicit 声明德智体美劳变量 Dim Mind As String Score As String PE As String Dim Manner As String Labor As String jy As String Private Sub Combo1_Click jy Combo1.Text End Sub 生成 Private Sub Command1_Click If Text3.Text quotquot Then MsgBox quot姓名栏不能为空quot vbOKOnly quot提示quot Text3.SetFocus Text1.Text quotquot Else Text1 quot quot Text3.Text quot同学一学期来quot Mind Score _ PE Manner Labor Text2.Text jy End If End Sub 保存 Private Sub Command2_Click Dim sF As String sF Text3.Text quot.txtquot Open sF For Output As 1 Print 1 Text1.Text Close 1 End Sub Private Sub Command3_Click End 退出 End Sub 德 Private Sub Option1_ClickIndex As Integer Select Case Index Case 0 Mind quot各方面从高从严要求自己,上进心强,遵守纪律。
quot Case 1 Mind quot思想上要求进步,严于律已,能较好地遵守校纪班规。
quot Case 2 Mind quot有一定的上进心,基本上能遵守学校的规章制度。
quot Case 3 Mind quot思想纪律表现一般,基本上能遵守校纪班规,但自律能力不强,偶尔quot quot有意外行为。
quot End Select End Sub 智 Private Sub optScore_ClickIndex As Integer Select Case Index Case 0 Score quot学习能力出众,勤奋用功,成绩优异,如保持下去,前途无限。
quot Case 1 Score quot学习能力较好,肯下功夫,成绩优良,有较好的发展潜力。
quot Case 2 Score quot有一定的自学能力,所作出的努力取得相应的成绩,挖掘潜力可观。
quot Case 3 Score quot学习上用心程度不够,成绩不太理想,但悟性较好,经努力会很快有长足进步的。
quot End Select End Sub.
上一篇:
网上同学录
下一篇:
儿童四肢皮肤挫伤采用美宝疮疡贴治疗的疗效