VB6.0软件中MsgBox函数与MsgBox *** 作过程

方法/步骤

1、打开VB60，新建一个工程，在窗体中添加两个命令按钮，caption分别改为“MsgBox函数”和“MsgBox函数”，将界面设置成下图：

2、双击“MsgBox函数”，进入代码编辑窗口，输入如下代码：

Number

=

MsgBox("警告，程序即将退出",

vbOKOnly,

"警告")

3、由于函数有返回值，所以需要用等号进行赋值 *** 作，而且函数需要用一对括弧括住参数。

4、双击“MsgBox过程”，进入代码编辑窗口，输入如下代码：

MsgBox

"警告，程序即将退出",

vbOKOnly,

"警告"

5、退出代码编辑窗口，按下F5运行程序，单击“MsgBox函数”命令按钮，d出一个标题为“警告”的对话框，只有一个确定按钮，如图：

6、单击“MsgBox过程”命令按钮，d出一个标题为“警告”的对话框，只有一个确定按钮，此时d出的话框和单击“MsgBox函数”命令按钮一致，如图：

7、单击d出对话框上的“确定”按钮，将关闭警告对话框，如果是“MsgBox函数”将会有一个整型的值返回，“MsgBox过程”仅仅有对话框，没有返回值。

以上就是专题栏小编带来的vb60教程，更多教程请看“>

VB程序设计中MsgBox的语法：

MsgBox(Prompt[,Buttons][,Title][,Helpfile,Context])

用汉语可以简单理解成：msgbox "内容","窗口类型","标题"，其中内容是必选的，窗口类型及标题是:可选的。

代码示例：

If k > 0 Then

MsgBox "该员工'" + Trim(MS1TextMatrix(a, 2)) + "'已存在!", vbExclamation: Exit Sub

end if

扩展资料：

MsgBox是Visual Basic和VBS中的一个函数，功能是d出一个对话框，等待用户单击按钮，并返回一个Integer值表示用户单击了哪一个按钮。

“MsgBox”即为“Message Box”的缩写，在英语中意为“信箱”。

参考资料：

百度百科-msgbox

说不行的，太笨了。其实完全可以做得到，就是你再写个form2，在原来需要d出msgbox的地方，改为 form2show，然后在form2里设置2个按钮，分别是“确定”与“取消”，同样可以实现使用msgbox的功能。这样，就可以现实你的目的， 可以让msgbox d出时，下面的命令可以继续执行？并且不需要 Timer控件。（可以增加的“倒计时自动消失对话窗”的高级功能：在form2里放个定时器，设置倒计时，如果用户没有理会d出来的form2窗口，时间到了，form2可以自动消失。）

以下是代码：

Private Sub Form_load()

form2show

XXXX

END Sub

其中，XXXX以及后面的代码就是你原来希望的，d出消息框之后可以继续执行的代码（程序并未挂起，仍在执行）。

Form2 的代码:

在Form2中，“确定”按钮的名称为Command_sub1，“取消”按钮的名称为Command_sub2，以区别于Form1中的按钮。

Dim TimeLeft As Integer

Private Sub Form_load()

TimeLeft = 10

Timer1Interval = 1000

Timer1Enabled = True

Label_sub2Caption = "若未决定，将在" & Str$(TimeLeft) & " 秒后继续。"

End Sub

Private Sub Timer1_Timer()

TimeLeft = TimeLeft - 1

Label_sub2Caption = "若未决定，将在" & Str$(TimeLeft) & " 秒后继续。"

If TimeLeft = 0 Then

Timer1Enabled = False

DoEvents

Call Command_sub1_Click

End If

End Sub

Private Sub Command_sub1_Click()

'此段是"确定"按钮要执行的

Unload Form2

Set Form2 = Nothing

End Sub

Private Sub Command_sub2_Click()

'此段是"取消"按钮代码

Unload Form2

Set Form2 = Nothing

End Sub

分类: 电脑/网络 >> 程序设计 >> 其他编程语言

问题描述:

使用VB6的MsgBox函数d出窗口后，若用户不作出反映，整个程序就处于挂起状态(一切 *** 作都暂停了，包括Timer控件也暂停了)，有没有办法调用MsgBox时不挂起程序呢？

PS 自己编写MsgBox窗体就算了，问题解决后追加奖励50分。

解析:

不可能,因为msgbox 是有模式的对话框

不要用VB自带的MsgBox，因为VB自带的会中断程序的运行,用API的MessageBox

Public Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Call MessageBox(窗体Hwnd,"你要显示的文字","消息框的标题栏中所显示的文字","类型(VBQuesstion那些)"

以上就是关于VB6.0软件中MsgBox函数与MsgBox *** 作过程全部的内容，包括:VB6.0软件中MsgBox函数与MsgBox *** 作过程、在VB中点击一个按钮会出现msgbox"您确定要退出程序吗", vbYesNo,"提示"、VB程序设计中MsgBox怎么用等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！