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

• #1498 ArchElf addikt vilag #1497

  Új Válasz 2011-11-10 08:59:04 #1498

  Ú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

  

  ArchElf

  addikt

  válasz vilag #1497 üzenetére

  Átvihető, csak át kellene adni neki.
  A változók a VB-ben nem globálisak (hacsak nem annak lettek definiálva), a hatókörük csak az adott szerkezetre (szubrutinra, osztályra) vonatkozik.
  így add át neki:
  Sub csakszam(tb As TextBox, kc As Integer)
  '8: backspace, 9: tabulátor, 13: enter, 17: Ctrl, 32: space, 46: delete, 48-57: felső számok, 86: v, 96-105: numpad számok, 109: numpad mínuszjel, 110: numpad pont, 186: é, 187: ó,
  '188: vessző, 189: kötőjel, 190: pont, 191: ü, 192: ö, 219: ő, 220: ű, 221: ú, 222: á, 226:í
  If kc = 8 Or kc = 46 Or _
  (kc >= 48 And kc <= 57) _
  Or (kc >= 96 And kc <= 105) Then
  tb.Locked = False
  Else
  tb.Locked = True
  End If
  End Sub

  Amúgy miért locked, ennek így semmi értelme nincs???

  Én inkább a Changed-et használnám és megvizsgálnám, hogy az összes karakter érvényes-e (vagy egyszerűen használnék masked textbox-ot)...

  AE

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