[Code] Autoclose Msgbox / Auto Fechar MsgBox VB.NET

Ir em baixo

[Code] Autoclose Msgbox / Auto Fechar MsgBox VB.NET

Mensagem por uNreal em 18/10/2018, 23:10

Código:
    Public Class Form1
   
        Private Declare Sub keybd_event Lib "user32" _
                          (ByVal bVk As Byte, _
                          ByVal bScan As Byte, _
                          ByVal dwFlags As Byte, _
                          ByVal dwExtraInfo As Byte)
   
        Private Const VK_RETURN As Byte = &HD
        Private Const KEYEVENTF_KEYDOWN As Byte = &H0
        Private Const KEYEVENTF_KEYUP As Byte = &H2
   
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim t As New Threading.Thread(AddressOf closeMsgbox)
            t.Start(10) '10 second delay
            MsgBox("message")
        End Sub
   
        Private Sub closeMsgbox(ByVal delay As Object)
            Threading.Thread.Sleep(CInt(delay) * 1000)
            AppActivate(Me.Text)
            keybd_event(VK_RETURN, 0, KEYEVENTF_KEYDOWN, 0)
            keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0)
        End Sub
   
    End Class
Crédito: .paul.
avatar
uNreal
ADM
ADM


Voltar ao Topo Ir em baixo

Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum