cs_Targos
Messages postés26Date d'inscriptionsamedi 18 janvier 2003StatutMembreDernière intervention 7 juillet 2008
-
22 mai 2003 à 17:44
cs_Damien10
Messages postés12Date d'inscriptionjeudi 12 septembre 2002StatutMembreDernière intervention26 février 2007
-
26 févr. 2007 à 17:14
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_Damien10
Messages postés12Date d'inscriptionjeudi 12 septembre 2002StatutMembreDernière intervention26 février 2007 26 févr. 2007 à 17:14
Bonjour,
Merci pour le code, c'est exactement ce que je cherchai.
Damien
cs_Targos
Messages postés26Date d'inscriptionsamedi 18 janvier 2003StatutMembreDernière intervention 7 juillet 2008 22 mai 2003 à 17:44
Le focus se met bien sur l'appli mais elle ne la maximize pas quand elle est dans la barre des taches. Comment pourrais-je faire pour l'afficher ?
voici le code que j'ai :
If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
Dim Processes() As Process
Processes = Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)
'Dim i As Application
'Activer la premiere
AppActivate(Processes(0).Id)
'Fermer cette intance
Application.Exit()
26 févr. 2007 à 17:14
Merci pour le code, c'est exactement ce que je cherchai.
Damien
22 mai 2003 à 17:44
voici le code que j'ai :
If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
Dim Processes() As Process
Processes = Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)
'Dim i As Application
'Activer la premiere
AppActivate(Processes(0).Id)
'Fermer cette intance
Application.Exit()
End If
Merci