Excel中的VB编程问题之Msgbox函数相关问题

发布网友发布时间：2022-05-12 04:48

共2个回答

热心网友时间：2023-09-13 19:30

可以做一个类似msgbox的窗体，将文字大小设置为自己认为合适的大小。
然后编一个过程，调用该窗体，点击窗体按钮时为变量赋值。
举例：窗体为form1，里面添加标签为label1，添加2个按钮为button1，button2（可以根据情况增加按钮数量）
以下代码为手打，只供思路。
dim msgbox2 as integer
private sub msgbox1(byval str1,byval str2)
'str1为标题，str2为内容
msgbox2 =0 '没有点击任何按钮
str1="标题内容"
str2="提示内容"
form1.caption=str1
label1.text=str2
form1.show
end sub
private sub form1.button1_click
msgbox2=1 '说明点击的是button1
end sub
private sub form1.button2_click
msgbox2=2 '说明点击的是button2
end sub

热心网友时间：2023-09-13 19:31

这里提供一个思路：
可以自己做一个小的窗口（上面用Label控件+commandButton控件，字体要多大搞多大），类似于MSGBOX（假设窗体名称为frm_MsgBox），在要弹出MSGBOX的代码段，插入以下代码：
frm_MsgBox.show,0 '带模式弹出窗体，后面带的参数不是0就是1，这个较为重要
do
doevents
loop while frm_msgbox.visible=true ‘这里的frm_msgbox.visible=true可以自己设定检测窗体的哪一个变量

然后在自己做的msgbox窗体的“确定”按钮（或是隐藏窗体的触发控件）里，写以下代码：
me.visible=false

要访问frm_msgbox的控件，可以用类似frm_msgbox.caption="警告"这样的方式，也可以在模块里定义全局变量，在加载frm_msgbox时载入变量，以修改显示内容，这种方式可以在不用MSGBOX时关闭自定义窗体，释放资源

仅提供一个思路，代码或许有错，请自行鉴别