Uložení pozice okna ve Visual Basicu - Builder.cz - Informacni server o programovani

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:



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

DeleteSetting JMENO_APLIKACE, SEKCE

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
Nejlépe hodnocené články

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: