![]() |
Tipp 0019
|
Eingaben mit großen Anfangsbuchstaben
|
 |
|
Autor/Einsender: Datum: |
|
Detlev Schubert 14.01.2001 |
|
Entwicklungsumgebung: |
|
VB 5 |
|
|
Für bestimmte Anwendungen wie z.B. Adressverwaltungen ist es ganz angenehm, dass bei der
Eingabe in Textfeldern wie Name, Ortsnamen usw. jeweils der Anfangsbuchstabe automatisch
ein Großbuchstabe ist.
|
Mit einem einfachen Trick im Text_Change-Ereignis geht das schon automatisch bei der Eingabe.
|
|
|
Option Explicit
Private Sub Text1_Change(Index As Integer)
If Text1(Index).Tag = "" Then
Text1(Index).Tag = Text1(Index).SelStart
Text1(Index).Tag = StrConv(Text1(Index).Text, vbProperCase)
Text1(Index).Text = Text1(Index).Tag
Text1(Index).SelStart = Len(Text1(Index).Tag)
Text1(Index).Tag = ""
End If
End Sub
|
|
|
|
Mit kleinen Anpassungen bzgl. des TextBox-Change-Ereignisses (in VBA gibt es keine Steuerelementfelder)
funktioniert der hier abgebildete Code auch in einem VBA-Projekt. Dieser muss dazu in den VB-Editor
der entsprechenden Anwendung kopiert werden. Ein Import der im Download enthaltenen *.frm-Datei ist
nicht möglich.
|
|
|
Private Sub TextBox1_Change()
If TextBox1.Tag = "" Then
TextBox1.Tag = TextBox1.SelStart
TextBox1.Tag = StrConv(TextBox1.Text, vbProperCase)
TextBox1.Text = TextBox1.Tag
TextBox1.SelStart = Len(TextBox1.Tag)
TextBox1.Tag = ""
End If
End Sub
|
|
|
|
|
Windows-Version |
95 |
 |
|
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
VB-Version |
VBA 5 |
 |
|
VBA 6 |
 |
|
VB 4/16 |
 |
|
VB 4/32 |
 |
|
VB 5 |
 |
|
VB 6 |
 |
|
|
|
Download (1,9 kB)
|
Downloads bisher: [ 858 ]
|
|
|