以前自己写的一套VB编程基础系列教程,适合VB初学者。

Msgbox

消息框里的图标:
vbquestion 表示询问
vbinformation 表示消息
vbexclamation 表示警告
vbcritical 表示危机
例如:msgbox "Can you speak english?",vbyesnocancel+vbquestion,"hello"
弹出:
VB消息框与输入框

例如:
i=msgbox("Can you speak english?",vbyesnocancle+vbquestion,"hello")
select case i
case vbyes
msgbox "我按了yes"
case vbno
msgbox "我按了No"
case vbcancel
msgbox "我按了cancel"
end select

常数 值 按钮
VBOK 1 确定
VBCancel 2 取消
vBabort 3 终止
VBRetry 4 重试
VBIgnore 5 忽略
VBYes 6 是
VBNo 7 否

Inputbox

例如:
hqw=inputbox("what is your name?","hello")
if hqw="" then
end

hqw返回的是string,就等于用户输入的字符串。
当用户按了取消按钮后,这个变量即P将返回一个空值。