Új hozzászólás Aktív témák

• #3704 Delila_1 veterán takyka77 #3703

  Új Válasz 2008-07-06 09:27:29 #3704

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz takyka77 #3703 üzenetére

  Bevitelkor ellenőrizheted.

  Private Sub TextBox1_Change()
  nev = TextBox1.Text
  For i = 1 To Len(nev)
  If Mid(nev, i, 1) < "0" Or Mid(nev, i, 1) > "9" Then
  TextBox1.Text = Left(nev, Len(nev) - 1)
  MsgBox "Csak számjegyeket adhatsz!"
  Exit For
  End If
  Next
  nev = Val(nev)
  End Sub

Új hozzászólás Aktív témák