Wenn du dich kostenlosregistrierst kannst du neue Themen verfassen, an Umfragen teilnehmen und vieles mehr. Falls Du bei der Registrierung oder Anmeldung Probleme hast, dann kontaktiere uns.
Ich hab 37 buttons die als Steurelement hinzugefügt wurden und ich hab 3 Textfelder erstellt!!
textfeld 1 ist für 1,4,7,10,13,16,19,22,25,28,32,34
textfeld 2 ist für 2,5,8,11,14,17,20,23,26,29,33,35
textfeld 3 ist für 3,6,9,12,15,18,21,24,27,30,33,36
und so soll es funktionieren!!
also wenn ich zb. die 1 drücke soll er bei textfeld 2 und 3, +1 zählen und wenn ich dann die 2 drücke soll es textfeld 1 auf null stezten und wieder von vorne anfangen!!
oder wenn ich auf 3 drücke soll er bei textfeld 1 und 2, +1 zählen und wenn ich dann die 2 drücke soll es textfeld 2 auf null stetzen und auch wieder von vorne anfangen!!
und das gleiche soll für textfeld 3 auch gelten!!
PHP-Code:
Private Sub cmd_Zahl_Click(IndexAs Integer)
Dim i As Integer
' Index auswerten
Select Case Index ' Hier gibst du die Nummern der Buttons ein, die für
' Textfeld 1 zuständig sind. (Die Nummern stehen in
' der Eigenschaft Index)
Case 0, 3, 6, 9, 12, 15, 18, 21, 24, 27, 31, 33:
' Wert um 1 hochzählen
Text_Row1.Text = Val(Text_Row1.Text + 1)
' Maximal Wert erreicht?
If Val(Text_Row1.Text) >= Val(cmd_Zahl(Index).Caption) Then Text_Row1.Text = 0
' Und jetzt der nächste Fall (Case)
Case 1, 4, 7, 10, 13, 16, 19, 22, 25, 28, 32, 34:
' Wert um 1 hochzählen
Text_Row2.Text = Val(Text_Row2.Text + 1)
' Maximal Wert erreicht?
If Val(Text_Row2.Text) >= Val(cmd_Zahl(Index).Caption) Then Text_Row2.Text = 0
' Und jetzt der nächste Fall (Case)
Case 2, 5, 8, 11, 14, 17, 20, 23, 26, 29, 33, 35:
' Wert um 1 hochzählen
Text_Row3.Text = Val(Text_Row3.Text + 1)
' Maximal Wert erreicht?
If Val(Text_Row3.Text) >= Val(cmd_Zahl(Index).Caption) Then Text_Row3.Text = 0
End Select
End Sub
beim ausführen zeigt er mir einen Fehler an
Laufzeitfehler 13
typen unverträglich
hoffentlich kann mir einer bei meinem Problem helfen
