VBSample project - Technical -frmMain- Events
Events of frmMain

private sub MDIForm_Load( )

General information
Full name frmMain.MDIForm_Load
Access private
Overload of  
Purpose Restores the default size and set the security of the form.
Prototype private sub MDIForm_Load( )
History NOVALYS - 2001/10/20 - Creation

Source code
Private  Sub MDIForm_Load()
'*********************************************************
' Purpose : Restores the default size and set the security of the form.
' Subject : GUI
' History : NOVALYS - 2001/10/20 - Creation
'*********************************************************
    Me.Left = GetSetting(App.Title,  "Settings",  "MainLeft",  1000)
    Me.Top = GetSetting(App.Title,  "Settings",  "MainTop",  1000)
    Me.Width = GetSetting(App.Title,  "Settings",  "MainWidth",  6500)
    Me.Height = GetSetting(App.Title,  "Settings",  "MainHeight",  6500)
    MyVisualGuard.SetSecurity Me,  "Load",  ""
'    LoadNewDoc
End  Sub

Functions and events referenced
Full name Owners
MyVG.SetSecurity MyVG

Referenced classes

Full name
frmMain

Referenced properties
Full name Scope
ModMain.MyVisualGuard attribute



private sub MDIForm_Unload( Cancel as Integer )

General information
Full name frmMain.MDIForm_Unload
Access private
Overload of  
Purpose Saves the size of the form in the registry.
Prototype private sub MDIForm_Unload( Cancel as Integer )
History NOVALYS - 2001/10/20 - Creation

Parameters
Cancel Integer

Source code
Private  Sub MDIForm_Unload(Cancel As  Integer)
'*********************************************************
' Purpose : Saves the size of the form in the registry.
' Subject : GUI
' History : NOVALYS - 2001/10/20 - Creation
'*********************************************************
     If Me.WindowState <> vbMinimized  Then
        SaveSetting App.Title,  "Settings",  "MainLeft", Me.Left
        SaveSetting App.Title,  "Settings",  "MainTop", Me.Top
        SaveSetting App.Title,  "Settings",  "MainWidth", Me.Width
        SaveSetting App.Title,  "Settings",  "MainHeight", Me.Height
     End  If
    
'-----------------------------------
' Instanciate  VgSecurity
'-----------------------------------
     If  Not IsNull(MyVisualGuard)  Then
'        Set MyVisualGuard = Nothing
     End  If
'-----------------------------------
    
End  Sub

Referenced classes

Full name
frmMain

Referenced properties
Full name Scope
ModMain.MyVisualGuard attribute




Document created on Wednesday 20 March 2002 at 09:57 by Visual Expert