VB 版 (精华区)

一步一步学vb(2)
2000-08-08· 迷糊·yesky
　　上次迷糊和大家一起学了3个控件，不知道大家学懂了没有。离上次学习有有一段时
间了，本来迷糊很想马上写第二篇的，可是这几天迷糊迷上uo了，在里面玩得不分东西
南北，结果今天才写，不好意思了。
　　好，马上开始这篇的学习，今天我们不学控件，学一个函数(msgbox)。
　　我们在使用window的时候常常会看到许多提示的小窗体，它们是怎么做出来的呢？
其实用vb来实现是很简单的事情。
　　现在我们就用上一篇的程序做一些修改来做这次学习的示例。上次我们已经做好了
一个窗体，而且还可以正常退出了。现在我们在它的基础上做一些修改来实现提示窗体
。
　　双击commandbutton，进入其编程界面，写下如下语句：
private sub command1_click()
dim intpress as
intpress=msgbox("和迷糊一起学vb好！",vbinformation,"提示窗体示例")
'如果不需要返回值这里可以不要"intpress="直接写msgbox就可以了
'这里的vbinformation是对图标的控制，msgbox会返回一个数值，我们可以通过返回数
值来控制程序，方法如下
select case intpress
case ""
……
case ""
end select
end sub
　　写好了以后运行会出现下面的窗体,点击确定后退出程序。
　　小节：
　　msgbox的格式是这样的MsgBox(prompt[, buttons] [, title] [, helpfile, cont
ext]) ,大家应该看出来了strmsg就是要显示的内容，buttons是用来指定参数(如下表)
的，而strtitle是显示上面的标题栏文本的。
　　msgbox可以接收很多参数，这3个是最常用的参数，其中有［　］的还可以不写。比
如可以这样：
　　intpress=msgbox("are you ready for the report?",vbquestion+vbyesnocancel
,"report request")结果如图。
　　下面我列出inttype参数所有可选的：
1.按钮类
命令文字 数值 描述
vbokonly 0 显示ok按钮
vbokcancel 1 显示ok和cancel按钮
vbabortretrycancel 2 显示abort，retry和ignore按钮
vbyesnocancel 3 显示yes，no和cancel按钮
vbyesno 4 显示yes和no按钮
vbretrycancel 5 显示retry和cancel按钮
2.图标类
命令文字 数值 描述
vbcritical 16 显示critical message图标
vbquestion 32 显示warning query图标
vbexclamation 48 显示warning message图标
vbinformation 64 显示information message图标
3.缺省按钮
命令文字 数值 描述
vbdefaultbutton1 0 第一个按钮是缺省的
vbdefaultbutton2 256 第二个按钮是缺省的
vbdefaultbutton3 512 第三个按钮是缺省的
　　最后给出msgbox的返回值：
命令文字 数值 描述
vbok 1 用户单击ok按钮
vbcancel 2 用户单击cancel按钮
vbabort 3 用户单击abort按钮
vbretry 4 用户单击retry按钮
vbignore 5 用户单击ignore按钮
vbyes 6 用户单击yes按钮
vbno 7 用户单击no按钮