Lancer un prog encours et le remettre au 1er plan

chris9124 Messages postés 10 Date d'inscription mercredi 18 mai 2005 Statut Membre Dernière intervention 19 août 2005 - 5 août 2005 à 16:48
jhary69 Messages postés 81 Date d'inscription jeudi 29 juillet 2004 Statut Membre Dernière intervention 22 juillet 2007 - 7 août 2005 à 11:39
Bonjour,

J'ai crée un programme en VB.net pour passer mon HTPC en veille prolongée à une donnée définié par l'utilisateur.

Mon programme tourne en arrière plan, et je voudrais quand je reclique sur l'exe le faire basculer au 1 er plan pour par exemple quitter l'appli ou changer l'heure.

Il faut que le prog verifie s'il est deja en cours et si oui il bascule la fenetre au 1er plan !!! C'est con mais en VBS, j'arrive bien à le faire et pas là !!!

Merci

7 réponses

fcampagne Messages postés 195 Date d'inscription vendredi 3 juin 2005 Statut Membre Dernière intervention 13 juillet 2006 3
5 août 2005 à 16:54
Slt, en vb.net tu peux peut etre t'en sortir avec ca



Me.Show()

Me.WindowState = FormWindowState.Normal
0
chris9124 Messages postés 10 Date d'inscription mercredi 18 mai 2005 Statut Membre Dernière intervention 19 août 2005
5 août 2005 à 16:56
Cool je teste tout de suite...
0
chris9124 Messages postés 10 Date d'inscription mercredi 18 mai 2005 Statut Membre Dernière intervention 19 août 2005
5 août 2005 à 17:03
Argh ça ne marche pas !!!! En fait je ne sais pas où placer le code !!!!!!
0
chris9124 Messages postés 10 Date d'inscription mercredi 18 mai 2005 Statut Membre Dernière intervention 19 août 2005
5 août 2005 à 17:10
En vbs j'utilie returnval = appactivate("nom de la fenetre") qui me renvoie 0 ou 1 suivant si la fenetre est active ou non. Mais ça ne marche pas en VB.net apparamment.

Je suis bloqué !
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
kakenette Messages postés 218 Date d'inscription dimanche 1 mai 2005 Statut Membre Dernière intervention 15 novembre 2009 1
5 août 2005 à 19:01
Rem déclaration :

Private Const SWP_NOMOVE = 2

Private Const SWP_NOSIZE = 1

Private Const HWND_TOPMOST = -1

Private Declare Function SetWindowPos Lib "USER32" (ByVal hwnd As Long, _

ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _

ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long





Dans le load :



SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE


kakenette
0
kakenette Messages postés 218 Date d'inscription dimanche 1 mai 2005 Statut Membre Dernière intervention 15 novembre 2009 1
5 août 2005 à 19:04
arf merde c du vb 6.0 :( peut etre que ca marche aussi va savoire...

kakenette
0
jhary69 Messages postés 81 Date d'inscription jeudi 29 juillet 2004 Statut Membre Dernière intervention 22 juillet 2007
7 août 2005 à 11:39
salut,

j'ai trouvé ca chez crosoft ...

Option Explicit

Public Const GW_HWNDPREV = 3

Declare Function OpenIcon Lib "user32" (ByVal hwnd As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) _
As Long
Declare Function GetWindow Lib "user32" _
(ByVal hwnd As Long, ByVal wCmd As Long) As Long
Declare Function SetForegroundWindow Lib "user32" _
(ByVal hwnd As Long) As Long

Private Sub Form_Load()
If App.PrevInstance Then
ActivatePrevInstance
End If
End Sub

Sub ActivatePrevInstance()
Dim OldTitle As String
Dim PrevHndl As Long
Dim result As Long

'Save the title of the application.
OldTitle = App.Title

'Rename the title of this application so FindWindow
'will not find this application instance.
App.Title = "unwanted instance"

'Attempt to get window handle using VB4 class name.
PrevHndl = FindWindow("ThunderRTMain", OldTitle)

'Check for no success.
If PrevHndl = 0 Then
'Attempt to get window handle using VB5 class name.
PrevHndl = FindWindow("ThunderRT5Main", OldTitle)
End If

'Check if found
If PrevHndl = 0 Then
'Attempt to get window handle using VB6 class name
PrevHndl = FindWindow("ThunderRT6Main", OldTitle)
End If

'Check if found
If PrevHndl = 0 Then
'No previous instance found.
Exit Sub
End If

'Get handle to previous window.
PrevHndl = GetWindow(PrevHndl, GW_HWNDPREV)

'Restore the program.
result = OpenIcon(PrevHndl)

'Activate the application.
result = SetForegroundWindow(PrevHndl)

'End the application.
Unload Me
End Sub
0
Rejoignez-nous