AFFICHER LES RÉSOLUTIONS D'ÉCRAN DISPONIBLES
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
-
18 nov. 2005 à 15:46
cs_Alain Proviste Messages postés 908 Date d'inscription jeudi 26 juillet 2001 Statut Modérateur Dernière intervention 1 février 2015 - 24 déc. 2011 à 17:59
cs_Alain Proviste Messages postés 908 Date d'inscription jeudi 26 juillet 2001 Statut Modérateur Dernière intervention 1 février 2015 - 24 déc. 2011 à 17:59
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/34686-afficher-les-resolutions-d-ecran-disponibles
https://codes-sources.commentcamarche.net/source/34686-afficher-les-resolutions-d-ecran-disponibles
24 déc. 2011 à 17:59
<:
24 déc. 2011 à 17:08
C’est vrai que ça marche… mais dans ce cas, pour quoi faire des classes objet quand une classe statique peut suffire ? Si vous ne savez pas… utilisez les GoTo ;)
19 nov. 2005 à 18:23
19 nov. 2005 à 11:48
C'est vrai je suis un peu shadock en programmation, désolé ;)
19 nov. 2005 à 09:39
Ce qu'il veut faire, c'est juste sortir de la boucle. Avec un Exit For, il sortira toujours de la boucle, sans risque d'être redirigé vers un endroit qui n'existe plus.
Quand on débugge un code, on est amené à changer un tas de chose, à bouger des blocs, et souvent, on ne se rend pas compte de l'impact induit. L'Exit For fera toujours du bon boulot :o)
18 nov. 2005 à 22:13
18 nov. 2005 à 15:46
If resol = ress Then
GoTo 10
Else
'
End If
--------------------
serait plus propre si écrit ainsi :
If resol = ress Then Exit For
De même, si tu calculais la résolution actuelle AVANT d'afficher la liste des modes videos disponibles, tu pourrais surligner la bonne résolution dans le If ci-dessus, et ne pas avoir besoin des lignes ci-dessous :
# 'On surligne le mode vidéo utilisé
# For xx = 0 To List2.ListCount
# ress = List2.List(xx)
# If resactuelle = ress Then
# List2.ListIndex = xx
# GoTo 20
# Else
# '
# End If
# Next xx
# 20