学生管理系统之登录与退出窗体

问题一：登录界面代码解释

1.public OK As Boolean

把“OK”定义为公共的逻辑型(也称“布尔型”)变量。

2.vbOKOnly + vbExclamation      （也可以写为0+48）

这个是在设置弹出的对话框中出线的按钮和图标。这句话的意思是：弹出的对话框中只有一个确定按钮和一个警告的图标。

我们还会遇到vbOKCancel+ vbExclamation的情况，那么，VB中Msgbox提示框代码“vbOKOnly”与“vbOKCancel”的有什么区别呢？

（1）当用vbOkonly时，弹出的窗体只有“确定”和“×”按钮，无论点击那个，都会按照vbOK的指令进行。

（2）若使用vbOkCancel，弹出的窗体有“确定”、“取消”和“×”三个按键，这时的“×”和“取消”按键一样，是取消该操作的过程。

问题二：退出窗体

 If a = 6 Then     '6是msgbox的函数值，表示vbyes,即本句是if a=vbyes then.

Private Sub exitMenu_Click()
Dim a
    a = MsgBox("是否确认退出？", vbYesNoCancel + vbExclamation, "警告")
    If a = 6 Then     '6是msgbox的函数值，表示vbyes,即本句是if a=vbyes then.
        End
    Else
        FrmMain.Show
    End If

vbYesNo + vbExclamation是vb代码，常用于msgbox

意思是：命令按钮为yes no cancel（是，否，取消），命令标题栏Exclamation（感叹号）。

vbExclamation 左边有个警告符号（黄色三角）

其他：

vbInformation 左边有个感叹号

vbCritical 左边有个红色叉

 

注意：msgbox返回值常数：

问题三：设置班级课程窗体

问题一：实时错误424：窗体名称书写有错误：

窗体未被找到。此错误产生的原因及解决方法如下：

试图用 Add 方法向 Forms 集合中添加一个窗体，但是却没有该名字的窗体类，例如 Forms.Add "Form2"，这里 Form2 不存在。

确保工程中的类名字是有效的。

问题二.下拉文本框 combograde的AddItem必选参数？

    .AddItem 后不能用 "="；不同类型数据不能用 "+"，而应使用 "&"

不正确的提示：

正确的表示方法：.AddItem 后边直接加属性

问题三： 循环语句：While...Wend：

While...Wend 语句:只要指定的条件为 True，则会重复执行一系列的语句。

语法：

While

 condition[statements]    '部分描述condition必要参数

Wend      '数值表达式或字符串表达式，其计算结果为 True 或 False。

 

相比 Do...Loop 语句提供了一种结构化与适应性更强的方法来执行循环。

它与Do.....loop until语句的区别：while...wend语句不能使用Exit语句跳出循环。

While...Wend 语句又称为当型语句，do......loop until则称为直到型。

 

四.Dim mybookmark As Variant 

Variant 是一种特殊的数据类型，除了定长String数据及用户定义类型外，可以包含任何种类的数据。Variant 也可以包含Empty、Error、Nothing及Null等特殊值。可以用VarType函数或TypeName函数来决定如何处理 Variant 中的数据。

数值数据可以是任何整型或实型数，负数时范围从 -1.797693134862315E308 到 -4.94066E-324，正数时则从 4.94066E-324 到 1.797693134862315E308。