User manual

ECE 477 Final Report Spring 2004
Menu Editor (Visual Basic)
Dim Counter As Integer
Private Sub Dir1_Change()
Dir1.Path = Drive1.Drive
Call File1_Click
End Sub
Private Sub Drive1_Change()
ChDrive Drive1.Drive
Call Dir1_Change
End Sub
Private Sub File1_Click()
File1.Path = Dir1.Path
Location.Text = File1.Path + "\" + File1.FileName
End Sub
Private Sub OpenFile_Click()
Dim sTemp(42) As String
If Not Location.Text = "" Then
Open Location.Text For Input As #1
Counter = 0
Do While Not EOF(1)
Line Input #1, sTemp(Counter)
Counter = Counter + 1
Loop
Close #1
For Counter = 0 To 2
Cat.Item(Counter) = sTemp(Counter)
Next
For Counter = 3 To 15
Item1.Item(Counter - 3) = sTemp(Counter)
Next
For Counter = 16 To 28
Item2.Item(Counter - 16) = sTemp(Counter)
Next
For Counter = 29 To 41
Item3.Item(Counter - 29) = sTemp(Counter)
Next
End If
End Sub
Private Sub Save_Click()
F-28