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

• #1502 ArchElf addikt Cpt. Flint #1501

  Új Válasz 2011-11-11 11:36:27 #1502

  Ú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 Cpt. Flint #1501 üzenetére

  Pedig jó volna ha megértenéd a változók hatókörét. Nem tudom milyen fejlesztési tapasztalatod lehet, de ez a VB-re nem nagyon terjed ki.

  Anélkül elég nehezen tudom elmagyarázni azt, amit látsz (és nem éresz meg). De röviden azért megpróbálom:
  - Ha egy függvény definíciójában van definiálva egy változó (vastaggal)
  Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  azt hiába definiálod előre, az adott függvényben az itt definiált "változat" fog élni.
  - Ha definiálsz egy változót egy függvényben, attól még az onnan meghívott függvényekben a változó nem létezik. A változó hatóköre csak a definiálás helyére érvényes (kivétel a kód "gyökerében" globálisan definiált változók, de azok a függvényekben felüldefiniálhatók - pl. mint paraméter)
  - Használd az Option Explicit parancsot (kód legelején), hogy lásd, hogy minden változód helyesen van definiálva (és nem írtál el sehol semmit). Ez az utasítás kikényszeríti a változók definiálását.

  Az ActiveControl az aktuális konténerben aktív kontrolt kéri le. Arra meg kell nézned, hogy Container típusú-e és vannak-e tagjai, ha iden abban is meg kell nézni, hogy van-e aktív komponens -rekurzívan el lehet jutni az utolsó tagig, ami jelen esetben a TextBox1 komponens. De a KeyCode-ot és Shift-et nem lehet nem átadni. (Ha pedig odaírod, hogy ByVal - azaz érték és nem referencia szerinti átadás van -, akkor átkonvertálja neked az MSForms.ReturnInteger-t mezei Integer-ré)

  Option Explicit
  
  Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  csakszam KeyCode, Shift
  End Sub
  
  Sub csakszam(ByVal KeyCode As Integer, ByVal Shift As Integer)
  Dim Vezerlo As Control
  Set Vezerlo = GetActive(ActiveControl)
  'MsgBox TypeName(GetActive(ActiveControl))
  If TypeName(Vezerlo) <> "TextBox" Then
  Exit Sub
  End If
  If Shift <> 0 Then
  Vezerlo.Locked = True
  Else
  If KeyCode = 8 Or KeyCode = 46 Or _
  (KeyCode >= 48 And KeyCode <= 57) _
  Or (KeyCode >= 96 And KeyCode <= 105) Then
  Vezerlo.Locked = False
  Else
  Vezerlo.Locked = True
  End If
  End If
  End Sub
  
  Private Function GetActive(con As Control) As Control
  If TypeName(con) = "UserForm" Then
  Dim f As UserForm
  Set f = con
  Set GetActive = GetActive(f.ActiveControl)
  ElseIf TypeName(con) = "MultiPage" Then
  Dim mp As MultiPage
  Set mp = con
  Set GetActive = GetActive(mp.SelectedItem)
  ElseIf TypeName(con) = "Page" Then
  Dim pg As Page
  Set pg = con
  Set GetActive = GetActive(pg.ActiveControl)
  ElseIf TypeName(con) = "Frame" Then
  Dim fr As Frame
  Set fr = con
  Set GetActive = GetActive(fr.ActiveControl)
  Else
  Set GetActive = con
  End If
  End Function

  AE

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