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

• #847 sonar addikt KissTboy #842

  Új Válasz 2007-04-02 08:49:12 #847

  Ú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

  

  sonar

  addikt

  válasz KissTboy #842 üzenetére

  Hogy ON legyek:
  Private Sub Text1_KeyPress(KeyAscii As Integer)
  ' csak számokat lehet beírni
  If (KeyAscii < 48) Then
  If Not KeyAscii = 44 Then ' a '','' engedélyezése (tizedes)
  If Not KeyAscii = 8 Then ' backspace engedélyezése
  KeyAscii = 0
  End If
  End If
  ElseIf (KeyAscii > 57) Then
  KeyAscii = 0
  End If
  End Sub
  

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