🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.vbasic
Article #92406

Re: Zawsze duże litery

#92406
From: Marcin Miga
Date: Wed, 26 Oct 2005 11:11
58 lines
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.com
References: <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