Re: [VB6] Jak rozpoznać w któym textBox był kursor

Article View: pl.comp.lang.vbasic

Article #92718

Back to pl.comp.lang.vbasic Previous Next

#92718

From: Artur S.
Date: Wed, 09 Nov 2005 06:55

24 lines
1863 bytes

c.stoll@gazeta.SKASUJ-TO.pl napisał(a):
> Mam trzy kontrolki TextBox i kilka CommandButton.
> Ustawiam kursor w jednym z trzech TextBoxów i klikam na wybrany CommandButton.
> Chcę w ten sposób wstawiać w pole tekstowe zdefiniowane prędzej, przypisane 
> do odpowiednich przycisków stringi.
> Jak rozpoznać po kliknięciu w CommandButton, w którym oknie tekstowym przed 
> kliknięciem był ustawiony kursor, tak żeby w miejsce wskazane przez kursor 
> wstawić odpowiedni string?
> 
> Pozdarwiam - Darek!
> 

Zrobiłbym zmienną prywatną formularza
Private oTextBox as TextBox
i w LostFocus każdego Textbox-a:
set oTextBox=Screen.ActiveControl

a w zdarzeniu click przycisku, operwałbym na oTextBox.

To tak na szybko, ale jeśli ktoś wie, jak stwierdzić, która kontrolka 
miał wcześniej focus, to wyrzuć to co powyżej do kosza.

Pozdrawiam
Artur S.

Technical Details

Message-ID: <dks6jf$doc$1@nemesis.news.tpi.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail

References: <dkrbsf$41m$1@inews.gazeta.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail
From: "Artur S." <arturstan@poczta_nie_spamuj.onet.pl>
Newsgroups: pl.comp.lang.vbasic
Subject: Re: [VB6] Jak rozpoznać w któym
 textBox był kursor
Date: Wed, 09 Nov 2005 07:55:42 +0100
Organization: tp.internet - http://www.tpi.pl/
Lines: 24
Message-ID: <dks6jf$doc$1@nemesis.news.tpi.pl>
References: <dkrbsf$41m$1@inews.gazeta.pl>
NNTP-Posting-Host: cqo147.neoplus.adsl.tpnet.pl
Mime-Version: 1.0
X-Trace: nemesis.news.tpi.pl 1131519408 14092 83.31.246.147 (9 Nov 2005 06:56:48 GMT)
X-Complaints-To: usenet@tpi.pl
NNTP-Posting-Date: Wed, 9 Nov 2005 06:56:48 +0000 (UTC)
User-Agent: Mozilla Thunderbird 1.0.7 (Windows/20050923)
X-Accept-Language: pl, en-us, en
In-Reply-To: <dkrbsf$41m$1@inews.gazeta.pl>
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message