...今天用VB写电子贺卡,用到MSGBOX函数,遇到个问题我的语句是

发布网友 发布时间：2024-10-24 01:12

我来回答

共4个回答

热心网友 时间：2024-11-08 09:49

你要达到的效果是Msgbox无法达到的...

1、你可以自己制作一个窗体，设置为没有边框，那就没有关闭的那个X了，再加一个定时器，3秒后执行退出，也不需要 是 的按钮。

2、用API函数：

Private Declare Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long, ByVal wlange As Long, ByVal dwTimeout As Long) As Long

Private Sub Command1_Click()
    MessageBoxTimeout Me.hwnd, "现在是" & Now(), "", vbInformation, 0, 3000

End Sub
可以实现3秒自动退出，但还有那个“是"的按钮，和那个关闭按钮就是那个×。

 

只有第1个才能实现你的要求

热心网友 时间：2024-11-08 09:47

vb.net
http://ba527.blog.163.com/blog/static/3481305201110111727598/

vb6 直接用API:
Private Declare Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long, ByVal wlange As Long, ByVal dwTimeout As Long) As Long

热心网友 时间：2024-11-08 09:54

那你就不要使用msgbox，你使用一个 form，设置这个form为你要的格式，可以使用一个定时器控件定时退出这个窗口就行了

热心网友 时间：2024-11-08 09:45

1、MsgBox的一些基本设置与其参数：
inta=MsgBox("这里是对话框提示内容", 这里是按钮类型和对话框图标 , "这里是标题")
例如：inta=MsgBox("密码错误", 这里是按钮类型和对话框图标 , "警告")
对话框参数说明：
一、按钮类型：
符号常数 值 说明
vbOKOnly 0 显示【确定】按钮
vbOKCancel 1 显示【确定】和【取消】按钮
vbAbortRetryIgnore 2 显示【放弃】、【重试】和【忽略】按钮
vbYesNoCancel 3 显示【是】、【否】和【取消】按钮
vbYesNo 4 显示【是】和【否】按钮
vbRetryCancel 5 显示【重试】和【取消】按钮

二、图标类型：
符号常数 值 说明
VbCritcal 16 显示“×”符号
VbQuestion 32 显示“?”符号
VbExclamation 48 显示“!”符号
VbInformation 显示“i”符号

三、MsgBox的返回值：
用户单击的按钮 返回值
【确定】 1
【取消】 2
【放弃】 3
【重试】 4
【忽略】 5
【是】 6
【否】 7

2、关于”还有我想设定取消这些后msg消息窗口3秒钟自动退出这该咋整“的问题：
一般来说，MsgBox对话框只有点击按钮才能退出，并返回 返回值，如果需要在一定时间退出对话框，需要定时器，即 Timer 控件，在 Timer1_Timer() 事件中设置按钮返回值即可。