- sziku69: Fűzzük össze a szavakat :)
- gban: Ingyen kellene, de tegnapra
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Szólánc.
- Magga: PLEX: multimédia az egész lakásban
- Luck Dragon: Asszociációs játék. :)
- Elektromos rásegítésű kerékpárok
- Sgr_A: Számítógépeim aktualizálása cseréje
- gerner1
- kemotox: Ki érti ezt?
Új hozzászólás Aktív témák
-
#90999040
törölt tag
Gondolom exit eseményt akartál írni, mert az exit sub egy kicsit más.
A lényeg az, hogy ez nem csak akkor következik be, ha az utolsó aktív vezérlőről van szó, hanem amikor egy frame-n belüli vezérlőről átváltasz egy frame-n kívülire. Ugyanis ilyenkor nem a frame-n belül levő vezérlő exit-je fut le, hanem a frame exit-je.
Ezt pl. így ki lehet kerülni:
A userformon belül létrehozol egy Control típusú változót, pl.: Private active As Control
Ezután az adott frameben levő minden vezérlőjének Enter() eseményébe beírod ezt: Set active = Me.<Frame neve>.ActiveControl
Az adott vezérlőd exit()-jébe pedig ezt:
Private Sub <Vezérlőd>_Exit(.........
If Not active Is Nothing Then
'itt lehet meghívni az eseményt
End If
End SubEz mellett persze még a frame exit()-jét is le kell kezelni:
Private Sub <Frame neve>_Exit(.......
If Me.<Vezérlőd>.Name = Me.<Frame neve>.ActiveControl.Name Then
Set active = Nothing
'itt ugyanúgy meghívod a vezérlőd exit()-jénél végrehajtandó kódot
End If
End Sub
Új hozzászólás Aktív témák
- Xiaomi AX3600 WiFi 6 AIoT Router
- E-roller topik
- Miért álltak az oldalak egy hétig, mi történt?
- Melyik tápegységet vegyem?
- Kuponkunyeráló
- Ford topik
- OLED TV topic
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- EA Sports WRC '23
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- További aktív témák...
- Kingston NV2 4TB M.2 NVME PCI-E 4.0 x4 - Új, bontatlan - 7400-6500 MBs - Eladó!
- Samsung Galaxy Fold / 12/512GB / Kártyafüggetlen
- Apple iPhone SE 2022 / 256GB / Kártyafüggetlen / 12Hó Garancia
- Samsung Galaxy Tab S8 Ultra / WI-FI / 12Hó Garancia
- Dell Alienware AW3225QF (31,6", OLED, 3840x2160, 240Hz, 1700R, FreeSync, G-SYNC) Új!
- AKCIÓ! Apple Macbook Pro 16" 2019 i9 9980HK 64GB DDR4 512GB SSD Radeon Pro 5500M garanciával
- ÁRGARANCIA!Épített KomPhone i7 14700KF 32/64GB RAM RTX 5070 Ti 16GB GAMER PC termékbeszámítással
- Samsung Galaxy Watch 6 Classic 43mm, Újszerű, 1 Év Garanciával
- GYÖNYÖRŰ iPhone 13 Pro 128GB Silver -1 ÉV GARANCIA - Kártyafüggetlen, MS3081
- HIBÁTLAN iPhone SE 2020 128GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS2192, 100% Akkumulátor
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest