Salut,
Je me suis mal exprimé, c'est aussi ce que je désire mais comme l'application que je lance est sur un disque en réseau (je suppose), la résolution change pendant 2 à 3 secondes (comme je le souhaite) et ensuite et elle revient instantanément... avant que je quitte l'appli.
Heu c'est normal, la demande qui m'a été faite, était le changement de résolution uniquement le temps de l'exécution du programme...
si tu veux juste un changement de résolution, il faut supprimer toute cette partie :
T = Timer
' Lancement de l'appli
RetVal = Shell(Appli, vbMinimizedFocus) ' tant que l'appli est ouverte
While InstanceToWnd(RetVal) <> 0
DoEvents
Wend
DevM.dmPelsWidth = OldX
DevM.dmPelsHeight = OldY
'change the display settings back to the old settings
Call ChangeDisplaySettingsEx(ByVal 0&, DevM, ByVal 0&, CDS_TEST, ByVal 0&)
Je te remercie, ça fonctionne à merveille. j'ai par contre un petit souci, l'application que je lance et sur un serveur et je vois la résolution changer... puis, elle revient à nouveau. je suppose que le prog. ne gêre pas la cloture de l'applique sur un disque distant... bravo en tout cas
Salut,
J'arrive pas à convertir ton prog. en MS visual 2005 Express (prob avec les module "depart.bas et IniLocal.bas). T'aurais la possibilité de m'envoyer l'executable? ça me renderais énormément service... par contre la résolution est 800*600.
Merci!
Je ne vois pas pourquoi le fait que l'appli soit sur un serveur impacte le changement de résolution, sauf si tu as des coupures réseau (peut être ?).
Essaie de mettre le chemin UNC (\\serveur\chemin\nomAppli.exe)
Je me suis mal exprimé, c'est aussi ce que je désire mais comme l'application que je lance est sur un disque en réseau (je suppose), la résolution change pendant 2 à 3 secondes (comme je le souhaite) et ensuite et elle revient instantanément... avant que je quitte l'appli.
Heu c'est normal, la demande qui m'a été faite, était le changement de résolution uniquement le temps de l'exécution du programme...
si tu veux juste un changement de résolution, il faut supprimer toute cette partie :
T = Timer
' Lancement de l'appli
RetVal = Shell(Appli, vbMinimizedFocus) ' tant que l'appli est ouverte
While InstanceToWnd(RetVal) <> 0
DoEvents
Wend
DevM.dmPelsWidth = OldX
DevM.dmPelsHeight = OldY
'change the display settings back to the old settings
Call ChangeDisplaySettingsEx(ByVal 0&, DevM, ByVal 0&, CDS_TEST, ByVal 0&)