Der Code:
---------------------------------------------
Option Explicit
Dim ziffer(12) As String
Dim i, a, t As Integer
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case &HD
a = 1
End Select
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Do
Select Case KeyAscii
Case 44
ziffer(i) = ","
Case 48
ziffer(i) = "0"
Case 49
ziffer(i) = "1"
Case 50
ziffer(i) = "2"
Case 51
ziffer(i) = "3"
Case 52
ziffer(i) = "4"
Case 53
ziffer(i) = "5"
Case 54
ziffer(i) = "6"
Case 55
ziffer(i) = "7"
Case 56
ziffer(i) = "8"
Case 57
ziffer(i) = "9"
End Select
DoEvents
Loop Until a = 1
For i = 1 To i
ziffer(i) = Text2.Text
Next
End Sub
---------------------------------------
Die Aufgabe: Er soll beim NumPad jede eingabe registrieren. Das tut er auch. Wenn ich 123 im NumPad, einschlißlich ENTER drücke, gibt er mir aber im Text1Text = 321 aus, genau die umgekehrte reihefolge! Weiß einer Hilfe??? Danke, NixPeiler!.
Das Programm soll folgendes: Ich gebe eine Nummer ein, es soll mit jeder eingabe die nummer speichern, anschließend mit ENTER in derselber reihefolge wie ich es eingegeben habe im Text1.Text ausgeben! Danke nochmals!