vb陈伟视频项目总结

补充  vb阶段性总结

逻辑运算符

与And：只有A与B都是true时结果才为true

或Or：A和B中有一个为true 结果就为true

非Not：取反运算

等于Eqv：A B逻辑值相同时结果为true

异或Xor：A B逻辑值相反是结果为true

蕴含Imp：只有A为true同时B为false时结果为false

 

Msgbox（提示内容，对话框类型（例：1+16为肯定取消按钮加X图标），对话框标题）

随机数

例：

Private Sub Form_Load()

         Dim p As String

         Randomize       (随机数种子，种子不一样，产生的随机数不一样)

         P = “”

For i = 1 To 10

                  a(i) = Int (Rnd*90) + 10            (用Rnd产生随机数90个，最小值为10)

         p=p & str(a(i)) & “”

Next

Label4.caption =LTrim (Left(p,Len(p)-1)

End sub

 

Sub 过程 与 Function 过程

      Sub过程的执行必须经过调用实现，调用Sub过程执行完，将跳回到调用Sub过程语句的下一条语句继续执行。调用方法：1.用Call语句   ：Call<</span>过程名> （【<</span>实参表>】），必须用（）把全部实际参数括起来，没有形参就没有实参，就可把空括号省略   2.直接使用过程名    ： 例：Call Substr（）  用Call调用过程

                             Substr          用过程名调用过程

         Function过程又称函数，与内部函数同样，是一个能够反复使用的程序段，其余程序段都可经过调用来执行这段程序。声明  Private|Public|Static  Function 函数名 参数表 AS 类

                                                                               函数体

                                                                               函数名=表达式

                                                                               Exit Function

                                                                     End Function

其声明方法与Sub大致相同，但Function有返回值，数值型函数过程默认返回0，字符串型为空字符串。  调用方法：1.直接使用函数名，只需写出函数名和相应参数  2.使用Call语句   Call函数名（参数123…）。

 

模块：多个窗体中的公共代码部分

可被多个窗体共用，减小程序长度，避免代码重复

 

Scale+高、宽度：指除去了边界和标题行后的净高、宽度

 

颜色

RGB（red，green，blue） 取值范围为0~255；QBColor（数字1~15）；vb+颜色英文（black、red、green、yellow、blue、magenta紫红、cyan青、white）

 

数据库（数据结构化、独立性、共享减小冗余）

Data控件、DAO、ADO Data 、ActiveX（ADO）访问数据库；数据报表设计器制做数据表

         使用DAO对象访问数据库

                  例：

                  新建工程，引用、选择Microsoft DAO 3.51Object Library、肯定

                  添加数据绑定控件

                  指定Database 对象与打开的物理数据库的映射并建立记录集Recordset对象代码以下：

                          Dim Db As Database    ‘定义Database 型对象变量

                          Dim Rst As Recordset   ‘定义Recordset型对象变量 

                                                                     ‘指定Database对象与打开的物理数据库的映射

                          Set Db =DBEngine.Workspaces (0) .OpenDatabase(“E:\DAODemo\student.mdb”)

                          ‘建立记录集Recordset对象

                          Set Rst=DB.OpenRecordset(“SELECT*FROM 学生信息;”)

                  编写代码，访问记录集vb总结.docx