VB编程中参数不可选是什么意思?
PrivateSubCommandButton1_Click()'单击"确定"按钮候执行程Application.ScreenUpdating=False'关闭屏幕更新S...
Private Sub CommandButton1_Click() '单击"确定"按钮 候执行 程 Application.ScreenUpdating = False '关闭屏幕更新 Static i As Integer '声明 变量 '判断用户名 密码 否输入 确 If CStr(Password.Value) _ = Right(Names("123456").RefersToLen(Names("123456").RefersTo) - 1) Then Unload Me '关闭登录窗体 'Application.Visible = True '显示Excel界面 Sheets("数据库").Select Else i = i + 1 '密码或用户名输入错误 变量i加1 If i = 3 Then ' 输错三 执行 面 语句 MsgBox " 起 权打 工作薄 ", vbInformation, "提示" ThisWorkbook.Close savechanges:=False '关闭 前工作薄 保存更改 Else ' 输错 满三 执行 面 语句 MsgBox "输入错误 " & (3 - i) & " 输入机 ", vbExclamation, "提示" 'User.Value = "" '清除文字框 用户名 Password.Value = "" '清除文字框 密码 End If End If Application.ScreenUpdating = True ' 启屏幕更新 Sheets("数据库").Select End SubIf CStr(Password.Value) _ = Right(Names("123456").RefersToLen(Names("123456").RefersTo) - 1) Then 句 Right 参数 选
展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询