Imports System.Collections.Hashtable
Module Module1
Dim myHashes As Hashtable
Sub BuildHashTable(ByVal myControl As Control, Optional ByVal isInit As Boolean = True)
If isInit Then
If myHashes Is Nothing Then myHashes = New Hashtable(myControl.Controls.Count)
myHashes.Clear()
End If
Dim i%
Dim c As New Control
If myControl Is Nothing Then Exit Sub
If myControl.Controls Is Nothing Then Exit Sub
If myControl.Controls.Count <= 0 Then Exit Sub
For i = 0 To myControl.Controls.Count - 1
myHashes.Add(myControl.Controls(i).Name, myControl.Controls(i))
BuildHashTable(myControl.Controls(i), False)
Next
End Sub
Sub SetProperty(ByVal myObject As Object, ByVal Prop As String)
If myObject Is Nothing Then Exit Sub
Dim s$
Try
s = Prop
If s <> Nothing Then
Select Case myObject.GetType.ToString
Case "System.Windows.Forms.Button"
Dim strArr() As String
strArr = s.Split("-")
myObject.Location = New Point(strArr(0), strArr(1))
Case "System.Windows.Forms.Label"
Dim strArr() As String
strArr = s.Split("-")
myObject.Location = New Point(strArr(0), strArr(1))
End Select
End If
Catch ex As System.Exception
End Try
End Sub
Sub LoadControls(ByVal me1 As Control)
Dim key$, value$
Dim o As Control
While Not EOF(FileNo)
Try
key = LInput(FileNo)
o = myHashes.Item(key)
value = LInput(FileNo)
SetProperty(o, value)
Catch ex As System.Exception
FClose(FileNo)
Throw New System.Exception(ex.Message)
End Try
End While
End Sub
Sub SaveControls(ByVal me1 As Control)
Dim c As Object
Dim i%
If me1 Is Nothing Then Exit Sub
If me1.Controls Is Nothing Then Exit Sub
If me1.Controls.Count <= 0 Then Exit Sub
For i = 0 To me1.Controls.Count - 1
c = me1.Controls(i)
Try
Select Case c.GetType.ToString
Case "System.Windows.Forms.Button"
RSet(c.name, c.location.x & "-" & c.location.y)
Case "System.Windows.Forms.Label"
RSet(c.name, c.location.x & "-" & c.location.y)
End Select
Catch ex As System.Exception
End Try
SaveControls(me1.Controls(i))
Next
End Sub
Public Sub SaveSettings(ByVal Cntl As Control, ByVal File$)
FileNo = FOpen(File, OpenMode.Output)
If FileNo = -1 Then Throw New System.Exception("File - " + File + " cannot be opened for writing!")
BuildHashTable(Cntl)
SaveControls(Cntl)
FClose(FileNo)
End Sub
Public Sub LoadSettings(ByVal Cntl As Control, ByVal File$)
FileNo = FOpen(File)
If FileNo = -1 Then Throw New System.Exception("File - " + File + " cannot be opened for reading!")
BuildHashTable(Cntl)
LoadControls(Cntl)
FClose(FileNo)
End Sub
Dim FileNo% = -1
Private Sub RSet(ByVal Key$, ByVal Value$)
Print(FileNo, Key & vbCrLf)
Print(FileNo, Value & vbCrLf)
End Sub
Public Function FOpen(ByVal File$, Optional ByVal Mode As Microsoft.VisualBasic.OpenMode = OpenMode.Input) As Integer
FOpen = FreeFile()
Try
FileOpen(FOpen, File, Mode)
Catch ex As System.Exception
Try
FileClose(FOpen)
Catch ex2 As System.Exception
End Try
Return -1
End Try
End Function
Public Function FClose(ByVal FILE%) As Integer
Try
FileClose(FILE)
Catch ex As System.Exception
Return -1
End Try
Return 0
End Function
Public Function LInput(ByVal FILE%, Optional ByVal STR$ = "Error - Cannot read another line from file ") As String
Try
LInput = LineInput(FILE)
Catch ex As System.Exception
Throw New System.Exception(STR)
End Try
End Function
End Module
