🚀 go-pugleaf

Użytkownik "Marcin Miga" <Marcin.Miga[@]gmail.com> napisał w wiadomości
news:C57BDD8470737A4D9F2CE5DEE25D7B9007E5F4EB@mailserver2.domdata.local...
> wilus1 wrote:
>
> > A jak sprawdzić czy CapsLock jest włączony i (jeżeli jest wyłączony)
> > to go włączyć ?
> > Wtedy mógłbym w zdarzeniu GotFokus TextBoxa to wykorzystać.
>
> A po co? Przecież tak się nie robi...
> A stan klawiatury możesz sprawdzić za pomocą funkcji API:
> Private Declare Function GetKeyboardState Lib "user32.dll" _
> (ByRef pbKeyState As Byte) As Long
>
> A ustawić:
> Private Declare Function SetKeyboardState Lib "user32.dll" _
> (ByRef lppbKeyState As Byte) As Long
>
> tyle, że to masz tablice bajtów. Który odpowiada za CAPS Locka to nie
> wiem. Nie było mi to nigdy potrzebne.

przepraszam, nie chcialbym nikogo urazic ;)

ale czemu wiekszosc guru na tej grupie wyciaga armaty na muchy ?? ;)

po co API - wystarczylo by chyba troche zmodyfikowac pierwotna procedurke:

Private Sub Text6_Change()
    Text6 = UCase(Text6)
    Text6.SelStart=Len(Text6.Text)
End Sub

ew. wykorzystac Validate - jak user skonczy wpisywac i zmieni focus - to
wywolac UCase

robin