问题一:登录界面代码解释
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。