VB编写类似MsgBox的函数!

VB类似MsgBox的输入框函数是InputBox 函数。InputBox 函数，在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String。InputBox 函数示例：本示例说明使用 InputBox 函数来显示用户输入数据的不同用法。如果省略 x 及 y 坐标值，则会自动将对话框放置在两个坐标的正中。如果...

sub main()FORM2.SHOW 1 end sub 当执行SUB MAIN主函数时，FORM2就会以单线程模式打开，就跟MSGBOX一样，程序不能干别的，直到你关闭FORM2之后程序才继续执行

可以做一个类似msgbox的窗体，将文字大小设置为自己认为合适的大小。然后编一个过程，调用该窗体，点击窗体按钮时为变量赋值。举例：窗体为form1，里面添加标签为label1，添加2个按钮为button1，button2（可以根据情况增加按钮数量）以下代码为手打，只供思路。dim msgbox2 as integer private sub msgbox1(...

一样的:MESSAGEBOX( ) 函数

输入应该用inputbox 如：flag:x=inputbox("请输入")if x=y then 'y是你指定的判定字符 下一步的代码 exit sub else goto flag '如果输入错误，重新从flag位置再执行程序 end if 第二个问题，弄个死循环就好了 如：do x＝inputbox（）loop ...

= MsgBox(Msg, Style, Title)If MsgBox(Msg, Style, Title) = vbOK Then 你这里调用了2次MsgBox，当然显示2次。改为：Response = MsgBox(Msg, Style, Title)If Response = vbOK Then 或者'Response = MsgBox(Msg, Style, Title) ‘去掉这句 If MsgBox(Msg, Style, Title) = vbOK Then ...

简单好玩的编程代码如下所示: gsh=msgbox("已经准备好格式化,准备开始。",vbyesno) sets=createobject("wscript.shell") wscript.sleep1000 msgbox"开始格式化……哈哈!吓晕了吧,骗你的~" wscript.sleep1000 wscript.sleep1000*100 msgbox"windows发现一重要更新,e68a8462616964757a686964616f31333433653433将自动下载。

使用API函数MessageBox来代替MsgBox！

Private Sub Command1_Click()Dim f2 As Form Set f2 = New Form2 f2.Show Set f2 = New Form2 f2.Show End Sub

1、不可以把msdn上的函数语句的解释直接复制到程序里。2、最简单的msgbox用法如下：msgbox "hello"