Dennis Olesen" <olesen@c.dk> skrev i en meddelelse
news:3fcdfe4f$0$95034$edfadb0f@dread11.news.tele.dk...
> Jeg har skrevet følgende kode.
>
> Option Explicit
> Dim antaltast
>
> Private Sub Command1_Click()
> antaltast = antaltast + 1
> antaltast = MsgBox("trykket på knappen for " & antaltast)
>
> End Sub
>
> Opgave går ud på at man skal trykke på en knap og så vises en msgbox der
> fortæller hvor mange gange knappen har været trykket på. Koden virker
> næsten. Problemmet er når man skal trykker på knappen for 3. gang vises
der
> stadigvæk 2 i msgboxen. Hvad gør jeg forkert ?
>
> MVH
> Dennis
>
Option Explicit
Dim antaltast As Integer
Private Sub Command1_Click()
antaltast = antaltast + 1
MsgBox "trykket " & antaltast & " gange"
End Sub
eller
Private Sub Command1_Click()
Static antaltast As Integer
antaltast = antaltast + 1
MsgBox "trykket " & antaltast & " gange"
End Sub
Hvis du sætter en variabel og et lighedstegn foran MsgBox, kan du opfange
den knap, brugeren har trykket på i MsgBox. Det er selvfølgelig kun
interessant, hvis der er flere knapper
Private Sub Command1_Click()
Static antaltast As Integer
Dim Svar as Variant
antaltast = antaltast + 1
Svar = MsgBox("trykket " & antaltast & " gange. Fortsæt?", vbYesNo)
if Svar = vbNo Then
Command1.Visible = False
end if
End Sub