Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
990 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  vb6, commandbutton, label, image, faire afficher les label 1 a 1

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

vb6, commandbutton, label, image, faire afficher les label 1 a 1

n°850111
nul+
Posté le 14-09-2004 à 17:12:51  profilanswer
 

Bonjour a tout le monde
 
En vb6, avec : 1 form 1
1 commandbutton 1
1 commandbutton 2
1 commandbutton 3
4 label 1
4 image 1
 
Comment faire afficher la lettre dans le caption du label 1  
sans que la deuxieme lettre remplace la premiere lettre
quand ont affiche la deuxieme lettre dans le label 1
 
Voici mon code
----------------------------------------------------
Dim nbr As Integer
----------------------------------------------------
Private Sub Command1_Click()
Dim n As Integer
nbr = nbr + 0
If nbr >= Image1.Count Then
    nbr = 4
End If
For n = 0 To Image1.Count - 1
If n <= nbr Then
Label1(n).Caption = "C"
Label1(n).Visible = True
End If
Next n
End Sub
----------------------------------------------------
Private Sub Command2_Click()
Dim n As Integer
nbr = nbr + 0
If nbr >= Image1.Count Then
    nbr = 4
End If
For n = 0 To Image1.Count - 1
If n <= nbr Then
Label1(n).Caption = "D"
Label1(n).Visible = True
Label1(n).ZOrder
End If
Next n
End Sub
---------------------------------------------------
Private Sub Command3_Click()
Dim n As Integer
nbr = nbr + 1
If nbr >= Image1.Count Then
    nbr = 4
End If
For n = 0 To Image1.Count - 1
If n <= nbr Then
Image1(n).Visible = True
Image1(n).Enabled = False
Else
Image1(n).Visible = False
End If
Next n
End Sub
--------------------------------------------------
Private Sub Form_Load()
nbr = -1
End Sub
--------------------------------------------------
Salut et Merci a ceux qui save et aux autres aussi.

mood
Publicité
Posté le 14-09-2004 à 17:12:51  profilanswer
 

n°850114
jagstang
Pa Capona ಠ_ಠ
Posté le 14-09-2004 à 17:15:09  profilanswer
 

rien compris à ton TP :gratgrat:

n°850181
nul+
Posté le 14-09-2004 à 19:26:55  profilanswer
 

Salut JagStang
oui il faut eliminer l'image 1 (je me suis tromper)
expl :
click 1 = label1 visible = caption "C"
click 2 = label1 visible = caption "D"
 
les label se nome tous label1 et se rende visible les uns apres les autre,apres chaque click sur un des commandbutton
EXPL :
label1:       C           D            C            D
     click1 = ^  click2 = ^   click3 = ^   click4 = ^
les ^corresponde a une fleche pour montrer la lettre D ou C
Salut et Merci
 

n°850185
nul+
Posté le 14-09-2004 à 19:28:40  profilanswer
 

ya un decalage avec les click1, 2, 3, 4

n°850466
nul+
Posté le 15-09-2004 à 01:44:23  profilanswer
 

resalut
Avec ce code, tout les labels s'apel 'label1.
Quand je click sur la command1, un premier label1 devient visible;
Je click sur la command2 et dans le label1 s'affiche la lettre C.
 
Je reclick sur la command1 et un deuxieme label1 devient visible;
je click sur la command3 et la lettre D s'affiche dans le deuxieme labe1
 
le probleme et que le premier label1 a maintenant la lettre D a l'interieur,alors qu'avant yaver un C
 
en fait a chaque fois que je click sur un commandbutton la lettre qui lui et attribuer s'affiche dans les labels
si je tape un C et apres je tape un D ya d et D au lieu d'avoir C et D dans les labels
Salut et Merci


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  vb6, commandbutton, label, image, faire afficher les label 1 a 1

 

Sujets relatifs
Redimensionner une image avec un COM en VBvb6 code pour cmd (multifonction), label (caption).
couleur de fond lors chargement imageNouvelle Gallerie d'image - Hermes Galerie :D
image et bddAfficher la liste des bases sur Oracle
faire disparaître un texte en cliquant sur une image...[PHP] afficher le contenu d'un fichier texte
problème pour afficher des données dans un tableau 
Plus de sujets relatifs à : vb6, commandbutton, label, image, faire afficher les label 1 a 1


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR