[VB 2010] Me.Hide() Timer

[Treep]

Guten Tag epvp,
hab ein Problem undzwar,
möchte ich wenn die Form sich öffnet, das Sie sich nach paar Sekunden, sich minimiert und wieder maximiert.
Kein Problem.

Deshalb mache ich bei Form_Load:

Starter.Start()

Und in dem Timer ist folgendes:

Me.Hide()
Me.Show()
Starter.Stop()

Stoppen ist weil es sich dann die ganze Zeit minimiert und maximiert.

Timer:

Enabled = False
Interval = 18000 (18 Sekunden)

Nun habe ich hier ein Befehl:

Case Keys.Delete
Me.Hide()
Case Keys.Insert
Me.Show()

Das Problem ist jetzt das diese nicht ausgeführt werden, denn:

Wenn ich eines der Tasten drücke passiert es aber es wird dann wieder angezeigt.

Ich glaube das hat was mit dem Timer zutun aber ich weiß nicht was.

[SwarN]

Du hast ja keinen Fokus auf dein Programm, daher verläuft spätestens das Maximieren im Nirvana.

Du musst dein Keyboard Global Hooken, damit dein Programm dies erkennt.

Google einfach mal nach "Global Keyboard Hook" oder so ähnlich.
Pass aber auf, denn dabei wird dein Programm ziemlich leicht als Virus erkannt. Da es ja Tastenabfragen abgreift.

[Treep]

Habe sowas hier:

 Spoiler

Imports System.Runtime.InteropServices
Public Class WolfSeedD3D
#Region "Hook"

    Private Declare Sub keybd_event Lib "user32" ( _
    ByVal bVk As Byte, _
    ByVal bScan As Byte, _
    ByVal dwFlags As Integer, _
    ByVal dwExtraInfo As Integer)

    Private Const KEYEVENTF_KEYUP = &H2

    Private Delegate Function HOOKPROCDelegate( _
    ByVal nCode As Integer, _
    ByVal wParam As IntPtr, _
    ByRef lParam As KBDLLHOOKSTRUCT) As IntPtr


    Private HookProc As New HOOKPROCDelegate(AddressOf KeyboardHookProc)

    Private Declare Unicode Function GetModuleHandleW Lib "kernel32.dll" ( _
    ByVal lpModuleName As IntPtr) As IntPtr


    Private Declare Unicode Function SetWindowsHookExW Lib "user32.dll" ( _
    ByVal idHook As Integer, _
    ByVal lpfn As HOOKPROCDelegate, _
    ByVal hMod As IntPtr, _
    ByVal dwThreadId As UInteger) As IntPtr

    ' Für das Löschen des Hooks wird diese Funktion verwendet:
    Private Declare Unicode Function UnhookWindowsHookEx Lib "user32.dll" ( _
    ByVal hhk As IntPtr) As UInteger

    Private Declare Unicode Function CallNextHookEx Lib "user32.dll" ( _
    ByVal hhk As IntPtr, _
    ByVal nCode As Integer, _
    ByVal wParam As IntPtr, _
    ByRef lParam As KBDLLHOOKSTRUCT) As IntPtr

    Private Const WM_KEYDOWN As Int32 = &H100    ' Konstante für WM_KEYDOWN
    Private Const WM_KEYUP As Int32 = &H101      ' Konstante für WM_KEYUP
    Private Const HC_ACTION As Integer = 0       ' Konstante für HC_ACTION
    Private Const WH_KEYBOARD_LL As Integer = 13 ' Konstante für WH_KEYBOARD_LL

    Public PrevWndProc As Integer
    Private mHandle As IntPtr

    <StructLayout(LayoutKind.Sequential)> Public Structure KBDLLHOOKSTRUCT
        Public vkCode As Keys
        Public scanCode, flags, time, dwExtraInfo As UInteger

        Public Sub New(ByVal key As Keys, _
        ByVal scancod As UInteger, _
        ByVal flagss As UInteger, _
        ByVal zeit As UInteger, _
        ByVal extra As UInteger)

            vkCode = key
            scanCode = scancod
            flags = flagss
            time = zeit
            dwExtraInfo = extra
        End Sub
    End Structure


    Public Property KeyHookEnable() As Boolean
        Get
            Return mHandle <> IntPtr.Zero
        End Get
        Set(ByVal value As Boolean)
            If KeyHookEnable = value Then Return
            If value Then
                mHandle = SetWindowsHookExW(WH_KEYBOARD_LL, HookProc, _
                  GetModuleHandleW(IntPtr.Zero), 0)
            Else
                UnhookWindowsHookEx(mHandle)
                mHandle = IntPtr.Zero
            End If
        End Set
    End Property


    Private Function KeyboardHookProc(ByVal nCode As Integer, _
    ByVal wParam As IntPtr, _
    ByRef lParam As KBDLLHOOKSTRUCT) As IntPtr

        Dim fEatKeyStroke As Boolean

        If nCode = HC_ACTION Then

            fEatKeyStroke = Hook(lParam.vkCode)



            If fEatKeyStroke Then
                Return New IntPtr(1)
                Exit Function
            End If

            Return CallNextHookEx(mHandle, nCode, wParam, lParam)
        End If
    End Function

#End Region







    Dim DoubleHookProtect As Short = 1
    Private Function Hook(ByVal keyCode As Integer)


        If DoubleHookProtect = 1 Then
            DoubleHookProtect = 2
        Else
            DoubleHookProtect = 1
            Return False
        End If

[DeinMud]

Guck dir RegisterHotKey an.
Ein lowlevelkeyboard hook ist dafür nicht nötig.