Om programmet redan körs vill jag få det återställt om det är minimerat och framför de program som döljer det. "Aktivt" Ok, men gör inte rätt anrop? Du använder AppActivate med namnet i på ett av dess fönster, namet på själva applikationen eller handtaget retunerat från shell() funktionsanropet. T.ex: Intressant, tack!If App.PrevInstance = True Then MakeVisible???
'Form Load()
If App.PrevInstance = True Then
'Programmet körs redan
'Gör applicationen aktiv i windows? "Den som körs" MakeVisible???
Unload Me
End
End If
Tacksam för hjälp!Sv: If App.PrevInstance = True Then MakeVisible???
Call AppActivate("Program.exe", False)
AppActivate "Program.exe"
?Sv: If App.PrevInstance = True Then MakeVisible???
<code>
AppActivate "Namnlös - Anteckningar"
</code>
Jag rekommenderar dig att i detta fall använda en modul och sätta starut-up objekt för projektet till Sub Main. Använd sedan följande kod:
<code>
Public Sub Main()
Dim strTitle As String
If App.PrevInstance Then
strTitle = App.Title
App.Title = ""
AppActivate strTitle
Else
Form1.Show
End If
End Sub
</code>
Funkade när jag som hastigast testade hos mig.Sv: If App.PrevInstance = True Then MakeVisible???
Får ett fel.
Om programmet är minimerad så blir det fel?
Tacksam för hjälp!