---

Hejsa..

Står lige med et lille problem, som sikkert er ganske enkelt at løse.
Jeg skal lave en form for counter sådan at når man fx. trykker på Enter
tæller counteren én, trykker man en gang til så to. Men den må ikke tæller
hvis Enter knappen bliver holdt nede. Dvs. Enter knappen skal slippes helt
for hver tryk..

Hilsen Jesper

---

kan du ikke bare ligge koden i KeyUp så er det først når knappen slippes

mvh
Phylock`
"Jesper Brejner" <jesper@cbn.dk> wrote in message
news:bdh9j3$el8$1@news.cybercity.dk...
> Hejsa..
>
> Står lige med et lille problem, som sikkert er ganske enkelt at løse.
> Jeg skal lave en form for counter sådan at når man fx. trykker på Enter
> tæller counteren én, trykker man en gang til så to. Men den må ikke tæller
> hvis Enter knappen bliver holdt nede. Dvs. Enter knappen skal slippes helt
> for hver tryk..
>
> Hilsen Jesper
>
>

---

> Jeg skal lave en form for counter sådan at når man fx. trykker på Enter
> tæller counteren én

Lav en ny knap som hedder "Command1" !!



Private Sub Command1_Click()
Static lCounter As Long
lCounter = lCounter + 1
Command1.Caption = lCounter
End Sub


eller


Private mlCounter As Long

Private Sub Command1_Click()
mlCounter = mlCounter + 1
Command1.Caption = mlCounter
End Sub

---

"Robert" <nospam@remove-this-runge.dk> wrote in message
news:bdhc3e$f5a$1@news.net.uni-c.dk...
> > Jeg skal lave en form for counter sådan at når man fx. trykker på Enter
> > tæller counteren én
>
> Lav en ny knap som hedder "Command1" !!
>
>
>
> Private Sub Command1_Click()
> Static lCounter As Long
> lCounter = lCounter + 1
> Command1.Caption = lCounter
> End Sub
>
>
> eller
>
>
> Private mlCounter As Long
>
> Private Sub Command1_Click()
> mlCounter = mlCounter + 1
> Command1.Caption = mlCounter
> End Sub

Som det er der så bliver den ved med at tælle når enter
holdes nede dette kan feks løses sådan:

Private mlCounter As Long

Sub enop()
mlCounter = mlCounter + 1
Command1.Caption = mlCounter
End Sub

Private Sub Command1_KeyUp(KeyCode As Integer, Shift As Integer)
enop
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As
Single, Y As Single)
enop
End Sub

Mvh
Phylock`

---

Jesper Brejner skrev:
> Jeg skal lave en form for counter sådan at når man fx. trykker på Enter
> tæller counteren én, trykker man en gang til så to. Men den må ikke tæller
> hvis Enter knappen bliver holdt nede. Dvs. Enter knappen skal slippes helt
> for hver tryk..

Nu skriver du når man FOR EKSEMPEL trykker på Enter.

Det er ret interessant at vide præcis hvilke(n) taste(r) det drejer sig om,
og det er ret interessant at vide hvilke kontroller der er på formen og
hvilke der har fokus (og OM de har fokus) der "for eksempel" trykkes Enter.

Der findes repeterende og ikke-repeterende taster og deres opførsel kan
ændre sig afhængig af hvor fokus er!

-------
Tomas