MessageBox里的Show里沒有自動關閉的方法,但是你可以自定義一個MessageBox,MessageBox就是一個窗體,你新建一個窗體Form2,添加一個public屬性message和一個定時器timer1,timer1的interval設置成你想要的時間,在Form2的Load事件啟動timer1,Timer1_Tick事件里關閉窗口Me.Close(),然后在需要顯示Messagebox的時候,在主窗口Form1里設置messge屬性,然后用show方法彈出窗口就可以了。
10年的汝陽網站建設經驗,針對設計、前端、開發(fā)、售后、文案、推廣等六對一服務,響應快,48小時及時工作處理。成都全網營銷的優(yōu)勢是能夠根據(jù)用戶設備顯示端的尺寸不同,自動調整汝陽建站的顯示方式,使網站能夠適用不同顯示終端,在瀏覽器中調整網站的寬度,無論在任何一種瀏覽器上瀏覽網站,都能展現(xiàn)優(yōu)雅布局與設計,從而大程度地提升瀏覽體驗。成都創(chuàng)新互聯(lián)從事“汝陽網站設計”,“汝陽網站推廣”以來,每個客戶項目都認真落實執(zhí)行。
Form1程序:(添加了一個Button1)
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim f2 As Form2 = New Form2
f2.Message = "提示"
f2.ShowDialog()
End Sub
End Class
Form2程序:(添加了一個Label1顯示信息和一個Timer1用于計時,F(xiàn)orm2可以自定義成你想要的樣式,標題,按鈕,窗體樣式等)
Public Class Form2
'自定義屬性 顯示提示信息
Public WriteOnly Property Message As String
Set(value As String)
Label1.Text = value
End Set
End Property
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Me.Close()
End Sub
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Interval=3000 '定時3秒關閉窗口
Timer1.Enabled = True
End Sub
End Class
代碼已在VS2017測試通過。
調用api
在Visual Baisc.net中的聲明:
Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = H2 '模擬鼠標左鍵按下
Public Const MOUSEEVENTF_LEFTUP = H4 ’模擬鼠標左鍵釋放
Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模擬鼠標中間鍵按下
Public Const MOUSEEVENTF_MIDDLEUP = H40 '模擬鼠標中間鍵釋放
Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模擬鼠標右鍵按下
Public Const MOUSEEVENTF_RIGHTUP = H10 '模擬鼠標右鍵釋放
Public Const MOUSEEVENTF_MOVE = H1 '模擬鼠標指針移動
例:
mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0
'在(10,10)模擬鼠標左鍵按下
vb我不是很會,我給你說個思路吧。timer控件設定計時開始和速度,假設為一秒一下。在timer事件中調用button的單擊事件,當然timer中還需要定義一個變量,用來做自增運算,一遍計算運行的時間。當變量到100后,彈出窗口提示完成,timer控件停止就行了。如果還是不明白我可以給你編個c#的代碼,只要是vb的語法不是很會。
我的做法是先寫入一個圖片變量,然后再寫入到容器上。容器設置雙緩沖
還有你說的控件必須透明不太明白,可以直接在容器上繪圖,不需要控件,圖片的透明度可以用RGBA色的A值(透明度)來控制
我這個也是實時翻滾刷新的,不會閃!