Changement de résolution au lancement d'une appli

Soyez le premier à donner votre avis sur cette source.

Vue 7 870 fois - Téléchargée 906 fois

Description

Il m'a été demandé dans le cadre de mon travail de pouvoir lancer une application particulière dans la résolution 1024*768 et de revenir ensuite à l'ancienne résolution lorsque l'appli est quittée.

Modifier config.ini pour le chemin de l'application

Source / Exemple :


Voir le zip

Conclusion :


Axe d'amélioration : mettre la résolution ds le fichier ini.

Toujours par rapport à cette appli, on me demande, de changer la taille des polices employées (96 dpi au lieu de 120), mais je rame et ne trouve pas...
vous avez une idée ?

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

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

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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.