Hallo ihr Lieben
Ich hab folgendes Problem:
Ich habe Labelfelder mit einer Hintergrundfarbe versehen über einen Zufallsgenerator.
Ich weiß aber nicht,wie ich die 6 felder für einen Würfel halten kann ( nur die anderen Würfel sollen weiter gewürfelt werden).!?!:confused:
Muss ich meine Zählschleife an anderer Stelle starten? :confused:
Wie hebe ich den Rnd-Befehl wieder auf,bzw stoppe einen bestimmten Würfel?
Hatte die Idee, diese mit Optionbuttons zu halten, konnte aber die Optionbuttion in dem Frame nicht ansprechen
(hab die Idee mit den Buttons wegen meiner Ansprech-Probs erstmal auf Eis gelegt *snief*)
...das ist ein Ausschnitt meines codes::mod:
Private Sub btnWuerfeln_Click()
'Deklaration'
Dim Zaehler As Integer
lblZahl1 = Int((6 * Rnd) + 1)
lblZahl2 = Int((6 * Rnd) + 1)
lblZahl3 = Int((6 * Rnd) + 1)
lblZahl4 = Int((6 * Rnd) + 1)
lblZahl5 = Int((6 * Rnd) + 1)
lblZahl6 = Int((6 * Rnd) + 1)
For Zaehler = 1 To 3
'so sieht dann die Würfel- 1 aus'
If Me.lblZahl1.Caption = 1 Then
Me.lbl1Wuerfel1.BackColor = &H0&
Me.lbl1Wuerfel2.BackColor = &H8000000F
Me.lbl1Wuerfel3.BackColor = &H8000000F
Me.lbl1Wuerfel4.BackColor = &H8000000F
Me.lbl1Wuerfel5.BackColor = &H8000000F
Me.lbl1Wuerfel6.BackColor = &H8000000F
und so geht das dann für die 2,3...usw..
Bitte dringends um HÜLFÄÄÄÄÄÄÄÄÄ!!!