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

• ArchElf addikt

  #1498

  #1497 vilag

  2011-11-10 08:59:04

  Új Válasz

  Ú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

  

  ArchElf

  addikt

  #1497 vilag

  #1497 vilag

  Üdv!

  Újabb fogós kérdés merült fel.

  Egy multipage egyik lapján egy különböző frameeken belűl vannak nekem egy vezérlőim.

  A vezérlőkbe beírható karaktereket szeretném korlátozni. Mivel egy részüknél ugyan az a korlátozás szükséges (vagyis csak számok írhatóak be), subrutinná tettem egy eddig vezérlőnként alkalmazott eljárást.

  Sub csakszam()
  
  '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 KeyCode = 8 Or KeyCode = 46 Or _
  (KeyCode >= 48 And KeyCode <= 57) _
  Or (KeyCode >= 96 And KeyCode <= 105) Then
  TextBox1.Locked = False
  Else
  TextBox1.Locked = True
  End If
  
  End Sub

  A vezlőnél pedig ez van megírva:

  Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'Ügyirat alszámba csak számot enged írni
  
  csakszam
  
  End Sub

  Gondolom sejtitek, hogy ez így nem működőképes (vagyis nem általánosságban), különben nem írtam volna.

  Gondoltam könnyen általánossá tehető a dolog egy huszárvágással, mert a "Textbox1" helyére egyszerűen bevezetek egy változot, amely mindig az aktuális vezérlő nevét helyettesíti.
  Azonban úgy nem működőképes a dolog.
  Egyik okát tudom: a KeyCode "rendszerváltozó" tartalma nem vihető át egy másik rutinba csak egy változón keresztül (mondjuk azt nem értem miért nem tehető a KeyCode rendszerváltozó egyszerűen publikussá, erre is várok valami okosat ha lehet). Ezt még meg is oldottam.

  NADE, azt mondja meg valaki, hogy hogyan lehet kinyerni, hogy melyik az aktív vezérlő????
  Mert ugyan is ha beteszem mondjuk, hogy:

  Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'Ügyirat alszámba csak számot enged írni
  
  x=ActiveControl
  csakszam
  
  End Sub

  akkor az x értéke furcsa módon nem az lesz, hogy "Textbox1", hanem az, hogy "Multipage1".

  Pedig a súgója azt állítja, hogy az aktív vezérlő nevét adja eredményül, már pedig én erősen a Textbox1-ben buzerálódom.

  Várom a megoldási javaslatokat, esetleg konkrét kódrészlettel is.
  Az is érdekelne (ahogy fentebb is írtam, hogy ha meg tudja mondani valaki), hogy a KeyCode rendszerváltozó miért nem tehető publikussá.

  Köszönöm a segítségeteket!!!!!!!

  Á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