Sie sind nicht angemeldet.
Lieber Besucher, herzlich willkommen bei: Aqua Computer Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.

|
|
Quellcode |
1 2 3 4 5 |
Private Sub cmdEins_Click() txtAnzeige.Text = txtAnzeige.Text & "1" End Sub |
|
|
Quellcode |
1 2 |
a = b b = c |

|
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 |
Begin VB.CommandButton cmdZahl
Caption = "9"
Height = 500
Index = 9
Left = 2400
TabIndex = 16
Top = 2760
Width = 735
End
Begin VB.CommandButton cmdZahl
Caption = "8"
Height = 500
Index = 8
Left = 1440
TabIndex = 15
Top = 2760
Width = 735
End
Begin VB.CommandButton cmdZahl
Caption = "7"
Height = 500
Index = 7
Left = 480
TabIndex = 14
Top = 2760
Width = 735
End
Begin VB.CommandButton cmdZahl
Caption = "6"
Height = 500
Index = 6
Left = 2400
TabIndex = 13
Top = 2040
Width = 735
End
Begin VB.CommandButton cmdZahl
Caption = "5"
Height = 500
Index = 5
Left = 1440
TabIndex = 12
Top = 2040
Width = 735
End
Begin VB.CommandButton cmdZahl
Caption = "4"
Height = 500
Index = 4
Left = 480
TabIndex = 11
Top = 2040
Width = 735
End
Begin VB.CommandButton cmdZahl
Caption = "3"
Height = 500
Index = 3
Left = 2400
TabIndex = 10
Top = 1320
Width = 735
End
Begin VB.CommandButton cmdZahl
Caption = "2"
Height = 500
Index = 2
Left = 1440
TabIndex = 9
Top = 1320
Width = 735
End
Begin VB.CommandButton cmdZahl
Caption = "1"
Height = 500
Index = 1
Left = 480
TabIndex = 8
Top = 1320
Width = 735
End
|
|
|
Quellcode |
1 2 3 |
Private Sub cmdZahl_Click(Index As Integer)
txtAnzeige.Text = txtAnzeige.Text & Index
End Sub
|
-