En suite je cherche plutôt une idée (même un exemple)
Je suis sur FREE et quand je consulte les différentes pages de Mon Compte il me demande a chaque fois mon login/passW et je voulais s'avoir comment faire en VB un (petit) programme qui ne me demande plus le login/passW (peut être par lecture d'un fichier data ou Txt préalablement renseigne
Gobillot
Messages postés3140Date d'inscriptionvendredi 14 mai 2004StatutMembreDernière intervention11 mars 201934 2 nov. 2004 à 18:04
si je comprends bien tu dois avoir 30 menus qui vont de mnuMenu1_Click() à mnuMenu30_Click() et dans chacun d'eux une image à visible et 29 à False. (30 fois 30)
tu peux faire un menu indexé, avec le même nom pour les 30, et l'index variant de 1 à 30. de même pour les Images, même nom pour chacune et index de 1 à 30.
ce qui permet de ne faire qu'une seule procédure:
Dim precedente as Integer
Private Sub mnuImage_Click(Index As Integer)
Form2.images(precedente).visible = False
Form2.Images(index).visible = true
precedente = index
End Sub
econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200824 2 nov. 2004 à 02:31
> ...que la form s'adapte au différente image
Combien y a-t-il d'images en même temps sur ton formulaire ?
Le raisonnement ne sera pas le même si tu redimensionne ton formulaire à partir d'UNE image ou de plusieurs.
Gobillot
Messages postés3140Date d'inscriptionvendredi 14 mai 2004StatutMembreDernière intervention11 mars 201934 2 nov. 2004 à 19:37
'c'est des constantes
'peut être fait dans Form2_Load
Dim W As Integer
Dim H As Integer
W = Form2.Width - Form2.ScaleWidth
H = Form2.Height - Form2.ScaleHeight
'à inclure dans Sub mnuImage_Click
Form2.width = Images(index).Width + W
Form2.Height = Images(index).Height + H
Gobillot
Messages postés3140Date d'inscriptionvendredi 14 mai 2004StatutMembreDernière intervention11 mars 201934 2 nov. 2004 à 19:44
toutes les images doivent avoir le Top et le Left à zéro
sinon l'inclure dans la procédure:
autant mettre tout (Left,Top,Width,Height) sur la même ligne:
Form2.Images(index).Move 0,0,Images(index).Width + W,Images(index).Height + H