Rubriky
Odběr fotomagazínu
Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!
Zadejte Vaši e-mailovou adresu:
Kamarád fotí rád?
Přihlas ho k odběru fotomagazínu!
Zadejte e-mailovou adresu kamaráda:
Seriály
Visual Basic
Uložení pozice okna ve Visual Basicu
14. října 1998, 00.00 | Pokud chcete aby si váš program pamatoval pozici a velikost okna i při dalším spuštění, můžete se poučit z toho tipu..
Některé aplikace si po svém ukončení pamatují, kde bylo umístěno na obrazovce jejich okno a jak bylo veliké. Následující kód uloží po zavření okna jeho pozici a rozměr do systémového registru. Při otevření okna jsou uložené hodnoty načteny a okno umístěno na pozici, ve které bylo zavřeno. Načteny a upraveny jsou také rozměry okna.frmOkno - okno aplikace, objekt Form Const JMENO_APLIKACE = "Aplikace" Const SEKCE = "Okno" Private Sub Form_Initialize() ' Načtení souřadnic levého horního rohu okna' frmOkno.Top = Val(GetSetting(JMENO_APLIKACE, SEKCE, "top", 600)) frmOkno.Left = Val(GetSetting(JMENO_APLIKACE, SEKCE, "left", 600)) ' Načtení rozměru okna' frmOkno.Height = Val(GetSetting(JMENO_APLIKACE, SEKCE, "height", 2000)) frmOkno.Width = Val(GetSetting(JMENO_APLIKACE, SEKCE, "width", 1500)) End Sub Private Sub Form_Unload(Cancel As Integer) ' Uložení hodnot do systémového registru' SaveSetting JMENO_APLIKACE, SEKCE, "top", frmOkno.Top SaveSetting JMENO_APLIKACE, SEKCE, "left", frmOkno.Left SaveSetting JMENO_APLIKACE, SEKCE, "height", frmOkno.Height SaveSetting JMENO_APLIKACE, SEKCE, "width", frmOkno.Width End Sub
Pokud chcete záznam ze systémového registru odstranit stačí použít příkaz
Tento kód neřeší situaci pro maximalizované nebo minimalizované okno.
Testováno a odladěno: Visual Basic 5.0 Learning Edition
Nejčtenější články
-
25. listopadu 2012
-
30. srpna 2002
-
10. října 2002
-
4. listopadu 2002
-
12. září 2002
Nejlépe hodnocené články
-
25. listopadu 2012
-
28. července 1998
-
31. července 1998
-
28. srpna 1998
-
6. prosince 2000
-
27. prosince 2007
-
4. května 2007
