1樓：匿名使用者
生成exe檔案後有效'其實你可以再添激灶殲加個form來實現，還有明衝其他方法，，，option explicit
private declare function sendmessage lib "user32" alias "sendmessagea" (byval hwnd as long, byval wmsg as long, byval wparam as long, lparam as any) as long
private declare function findwindow lib "user32" alias "findwindowa" (byval lpclassname as string, byval lpwindowname as string) as longprivate const wm_close = h10private sub command1_click()
msgbox "abcde"
end subprivate sub timer1_timer()
dim hwnd as long
hwnd = findwindow(vbnullstring, "工辯悔程1")
call sendmessage(hwnd, wm_close, 0, byval 0&)
falseend sub
2樓：匿名使用者
新建工程之後，在軟體右邊（預設）修改屬性，至於3秒關閉，你是想退出程式還是想後臺執行？
vb 中的msgbox輸出的資訊如何使它3秒後自動消失
3樓：我愛你
msgbox 彈出來時間就不動了 這種訊息框你自己用form2 寫就好了。
vb如何實現msgbox自動關閉
4樓：網友
set wshshell = createobject("")'建立函式並引用。
例子dim i
i='msgbox i 這種是不會自動關閉的i,5,"彈出資訊顯示欄" 'i表示彈出框的內容，5表示等待5秒時間自動關閉，"彈出資訊顯示欄" 是彈出框左上角的標題名稱。
i這裡還可以加描述如："這個是賦值給i的值等於："&i完整（ "這個是賦值給i的值等於："&i,5,"彈出資訊顯示欄"）
5樓：匿名使用者
msgbox有點難度，建議用這個函式：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 , "test", "tips", vbinformation, 0, 3000
end sub
6樓：匿名使用者
private sub command1_click()
createobject("").popup "本視窗將在三秒鐘後自動關閉……", 3, "msgbox", 64
end sub
7樓：舜茵戰韶容
用一些自動點滑鼠的api可以實現，不過這樣體現不出來咱的水平，我的建議是：自己做個form，要和msgbox很像，但是多乙個timer控制項，時間到就關閉。
vb怎麼用**關掉msgbox開啟的窗體
8樓：網友
用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 , "hello world", "title", vbinformation, 0, 3000
end sub
9樓：程式設計知識分享家
用msgbox是無法實現的，你可以做乙個假的msgbox，也就是做乙個新的窗體，這樣利用時鐘控制項來控制就比較簡單了。
10樓：網友
用 msgboxex 這個api 函式可以定義自動關閉時長。
11樓：網友
msgbox彈出後，在被處理之前，你的程式會被掛起，因此所有的**包括timer事件中的**都不會執行，所以沒有簡單的程式可以關掉。其實下面回答提供的方法都很好，而且並不複雜。
特別採用messageboxtimeout函式這個方法，就只是在模組前面宣告一次這個api函式就行了，然後你所有用到需要自動關閉的msgbox的地方，都不採用msgbox而是採用messageboxtimeout就行了，其實相當的簡單方便，你覺得複雜可能是因為函式宣告和返回值處理，看起來**比較長，其實相比msgbox，就只是多了乙個api函式宣告。
vb msgbox 定時關閉
12樓：
msgbox是乙個非模態視窗，只有當使用者響應它以後才能繼續執行下面的語句，所以我認為不能實現。
13樓：網友
一切皆有可能。李寧。
private sub command1_click()createobject("").popup "本視窗將在三秒鐘後自動關閉……", 3, "msgbox", 64
end sub
精於心，簡於形。philips
14樓：網友
不建議使用 msgbox + 定時關閉。
自己寫乙個視窗當msgbox會比較好。
用vb做了乙個軟體，在其中有彈出乙個msgbox，我想讓這個msgbox彈出兩秒後關閉，再彈出另外
15樓：網海1書生
msgbox彈出的是由作業系統提供的公共對話方塊，是個模態視窗，開啟後程式就被掛起了，你在程式中是無法對其執行關閉操作的。建議你自己用視窗模擬乙個msgbox視窗（其實很簡單的），這樣你就可以隨意控制了。
按鍵精靈 有自動關閉msgbox的命令嗎，該怎麼樣才能實現呢
16樓：網友
set wshshell=createobject("")
intmsg= ("5秒後自動關閉彈窗，5,"test",vbokonly)
popup 方法顯示乙個彈出式訊息框視窗，訊息框中包含的訊息由 strtext 指定。該訊息框的視窗標題由 strtitle 指定。若 strtitle 省略，則視窗標題為 windows scripting host。
語法。, natsecondstowait], strtitle], nattype]) intbutton
註釋。若提供 natsecondstowait 且其值大於零，則訊息框在 natsecondstowait 秒後關閉。
nattype 的含義與其在 win32? messagebox 函式中相同。下表顯示 nattype 中的值及含義。下表中的值可以組合。
按鈕型別。值 幫助。
0 顯示「確定」按鈕。
1 顯示「確定」和「取消」按鈕。
2 顯示「終止」、「重試」和「忽略」按鈕。
3 顯示「是」、「否」和「取消」按鈕。
4 顯示「是」和「否」按鈕。
5 顯示「重試」和「取消」按鈕。
圖示型別。值 幫助。
16 顯示停止標記圖示。
32 顯示問號圖示。
48 顯示感嘆號圖示。
64 顯示資訊標記圖示。
以上兩個表並不涵蓋 nattype 的所有值。完整的列表請參閱 win32 文件。
返回值。intbutton 指示使用者所單擊的按扭編號。若使用者在 natsecondstowait 秒之前不單擊按扭，則 intbutton 設定為 -1 。
值 幫助。1 「確定」按扭。
2 「取消」按扭。
3 「終止」按扭。
4 「重試」按扭。
5 「忽略」按扭。
6 「是」按扭。
7 「否」按扭。
17樓：網友
用按鍵自帶的這個彈窗功能，不需要別的外掛程式。
返回值 = lib.視窗。彈出對話方塊("彈窗提示資訊","輸入等待時間秒數，到時間後會自動關閉",提示標題，顯示樣式)
舉例：返回值 = lib.視窗。彈出對話方塊("成功","3",提示標題，顯示樣式)
彈窗會彈出成功兌換框，並於3秒後自動關閉此對話方塊。
vb msgbox視窗怎麼設定沒有按鈕，定時幾秒後關閉。
18樓：徽信
msgbox有點難度，建議用這個函式：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 , "test", "tips", vbinformation, 0, 3000
end sub
vb如何改變msgbox的標題?
19樓：網友
msgbox可以作為函式呼叫也可以作為過程呼叫，有兩種使用方法：
1，以函式格式使用，就是你的那種方法加括號，我們知道所謂函式，就是會返回乙個值的，所以用了括號，句要這樣呼叫；
x = msgbox("123",vbokonly,"張三李四")不必去關心，返回給x是什麼值。
2，如果不加括號就是作為過程呼叫，格式如下：
msgbox "123", vbokonly, "張三李四"
3，過程呼叫可以用call 語句，這時候又要加括號了，格式如下：
call msgbox("123", vbokonly, "張三李四")
這裡講述了呼叫函式和呼叫過程的不同3種格式。
20樓：網友
你要返回直可以那麼寫，不要返回值就 msgbox 內容，vbokonly,標題。
21樓：網友
把括號去掉應該就可以了。
vb6中怎麼修改字型顏色,VB中如何改變文字顏色
可以直接在bai 屬性面板裡設定對 象的du zhiforecolor 如果有 屬性。用 設定dao,其內格式 容物件.forecolor 設定值其中設定值可以為四種 1 例如 物件.forecolor vbred 紅色,或vbblue等,vbgreen綠色等 2 rgb 正如樓上 爛掉 蘿蔔 所言...
VB6怎麼用錯誤捕獲，VB中程式錯誤的捕獲以及處理方法
vb6使用on error 語句來捕獲程式執行中的可預見錯誤或不可預見的錯誤。on error 語句，啟動一個錯誤處理程式並指定該子程式在一個過程中的位置 也可用來禁止一個錯誤處理程式。說明如果不使用 on error 語句，則任何執行時錯誤都是致命的 也就是說，結果會導致顯示錯誤資訊並中止執行。o...
在vb6中如何將utf8編碼轉換為ansi編碼
先寫入檔案，再按對應的 頁按位元組讀取轉換。如下 private const cp acp 0 default to ansi code page private const cp utf8 65001 default to utf 8 code page private declare funct...