 31.10.2025, 19:15
31.10.2025, 19:15 Sprache ändern
 Sprache ändern
							
							
							
						 Registrieren
 Registrieren Anmelden
 Anmelden
					
											Sie sind nicht angemeldet.

|   | 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 | 
 
							-
 
  
  
  
  
  
  
 