VisualBasic form

VisualBasic form file is a plain text file describing the form (a window), and containing the code associated with it.

Layout

 * The version of VisualBasic
 * The form description
 * Definition of functions

Example
VERSION 5.00 Begin VB.Form Sysedit AutoRedraw     =   -1  'True Caption        =   "Anarchist System Editor" ClientHeight   =   285 ClientLeft     =   555 ClientTop      =   1275 ClientWidth    =   4305 LinkTopic      =   "Sysedit" PaletteMode    =   1  'UseZOrder ScaleHeight    =   285 ScaleWidth     =   4305 Begin VB.Menu FileMenu Caption        =   "&File" Begin VB.Menu AutoexecMenu Caption        =   "&AutoExec.bat" End Begin VB.Menu ConfigMenu Caption        =   "&Config.sys" End Begin VB.Menu DosstartMenu Caption        =   "&DOSStart.bat" End Begin VB.Menu MsdosMenu Caption        =   "&MSDOS.sys" End Begin VB.Menu SystemMenu Caption        =   "&System.ini" End Begin VB.Menu WinMenu Caption        =   "&Win.ini" End Begin VB.Menu WinstartMenu Caption        =   "W&inStart.bat" End Begin VB.Menu ExitMenu Caption        =   "&Exit" Shortcut       =   {F12} End End End Attribute VB_Name = "Sysedit" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Attribute VB_Description = "Main Form" Public Autoexec, Config, Dosstart, Msdos, System, Win, Winstart As Boolean

Sub AutoexecClose(Ext As Boolean) If Autoexec Then AutoexecFrm.Unshow If Ext Then Unload Me End If End Sub Sub ConfigClose(Ext As Boolean) If Config Then ConfigFrm.Unshow If Ext Then Unload Me End If End Sub Sub DosstartClose(Ext As Boolean) If Dosstart Then DosstartFrm.Unshow If Ext Then Unload Me End If End Sub Sub MsdosClose(Ext As Boolean) If Msdos Then MsdosFrm.Unshow If Ext Then Unload Me End If End Sub Sub SystemClose(Ext As Boolean) If System Then SystemFrm.Unshow If Ext Then Unload Me End If End Sub Sub WinClose(Ext As Boolean) If Win Then WinFrm.Unshow If Ext Then Unload Me End If End Sub Sub WinstartClose(Ext As Boolean) If Winstart Then WinstartFrm.Unshow If Ext Then Unload Me End If End Sub

Private Sub AutoexecMenu_Click If Autoexec Then 'If AutoExec.bat is loaded AutoexecClose (False) Else AutoexecFrm.Show Autoexec = True End If End Sub

Private Sub ConfigMenu_Click If Config Then 'If Config.sys is loaded ConfigClose (False) Else ConfigFrm.Show Config = True End If End Sub

Private Sub DosstartMenu_Click If Dosstart Then 'If DOSStart.bat is loaded DosstartClose (False) Else DosstartFrm.Show Dosstart = True End If End Sub

Private Sub ExitMenu_Click Unload Me End Sub

Private Sub Form_Resize If WindowState = 2 Then WindowState = 0 Width = 12000 Height = 690 Left = 0 Top = 0 Else Height = 690 End If End Sub

Private Sub Form_Unload(Cancel As Integer) AutoexecClose (False) ConfigClose (False) DosstartClose (False) MsdosClose (False) SystemClose (False) WinClose (False) WinstartClose (False) End End Sub

Private Sub MsdosMenu_Click If Msdos Then 'If MSDOS.sys is loaded MsdosClose (False) Else MsdosFrm.Show Msdos = True End If End Sub

Private Sub SystemMenu_Click If System Then 'If System.ini is loaded SystemClose (False) Else SystemFrm.Show System = True End If End Sub

Private Sub WinMenu_Click If Win Then 'If Win.ini is loaded WinClose (False) Else WinFrm.Show Win = True End If End Sub

Private Sub WinstartMenu_Click If Winstart Then 'If WinStart.bat is loaded WinstartClose (False) Else WinstartFrm.Show Winstart = True End If End Sub