Article View: pl.comp.lang.vbasic
Article #92406Re: Zawsze duże litery
From: Marcin Miga
Date: Wed, 26 Oct 2005 11:11
Date: Wed, 26 Oct 2005 11:11
58 lines
2744 bytes
2744 bytes
InDesign Scripts wrote: > Użytkownik "Marcin Miga" <Marcin.Miga[@]gmail.com> napisał w > wiadomości > news:C57BDD8470737A4D9F2CE5DEE25D7B9007E5F4EB@mailserver2.domdata.loca > l... > > 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 > Prawie tak samo napisałem w moim pierwszym poście w tym wątku :) Dodałem również możliwość wykorzystania API z tego powodu, jako, że linia Text6 = UCase(Text6) wywołuje zdarzenie Change, czyli ponownie wchodzi do tej samej procedury. A po co ma się to dwa razy wykonywać? Następne API jakie podałem dotyczyło *dokładnie* tego, o co 'wilus1' pytał. Czyli odczytanie/ustawienie stanu klawiatury. Dodałem tam również, że tak się nie robi. (nawet to zacytowałeś) > ew. wykorzystac Validate - jak user skonczy wpisywac i zmieni focus - > to wywolac UCase > A co zrobić, gdy nie ma na co zmienić focusa? :) Np. tylko Text6 na formie? pozdrawiaMM PS. Nie czuję się urażony. -- Marcin M. Miga "More matter with less art"
Technical Details
Message-ID:
<C57BDD8470737A4D9F2CE5DEE25D7B9007E64147@mailserver2.domdata.local>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!nf1.ipartners.pl!ipartners.pl!helios.domdata.com!DOMDATA3.BAUBODEN.comReferences:
<C57BDD8470737A4D9F2CE5DEE25D7B9007E5E266@mailserver2.domdata.local> <1281.0000009c.435f3dd6@newsgate.onet.pl> <C57BDD8470737A4D9F2CE5DEE25D7B9007E5F4EB@mailserver2.domdata.local> <djnu85.10g.1@indesign.scripts>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!nf1.ipartners.pl!ipartners.pl!helios.domdata.com!DOMDATA3.BAUBODEN.com NNTP-Posting-Host: 192.168.151.148 Newsgroups: pl.comp.lang.vbasic Date: Wed, 26 Oct 2005 13:11:11 +0200 Message-ID: <C57BDD8470737A4D9F2CE5DEE25D7B9007E64147@mailserver2.domdata.local> From: "Marcin Miga" <Marcin.Miga[@]gmail.com> Subject: Re: Zawsze duże litery References: <C57BDD8470737A4D9F2CE5DEE25D7B9007E5E266@mailserver2.domdata.local> <1281.0000009c.435f3dd6@newsgate.onet.pl> <C57BDD8470737A4D9F2CE5DEE25D7B9007E5F4EB@mailserver2.domdata.local> <djnu85.10g.1@indesign.scripts> User-Agent: XanaNews/1.17.5.9 MIME-Version: 1.0 Lines: 59 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit