Keskustelu: Ohjelmointikysymykset: [VB6] Laskuri

Miten saan että ohjelma lisää TextBoxissa olevaa numero yhdellä?
Eli jos siinä olisi esim. 0 niin ohjelma muuttaisi sen ykköseksi. Tai jos siinä olisi esim. 198 ohjelma muuttaisi sen 199:ksi.

Draiz kirjoitti:

Text1.Text = Text1.Text + 1

Ei toimi. Oon yrittäny jo.

Minäkin yritin äsken ja ihan hyvin toimi. Valittaako se jotain vai miten se ei toimi?

Ota se tekstilaatikon teksti lukuna:

Text1.Text = Val(Text1.Text) + 1

Blaze kirjoitti:

Ota se tekstilaatikon teksti lukuna:

Text1.Text = Val(Text1.Text) + 1

Nyt toimii.

Miksköhän mun formi välkkyy (Me.visible=false->me.visible=true->me.visible=false jne.) sillon kun sen pitäisi olla poissa näkyvistä:

Private Sub menushow_timer()
If (GetAsyncKeyState(vbKeyControl)) And Me.Visible = False Then
Me.Visible = True
Else
If (GetAsyncKeyState(vbKeyControl)) And Me.Visible = True Then
Me.Visible = False
End If
End If
End Sub