08x画数选项 表3 按钮 内置常量名 取值 0k(确定) Look Cancel(取消) Vbcancel Abort(终止) Abort Retry(重试) Retry Ignore(忽略) ghore Yes(是) yes No(否) Vono
表3 按钮 内置常量名 取值 Ok（确定） Vbok 1 Cancel（取消） Vbcancel 2 Abort（终止） Vbbort 3 Retry（重试） Vbretry 4 Ignore（忽略） Vbignore 5 Yes（是） Vbyes 6 No（否） Vbno 7 MsgBox函数选项
MsgBox函数几种使用方法 Msg Box函数有以下几种使用方法: ●使用赋值语句。例如: ans= msgbox(“非法数据!”,48,“提示信息”) ●使用 print方法。例如: print Msg Box(“非法数据!”,48,“提示信息”) ●也可以把它等同为一个方法使用,例如: Msg Box“非法数据!”,48,“提示信息
MsgBox函数有以下几种使用方法： ● 使用赋值语句。例如： ans=msgbox（“非法数据！” ，48， “提示信息”） ● 使用 print方法。例如： print MsgBox(“非法数据！” ，48， “提示信息”) ● 也可以把它等同为一个方法使用，例如： MsgBox “非法数据！” ，48， “提示信息” MsgBox函数几种使用方法
例帳号和蜜码翰入检验 编一帐号和密码输入的检验程序 帐号为不超过6位数字,密码为4位字符 ·密码输入时在屏幕上不显示输入的字符,而以“*代替 ·当输入不正确时,显示有关信息
例 帐号和密码输入检验 编一帐号和密码输入的检验程序 •帐号为不超过6位数字，密码为4位字符 •密码输入时在屏幕上不显示输入的字符，而以“*”代替 •当输入不正确时，显示有关信息
与用户念互画 Private Sub txtNo LostFocuso If Not IsNumeric(txtNo)Then Msg Box"帐号有非有效数字字符", exClamation 输入帐号" 调用 msgbox过程 txtNo. Text txtNo SetFocus End if End
Private Sub txtNo_LostFocus() If Not IsNumeric(txtNo) Then MsgBox "帐号有非有效数字字符 " , vbExclamation, "输入帐号" '调用msgbox过程 txtNo.Text = "" txtNo.SetFocus End If End 与用户交互函数
与用户念互画 Private Sub cmdok click Dim i as integer If txtpas Text="Gong"Then Msg Box"输入正确 Else I= Msg Box("密码错误",5+ exClamation,"输入密码") 调用 msgbox函数 IfI<>4Then'按"取消"按钮 End Else txtpas. Text= l txtpas SetFocus End If End if End Sub
Private Sub cmdok_click() Dim I As Integer If txtpas.Text = "Gong" Then MsgBox "输入正确" Else I = MsgBox("密码错误" , 5 + vbExclamation, "输入密码") '调用msgbox函数 If I <> 4 Then '按"取消"按钮 End Else txtpas.Text = "" txtpas.SetFocus End If End If End Sub 与用户交互函数