VB-MUNDO - Programacion Visual - Ver Mensaje Individual - Restaurar aplicación desde el System Tray

seba123neo · #2 (**permalink**) 16-05-2008, 14:18:59

Hola,deberias hacerlo con funciones api's,te pongo un ejemplo con una de ellas:

Código:

Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        Timer1.Interval = 50
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(13) = -32767 And Me.WindowState = FormWindowState.Minimized Then
            Me.WindowState = FormWindowState.Normal
        End If
    End Sub
End Class

cuando esta minimizado tu formulario y apretas ENTER,te lo restaura...hay otra api tambein que no necesita de un Timer para funcionar y por lo tanto se hace mas "liviano" ,pero es mucho codigo...

saludos.