Visual Basic (6) mit Tastendruck mehrere Zeichen in Textfeld einfügen

killer-Trekkie · 11.05.2004

Servus!

Wie kann ich mit Visual Basic 6 in eine Textbox wenn eine betimme Taste gerückt wird 3 vorbestimmte zeichen einfügen OHNE das der vorherige Inhalt gelöscht wird?

Vielen dank für eure Hilfe.

mfg

killer-Trekkie

Spazz · 12.05.2004

es gibt bei den Formeigenschaften einen Eintrag der heisst KeyPreview!

wenn der aktiviert ist kannst du mir Form_keypress oder Form_Keydown die gedrückten tasten abfragen und dementsprechend den TExt der Textbox ändern!

MfG

Alexander16 · 12.05.2004

Hi

Benötigt wird:
Eine TextBox (Text1)
Ein CommandButton (Command1)

Und hier der Code:

Code:

Private Sub Command1_Click()
   ->Hier deine Zeichen angeben, die nach dem
   ->eingegebenen Text drangehängt werden sollen.
    Const Zeichen As String = **
    
   ->Hier werden die Zeichen, die oben definiert
   ->wurden sind an den eingegebenen Text drangehängt.
    Text1.Text = Text1.Text &amp; Zeichen
End Sub

Mfg Alexander

Spazz · 12.05.2004

@alexander16

denke nicht dass er diese Info benötigt hat...er liest ja immerhin systemdateien aus...da wird er schon wissen wie man einen string zusammenbaut!

das Problem war eher dass er den Tastendruck nicht abfangen konnte...stimmts?

LOL

Alexander16 · 12.05.2004

Hi

Konnte ich nicht wissen, dass er die String-Zusammenstellung schon beherrscht

Hier trotzdem noch ein Code für eine Taste:

Code:

Private Sub Text1_KeyPress(KeyAscii As Integer)
   ->Zeichen, die drangehängt werden sollen.
    Const Zeichen As String = **
    
   ->Prüfen, ob die Enter-Taste gedrückt wurde.
    If KeyAscii &lt;> 13 Then Exit Sub
    
   ->Prüfen, ob die Zeichen bereits vorhanden sind.
    If Right$(Text1.Text, Len(Zeichen)) = Zeichen Then Exit Sub
    
   ->Zeichen an den Text hängen.
    Text1.Text = Text1.Text &amp; Zeichen
    
   ->Cursor an das Textende setzen.
    Text1.SelStart = Len(Text1.Text)
End Sub

Mfg Snake

killer-Trekkie · 12.05.2004

Cool Danke. Hab was ich bracuh.

mfg

killer-Trekkie

Visual Basic (6) mit Tastendruck mehrere Zeichen in Textfeld einfügen

killer-Trekkie

Spazz

Alexander16

Spazz

Alexander16

killer-Trekkie

Visual Basic (6) mit Tastendruck mehrere Zeichen in Textfeld einfügen

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums