VB 6 programēšana

lieta tāda ka man uz command 1 uzlikts SetFocus.

Private Sub Form_KeyPress(KeyAscii As Integer)

Select Case KeyAscii

   Case 49
   If KeyAscii = 49 Then
   Command1.SetFocus

Man vajzdzētu, tiklīdz vins fiksē to piesitienu, lai vins uz text box uzrāda  cik dad reizes ir piespiests.

Megināju

Private Sub Form_KeyPress(KeyAscii As Integer)

Select Case KeyAscii

   Case 49
   If KeyAscii = 49 Then
   Command1.SetFocus
   r = Text1.Text
If KeyAscii = 49 Then Text1.Text = r + 1

bet vins piefiksē  tikai vienu reizi.
Vaik kāds nevarēt izpalīdzēt?

Komentāri:

#1 bombtrack @ 2008.02.07 17:04

Ievies savā Form klasē privāto mainīgo un skaiti. Kur problēma? Un If'i tur nemaz nav vajadzīgi. Pieskaitīšanu tak arī izpildi tajā case'ā. Kaut gan VB6 nepārzinu, bet esmu pārliecināts, ka tur ir komandu bloki :D

Ā, ko tas SetFocus īsti dara? Uzstāda fokusu uz to Comand kontroli? Nu tad pēctam atkal pārliec fokusu uz Form un ķer KeyPress..

#2 Johans2 @ 2008.02.07 18:03

kad nospiezh pogu vai kad nospiezh taustinju?

#3 vilnisss @ 2008.02.07 19:59

taustiņu.