CHANGER LES PARAMÈTRES D'AFFICHAGE
cs_doms
Messages postés
45
Date d'inscription
samedi 22 décembre 2001
Statut
Membre
Dernière intervention
11 septembre 2003
-
28 juin 2002 à 14:59
EvilGost Messages postés 235 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 mai 2011 - 12 avril 2006 à 15:45
EvilGost Messages postés 235 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 mai 2011 - 12 avril 2006 à 15:45
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/3805-changer-les-parametres-d-affichage
https://codes-sources.commentcamarche.net/source/3805-changer-les-parametres-d-affichage
12 avril 2006 à 15:45
20 juin 2005 à 10:55
par contre, dans le lien de PHANTOM_2005 juste au dessus ca marche bien.
je ne sais pas pourquoi?
15 déc. 2004 à 13:32
http://vb.developpez.com/faq/?page=Systeme#changer_resolution
pour ceux que ça intéresse
@+
3 nov. 2004 à 21:20
bon, j'avais pas compris la question et je pensais que tu avais déclaré une var DEVMODE (ce qui d'ailleurs est déconseillé)...une variable a un type mais le type n'est pas une variable...
pour lire la résolution et toutes les autres infos, n'importe où dans ta form ou ailleurs:
'dans la zone déclaration
dim dm as devmode
'n'importe où dans du code
dm = CurrentDisplaySettings
msgbox "Largeur " & cstr(dmEcran.dmPelsWidth) & " pixels" & vbcrlf & "hauteur " & cstr(dmEcran.dmPelsHeight) & " pixels" & vbcrlf & "freq " & cstr(dmEcran.dmDisplayFrequency) & " Hz"
'pour la couleur, les valeurs sont soit 4,8,16,24,32
'puis pour changer :
ResolutionEcran 800,600,75,32
'puis pour restaurer
ResolutionEcran dm.dmPelsWidth, dm.dmPelsHeight, dm.dmDisplayFrequency, dm.dmBitsPerPel
ShareVB
3 nov. 2004 à 18:45
Public RWidth As String
Public RHeight As String
Public RFrequency As String
Public RColor As String
Public Sub LireResolution()
dmEcran.dmSize = LenB(dmEcran)
Call EnumDisplaySettings(0&, ENUM_CURRENT_SETTINGS, dmEcran)
RWidth = dmEcran.dmPelsWidth
RHeight = dmEcran.dmPelsHeight
RFrequency = dmEcran.dmDisplayFrequency
RColor = dmEcran.dmBitsPerPel
End Sub
Puis dans la form il vous suffi de taper LireResolution et voila votre resolution etc .. sont stocker dans les variables : RWidth (largeur) RHeight (hauteur) RFrequency (Frequence) et enfin RColor (pour la couleur)
Voila jespere que ca va en aider qq un qui comme moi non pas compri ton principe pour lire merci qd mm pour ce bo module ;)
bonne prog a tous !++
3 nov. 2004 à 18:05
Dim aa As String
aa = ResolutionEcran(DEVMODE.dmPelsWidth, DEVMODE.dmPelsHeight, DEVMODE.dmDisplayFrequency, DEVMODE.dmBitsPerPel)
MsgBox aa
merci davance :)
3 nov. 2004 à 16:57
Merci davance !
3 nov. 2004 à 16:52
merci pour le 10 :)
la fonction ResolutionEcran a 4 paramètres :
sgWidth As Long, sgHeight As Long, FrequenceRefresh As Long et QColor As Long.
le dernier est DEVMODE.dmBitsPerPel dans ton cas...
ShareVB
3 nov. 2004 à 15:14
16 avril 2004 à 17:04
ShareVB
15 avril 2004 à 22:22
Mais j'aimerai savoir s'il est possible de récupérer les parametres d'affichage avant de les changer.
Ceci pourrai me permettre à la sortie de la base de donnée de remettre la configuration initiale.
29 avril 2003 à 17:04
23 mars 2003 à 18:20
28 juin 2002 à 16:43
28 juin 2002 à 16:19
Private Const WM_DEVMODECHANGE = &H1B
Private Const HWND_BROADCAST = &HFFFF&
Private Const HWND_DESKTOP = 0
je viens de rectifier la source
28 juin 2002 à 14:59