|
![](/App_Themes/Normal/images/Window/Backgrounds/news.gif) | counter... Fra : Jesper Brejner |
Dato : 27-06-03 12:17 |
|
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
| |
Phylock (27-06-2003)
![](/App_Themes/Normal/images/Window/Backgrounds/news.gif) | Kommentar Fra : Phylock |
Dato : 27-06-03 12:50 |
|
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
>
>
| |
Robert (27-06-2003)
![](/App_Themes/Normal/images/Window/Backgrounds/news.gif) | Kommentar Fra : Robert |
Dato : 27-06-03 13:12 |
|
> 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
| |
Phylock (28-06-2003)
![](/App_Themes/Normal/images/Window/Backgrounds/news.gif) | Kommentar Fra : Phylock |
Dato : 28-06-03 15:21 |
|
"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`
| |
Tomas Christiansen (27-06-2003)
![](/App_Themes/Normal/images/Window/Backgrounds/news.gif) | Kommentar Fra : Tomas Christiansen |
Dato : 27-06-03 22:53 |
|
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
| |
|
|