Du bist nicht angemeldet.
Lieber Besucher, herzlich willkommen bei: Aqua Computer Forum. Falls dies dein erster Besuch auf dieser Seite ist, lese dir bitte die Hilfe durch. Dort wird dir die Bedienung dieser Seite näher erläutert. Darüber hinaus solltest du dich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutze das Registrierungsformular, um dich zu registrieren oder informiere dich ausführlich über den Registrierungsvorgang. Falls du dich bereits zu einem früheren Zeitpunkt registriert hast, kannst du dich 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
|
-