DUZE LITERY w TextBox

[Marcin R.]

Piszę właśnie dla mojego 4-letniego synka "teścik" sprawdzający znajomość
liter i cyfr. Ponieważ poznawał narazie tylko duze litery, chciałbym aby bez
użycia CapsLock'a lub Shift'a wpisana litera do TextBox'a od razu przed
zaakceptowaniem Enterem zawsze była widoczna jako DUZA. Jest jakaś opcja w
formularzu która zamienia odrazu małe litery na DUZE? Chyba żeby po otwarciu
pliku wymusić automatyczne włączenie Caps Lock'a a przed zamknięciem
wyłączenie - ale jak to zrobić? SendKeys?

[Tajan]

Witam!

Piszê w³a¶nie dla mojego 4-letniego synka "te¶cik" sprawdzaj±cy
znajomo¶æ liter i cyfr. Poniewa¿ poznawa³ narazie tylko duze litery,
chcia³bym aby bez u¿ycia CapsLock'a lub Shift'a wpisana litera do
TextBox'a od razu przed zaakceptowaniem Enterem zawsze by³a widoczna
jako DUZA. Jest jaka¶ opcja w formularzu która zamienia odrazu ma³e
litery na DUZE? Chyba ¿eby po otwarciu pliku wymusiæ automatyczne
w³±czenie Caps Lock'a a przed zamkniêciem wy³±czenie - ale jak to
zrobiæ? SendKeys?

Jaki texbox? Na arkuszu? Na formularzu? Je¿eli na arkuszu, to z jakiego
paska narzêdzi?

Tajan

[Marcin R.]

Jaki texbox? Na arkuszu? Na formularzu? Jeżeli na arkuszu, to z jakiego
paska narzędzi?

TextBox umieszczony jest w formularzu

[Tajan]

Witam!

Post by Marcin R.

Post by Tajan
Jaki texbox? Na arkuszu? Na formularzu? Je¿eli na arkuszu, to z
jakiego paska narzêdzi?

TextBox umieszczony jest w formularzu

Podwójnym klikniêciem na texboxie, w projekcie formularza utwórz jego
procedurê klikniêcia. Uzupe³nij j± zgodnie z poni¿szym kodem:

Private Sub TextBox1_Change()
TextBox1.Value = UCase(TextBox1.Value)
End Sub

W razie potrzeby, "TextBox1" zast±p w³a¶ciw± nazw± textboxa (tak±, jaka
bêdzie widoczna w definicji procedury)

Tajan

[Tajan]

Sorry!

Post by Tajan
Podwójnym klikniêciem na texboxie, w projekcie formularza utwórz jego
procedurê klikniêcia.

powinno byæ:

Podwójnym klikniêciem na texboxie, w projekcie formularza, otwórz modu³
makr formularza i utwórz procedurê obs³ugi zdarzenia zmiany jego warto¶ci.
Uzupe³nij j± poniszym kodem:


Private Sub TextBox1_Change()
TextBox1.Value = UCase(TextBox1.Value)
End Sub

W razie potrzeby, "TextBox1" zast±p w³a¶ciw± nazw± textboxa (tak±,
jaka bêdzie widoczna w definicji procedury)


Tajan

[Marcin R.]

Post by Tajan
TextBox1.Value = UCase(TextBox1.Value)

Oto właśnie chodziło - i bardzo dziekuję za pomoc!
Pozdrawiam
- Marti