meme si end elle s'afficheRésolu

Question

salut tt le monde svp ou est le probléme Private Type Ecran X As Integer Y As Integer End Type Private Function get_Res() As Ecran get_Res.X = Screen.Width \ Screen.TwipsPerPixelX get_Res.Y = Screen.Height \ Screen.TwipsPerPixelY End Function Private Sub Form_Load() If get_Res.X <> 800 And get_Res.Y <> 600 Then msg = MsgBox(Str(get_Res.X) & " X " & Str(get_Res.Y) & " EST UNE MAUVAISE RESOLUTION" & vbCrLf & "TEU VEUX QUITTER POUR ALLER CHANGER LA RESOLUTION?", vbYesNo + vbExclamation, "ATTENTION ::..choisir 800x600") ElseIf msg = vbYes Then Unload Me End ElseIf msg = vbNo Then Me.Show End If End Sub sous une resolution differente de 800x600 si reponse OUI la feuille est affichée meme si j ai mis Unload Me End or j attend que la feuiile n apparait pas et meme ne soit pas chargée qu est ce q je dois mettre pour avoir ce q je veut : [ne pas carger lafeuille] par contre si reponse NON la feuille est affichée là c est bon merci à vous kysid

fiko81 · Accepted Answer

En ait c'est ton elseif qui ne va pas tu n'accèdera jamais à ton elseif si tu a déjà aficher ton message Dans une boucle if elseif end if ,une seuls condition est exécutée : essaye ça Private Sub Form_Initialize() If get_Res.X <> 800 And get_Res.Y <> 600 Then msg = MsgBox(Str(get_Res.X) & " X " & Str(get_Res.Y) & " EST UNE MAUVAISE RESOLUTION" & vbCrLf & "TEU VEUX QUITTER POUR ALLER CHANGER LA RESOLUTION?", vbYesNo + vbExclamation, "ATTENTION ::..choisir 800x600") If msg = vbYes Then Unload Me End ElseIf msg = vbNo Then Me.Show End If End If End Sub Fiko ;-) Proverbe chinois : Connaître son ignorance est la meilleur part de la connaissance.

cs_DARKSIDIOUS · Answer

Une petite remarque en passant : Ouch, que d'appel à get_res !!! 4 appels en tout, alors que si tu stockait le retour de ta fonction, ca serait plus optimisé : Private Sub Form_Load() Dim return as Ecran return = get_res If return .X <> 800 And return.Y <> 600 Then if MsgBox(Str(return.X) & " X " & Str(return.Y) & " EST UNE MAUVAISE RESOLUTION" & vbCrLf & "TEU VEUX QUITTER POUR ALLER CHANGER LA RESOLUTION?", vbYesNo + vbExclamation, "ATTENTION ::..choisir 800x600") = vbYes Then Unload Me End Else Me.Show End If End Sub Ca fera la même chose que la soluce de fiko, en bien plus efficace ! _ Avant de poster dans le forum, prière d'aller lire ceci : http://www.codes-sources.com/reglement.aspx

fiko81 · Answer

chiu d'accord avec darksidious Fiko ;-) Proverbe chinois : Connaître son ignorance est la meilleur part de la connaissance.

cs_kysid · Answer

salut
grand merci a&#224; vous 347460  fiko81 & =13557 DARKSIDIOUS
temoignez : mon ignorance diminue    :)
.......lentement
mais...........surement   ;)
bonne journ&#233;e
kysid

Meme si end elle s'affiche

4 réponses

Discussions similaires