快速打造个性的对话框表情!
a=inputbox("输入标题")
b=inputbox("输入正文")
ask=msgbox("用消息框吗?",vbyesno,vbquestion)
if ask=vbyes then
msgbox b,vbinformation,a
else
ask=msgbox("用警示框吗?",vbyesno,vbquestion)
if ask=vbyes then
msgbox b,vbexclamation,a
elseask=msgbox("用疑问框吗?",vbyesno,vbquestion)
if ask=vbyes then
msgbox b,vbquestion,aelsemsgbox b,vbCritical,a
end if
end if
end if
将上面的复制到文本文件里面 保存为 对话框表情编辑器.VBS
I
a=inputbox("输入标题")
b=inputbox("输入正文")
ask=msgbox("用消息框吗?",vbyesno,vbquestion)
if ask=vbyes then
msgbox b,vbinformation,a
else
ask=msgbox("用警示框吗?",vbyesno,vbquestion)
if ask=vbyes then
msgbox b,vbexclamation,a
elseask=msgbox("用疑问框吗?",vbyesno,vbquestion)
if ask=vbyes then
msgbox b,vbquestion,aelsemsgbox b,vbCritical,a
end if
end if
end if
将上面的复制到文本文件里面 保存为 对话框表情编辑器.VBS
I