Discussion :

[meoliver]

bonjour à vous,voila qq temps ke j'essaie de programmer un evenement en visual basic et je n'y arrive pas.j'ai créé un groupe de label en vue d'y faire entrer soit des consonnes,soit des voyelles mais les consonnes et les voyelles sont randomisées.un peu comme dans le jeu des chiffres et des lettres.voila je n'arive pas à faire les lettres dans chaque label.pouvez vous m'aider.si jamais vous avez des questions sur mon code posez moi des questions,je vous repondrai.merci voici le code source

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub cmdconsonnes_Click()
Dim i As Integer
 Dim consonne As Variant
consonne = Array("b", "c", "d", "f", "g", "h", "j", "k", "l", "m", "n", "p", "q", "r", "s", "t", "v", "w", "x", "z")
Randomize
For i = 0 To 6
  If lbllettres(i).Caption <> "" Then
      lbllettres(i).Caption = consonne(Int(6 * Rnd))
  End If
Next i
End Sub

[bidou]

ce ne serait pas plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub cmdconsonnes_Click()
Dim i As Integer
Dim consonne As Variant
consonne = Array("b", "c", "d", "f", "g", "h", "j", "k", "l", "m", "n", "p", "q", "r", "s", "t", "v", "w", "x", "z")
Randomize
For i = 0 To 6
If lbllettres(i).Caption = "" Then
lbllettres(i).Caption = consonne(Int(20 * Rnd))
End If
Next i
End Sub

[leroissejp]

Bonsoir,
Si tu as créer un groupe de Label, tu dois indiquer l'index.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Command1_Click()
Dim consonne As Variant
consonne = Array("b", "c", "d", "f", "g", "h", "j", "k", "l", "m", "n", "p", "q", "r", "s", "t", "v", "w", "x", "z")
Randomize
  If lbllettres(0).Caption = "" Then
      lbllettres(0).Caption = consonne(Int(20 * Rnd))
    If lbllettres(1).Caption = "" Then
      lbllettres(1).Caption = consonne(Int(20 * Rnd))
    End If
  End If
End Sub

jpleroisse