用提示筐
创新互联专注于呈贡企业网站建设,成都响应式网站建设,商城开发。呈贡网站建设公司,为呈贡等地区提供建站服务。全流程按需策划,专业设计,全程项目跟踪,创新互联专业和态度为您提供的服务
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为返回值,可以知道用户按下哪个按钮。