189 8069 5689
用提示筐
创新互联专注于呈贡企业网站建设,成都响应式网站建设,商城开发。呈贡网站建设公司,为呈贡等地区提供建站服务。全流程按需策划，专业设计，全程项目跟踪，创新互联专业和态度为您提供的服务
MsgBox(消息文本，显示按纽，标题）
例如：msgbox("是否退出系统?",vbokcancel+vbquestion,"提示")
可以通过MsgBox函数调用提示框。
msgbox函数有两种格式，一种带返回值，一种不带返回值
代码如下：
MsgBox "提示内容" ， ， “提示框标题” ‘不带返回值
D=Msgbox （“提示内容”， ， “提示内容”） ’D为返回值，可以知道用户按下哪个按钮。
可以利用msgbox 实现，也可以通过另外的窗体上画出表格实现
方法一，利用msgbox：
Private Sub Command1_Click()Dim a As Long, b As Long, c As LongMsgBox "┌────┬────┬────┐" vbCrLf _ "│ 库存1 │ 库存2 │ 库存3 │" vbCrLf _ "├────┼────┼────┤" vbCrLf _ "│" formatstr(a) "│" formatstr(b) "│" formatstr(c) "│" vbCrLf _ "└────┴────┴────┘" End SubPrivate Function formatstr(ByVal inputStr As String) As StringDim j As Integerj = (8 - Len(inputStr)) \ 2formatstr = Space(j) inputStr Space(j) Space((8 - Len(inputStr)) Mod 2)End Function
方法二，利用窗体实现：
’新建form2窗体‘将以下代码复制到form2窗体中Private Sub Form_Load()ShowPrint "┌────┬────┬────┐" vbCrLf _ "│ 库存1 │ 库存2 │ 库存3 │" vbCrLf _ "├────┼────┼────┤" vbCrLf _ "│" formatstr(a) "│" formatstr(b) "│" formatstr(c) "│" vbCrLf _ "└────┴────┴────┘" End SubPrivate Function formatstr(ByVal inputStr As String) As StringDim j As Integerj = (8 - Len(inputStr)) \ 2formatstr = Space(j) inputStr Space(j) Space((8 - Len(inputStr)) Mod 2)End Function‘将以下代码复制在form1窗体中Private Sub Command1_Click()Form2.ShowEnd Sub
用msgbox（）显示对话框
msgbox的用法很多，基础的就是msgbox（“你要显示的内容”）
或者msgbox（“你要显示的内容”,16,"对话框名称"）'16是对话框的类型，还有几个键的组合代码，这个你可以
查查
，很多，或者你也可以用提示给出的类型，比如MsgBoxStyle.Exclamation就是显示错误对话框，
msgbox就可以，很大一部分就是msgbox做的。
或者可以添加一个红色标签，用来提示输入错误并清空密码输入框。
可以通过MsgBox函数调用提示框。\x0d\x0amsgbox函数有两种格式，一种带返回值，一种不带返回值\x0d\x0a代码如下：\x0d\x0aMsgBox "提示内容" ， ， “提示框标题” ‘不带返回值\x0d\x0aD=Msgbox （“提示内容”， ， “提示内容”） ’D为返回值，可以知道用户按下哪个按钮。