CHANGEMENT DE RÉSOLUTION AU LANCEMENT D'UNE APPLI

Signaler
Messages postés
55
Date d'inscription
vendredi 16 mai 2003
Statut
Membre
Dernière intervention
16 mars 2009
-
Messages postés
6
Date d'inscription
jeudi 22 mai 2008
Statut
Membre
Dernière intervention
7 janvier 2010
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/44538-changement-de-resolution-au-lancement-d-une-appli

Messages postés
6
Date d'inscription
jeudi 22 mai 2008
Statut
Membre
Dernière intervention
7 janvier 2010

Est-ce que quelqu'un aurait la version en vb net? C'est que je ne suis pas très habituée à jouer avec du VB 6 vs VB Net.

Merci!
Messages postés
97
Date d'inscription
lundi 26 novembre 2001
Statut
Membre
Dernière intervention
24 février 2012

hum, je viens de tester avec une autre de mes applis (un petit convertisseur euro), et ça fonctionne sans pb.

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)
Messages postés
11
Date d'inscription
jeudi 16 novembre 2006
Statut
Membre
Dernière intervention
25 mai 2011

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.
Messages postés
97
Date d'inscription
lundi 26 novembre 2001
Statut
Membre
Dernière intervention
24 février 2012

Salut

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&)
Afficher les 11 commentaires