Tipp 0225 Position und Größe einer Form speichern
Autor/Einsender:
Datum:
  Michael Werner
15.04.2002
Entwicklungsumgebung:   VB 5
Die Klasse clsFormSet ermöglicht auf eine komfortable Weise, die zuletzt eingestellte Größe der Form sowie seine letzte Position am Bildschirm in der System-Registrierung (Registry) zu speichern und beim erneuten Start des Programms genau so wieder einzustellen.
Speicherort in der System-Registrierung:
HKEY_CURRENT_USER\Software\VB and VBA Program Settings\SETFORM
Code im Codebereich des Moduls
 
Option Explicit

Public Sub LiesFormPos(frm As Form)
  frm.Left = Val(GetSetting(App.EXEName, "Settings", _
                "FormLeft", "2000"))
  frm.Top = Val(GetSetting(App.EXEName, "Settings", _
                "FormTop", "2000"))
  frm.Width = Val(GetSetting(App.EXEName, "Settings", _
                "FormWidth", "5000"))
  frm.Height = Val(GetSetting(App.EXEName, "Settings", _
                "FormHeight", "2400"))
End Sub

Public Sub SchreibFormPos(frm As Form)
  SaveSetting App.EXEName, "Settings", "FormLeft", CStr(frm.Left)
  SaveSetting App.EXEName, "Settings", "FormTop", CStr(frm.Top)
  SaveSetting App.EXEName, "Settings", "FormHeight", _
                CStr(frm.Height)
  SaveSetting App.EXEName, "Settings", "FormWidth", CStr(frm.Width)
End Sub
 
Code im Codebereich der Form
 
Option Explicit

Dim myFSet As New clsFormSet

Private Sub Form_Load()
  myFSet.LiesFormPos Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
  myFSet.SchreibFormPos Me
End Sub
 
Weitere Links zum Thema
Programm-Einstellungen speichern (INI-Datei)
Programm-Einstellungen speichern (SaveSetting)

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (3,5 kB) Downloads bisher: [ 817 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 4. September 2011