I en textruta vill jag att ett värde ska plussas på med 1, varje gång man klickar på en viss knapp. Hur gör man detta?

/Uffe

1. Lägg till en textbox
2. Lägg till en knapp
3. Klistra in koden:
<code>
Private Sub Command1_Click()
Text1.Text = Text1.Text + 1
End Sub
</code>

Tack, det funkade! :)

Man bör kontrollera om det är ett tal i textruten. Så slipper man fel.
<code>
Private Sub Command1_Click()
If IsNumeric(Text1.Text) Then
Text1.Text = CDbl(Text1.Text) + 1
Else
Beep
End If
End Sub
</code>

Ok, men jag har "låst" knappen så att man inte kan skriva något i textrutan. Men jag ska lägga koden på minnet till en annan gång :)

/Uffe

prova annars

knapp1
txttext.Text = txttext.Text & "1"


knapp2
txttext.Text = txttext.Text & "2"


o.s.v

Va, vad ska det tjäna till?
Det adderar ju sällan ett varje gång, snarare förstorar talet, lite fel va ;)