---
title: "Återställa fönster"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/84508-återställa-fönster"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "PsyDonia"
published: "2003-08-26T16:03:41.000Z"
updated: "2003-08-31T15:27:57.000Z"
replies: 6
views: 221
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/84508-återställa-fönster"
---

# Återställa fönster

## #1 — PsyDonia, 2003-08-26T16:03Z

Hej om jag minimerar mitt program och sän vill trycka på t.ex. F9 för att återställa fönstret om jag t.ex har ett annat program markerat.

har denna kod nu men funkar bara i debug mode eller om man inte har något annat program igång.

```
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF9 Then
frmMain.WindowState = vbNormal
End If
End Sub
```

Permalänk: https://www.webforum.nu/p/84508

## #2 — Nexus86, 2003-08-26T19:41Z

Lägg till en timer med cirka 10 i interval och följande kod:

```
Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Private Const VK_F9 = &H78

Private Sub Timer1_Timer()
    If CBool(GetAsyncKeyState(VK_F9)) Then
        frmMain.WindowState = vbNormal
    End If
End Sub
```

Permalänk: https://www.webforum.nu/p/1140460

## #3 — PsyDonia, 2003-08-27T17:33Z

Tack så mycket för hjälpen det funkar .....

Nexus86 är en ängel.

@-,--,---- @-,--,---- @-,--,---- @-,--,---- @-,--,---- @-,--,----
En hög rosor till dig

Permalänk: https://www.webforum.nu/p/1140931

## #4 — Nexus86, 2003-08-27T18:00Z

Vet jag väl! :OO ;) :P

Permalänk: https://www.webforum.nu/p/1140956

## #5 — PsyDonia, 2003-08-31T13:48Z

har blivit ett nytt fel.

när jag gör så som du nexus sa så funkade det.
men det vart ett problem.
fönstret återställs men det är inte aktiverat.
hur får jag det sen aktiverat.

Permalänk: https://www.webforum.nu/p/1145682

## #6 — Nexus86, 2003-08-31T15:17Z

```
Private Declare Function SetFocusAPI Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Private Const VK_F9 = &H78

Private Sub Timer1_Timer()
    If CBool(GetAsyncKeyState(VK_F9)) Then
        frmMain.WindowState = vbNormal
        SetFocusAPI frmMain.hWnd
    End If
End Sub
```

Permalänk: https://www.webforum.nu/p/1145742

## #7 — PsyDonia, 2003-08-31T15:27Z

Nexus du är väl bara för bäst...
U r da man

Permalänk: https://www.webforum.nu/p/1145748

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/84508-återställa-fönster