585 lines
23 KiB
VB.net
585 lines
23 KiB
VB.net
Public Class frmNewMac
|
|
|
|
Public HostRAM As Long = My.Computer.Info.TotalPhysicalMemory / 1024 / 1024
|
|
Public NameWithoutPath As String
|
|
|
|
Public Sub SetFinalData()
|
|
MachineName.Text = NameWithoutPath
|
|
MachineMemory.Text = RAM.Text & " MB"
|
|
MachineDisk.Text = DiskSize.Value & " MB"
|
|
End Sub
|
|
|
|
Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub cmdNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNext.Click
|
|
|
|
If My.Computer.FileSystem.FileExists(My.Application.Info.DirectoryPath & "\Tools\qemu-img.exe") = False Then
|
|
ExistingDisk.Checked = True
|
|
NewDisk.Enabled = False
|
|
End If
|
|
|
|
If Welcome.Visible = True And Welcome.Enabled = True Then
|
|
SelectType.Enabled = True
|
|
SelectType.BringToFront()
|
|
MovePage(Welcome, Wizard)
|
|
DontUseWizard.Focus()
|
|
cmdBack.Enabled = True
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
If Wizard.Visible = True And Wizard.Enabled = True Then
|
|
If SelectType.Visible = True And SelectType.Enabled = True Then
|
|
If UseWizard.Checked = True Or DontUseWizard.Checked = True Then
|
|
MovePage(SelectType, CreateNew)
|
|
MacName.Focus()
|
|
MacName.SelectAll()
|
|
Else
|
|
MovePage(SelectType, AddExisting)
|
|
cmdNext.Enabled = False
|
|
End If
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
If AddExisting.Visible = True And AddExisting.Enabled = True Then
|
|
MovePage(Wizard, EndWizard)
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
If CreateNew.Visible = True And CreateNew.Enabled = True Then
|
|
If System.IO.Path.GetFileNameWithoutExtension(MacName.Text) = MacName.Text Then
|
|
NameWithoutPath = MacName.Text
|
|
End If
|
|
If My.Computer.FileSystem.DirectoryExists(My.Settings.DefaultMacFolder & "\" & NameWithoutPath) = True Then
|
|
MsgBox("This Mac already exists in ''My Macs\" & NameWithoutPath & "''. Please use a different name, or save the Mac to another location.", MsgBoxStyle.Exclamation)
|
|
Exit Sub
|
|
Else
|
|
AutoSelectOS()
|
|
MovePage(CreateNew, HwPresets)
|
|
End If
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
If HwPresets.Visible = True And HwPresets.Enabled = True Then
|
|
If DontUseWizard.Checked = True Then
|
|
SetFinalData()
|
|
cmdNext.Text = "Finish"
|
|
MovePage(Wizard, EndWizard)
|
|
cmdNext.Focus()
|
|
Else
|
|
MovePage(HwPresets, AssignRAM)
|
|
End If
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
If AssignRAM.Visible = True And AssignRAM.Enabled = True Then
|
|
MovePage(AssignRAM, SelectDisk)
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
If SelectDisk.Visible = True And SelectDisk.Enabled = True Then
|
|
SetFinalData()
|
|
cmdNext.Text = "Finish"
|
|
MovePage(Wizard, EndWizard)
|
|
cmdNext.Focus()
|
|
GoTo EndOfInstruction
|
|
End If
|
|
End If
|
|
|
|
If EndWizard.Visible = True And EndWizard.Enabled = True Then
|
|
CreateMac()
|
|
Me.Close()
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
EndOfInstruction:
|
|
|
|
End Sub
|
|
|
|
Private Sub cmdBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBack.Click
|
|
If Wizard.Visible = True And Wizard.Enabled = True Then
|
|
If SelectType.Visible = True And SelectType.Enabled = True Then
|
|
cmdBack.Enabled = False
|
|
MovePage(Wizard, Welcome)
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
If AddExisting.Visible = True And AddExisting.Enabled = True Then
|
|
MovePage(AddExisting, SelectType)
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
If CreateNew.Visible = True And CreateNew.Enabled = True Then
|
|
MovePage(CreateNew, SelectType)
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
If HwPresets.Visible = True And HwPresets.Enabled = True Then
|
|
MovePage(HwPresets, CreateNew)
|
|
MacName.Focus()
|
|
MacName.SelectAll()
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
If AssignRAM.Visible = True And AssignRAM.Enabled = True Then
|
|
MovePage(AssignRAM, HwPresets)
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
If SelectDisk.Visible = True And SelectDisk.Enabled = True Then
|
|
MovePage(SelectDisk, AssignRAM)
|
|
GoTo EndOfInstruction
|
|
End If
|
|
End If
|
|
|
|
If EndWizard.Visible = True And EndWizard.Enabled = True Then
|
|
cmdNext.Text = "Next >"
|
|
MovePage(EndWizard, Wizard)
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
EndOfInstruction:
|
|
|
|
End Sub
|
|
|
|
Public Sub CreateMac()
|
|
Dim CreateDisk As Boolean
|
|
Dim UD As Boolean 'UD stands for UseDisk, just that the object already exists, so I need an acronym
|
|
Dim Emulator As String = ""
|
|
Dim Configs() As String
|
|
|
|
If NewDisk.Checked = True Then
|
|
CreateDisk = True
|
|
Else
|
|
CreateDisk = False
|
|
End If
|
|
|
|
If NoDisk.Checked = True Then
|
|
UD = False
|
|
End If
|
|
|
|
If AddFromFile.Checked = True Then '//Checking the RadioButton "Add from file" to be checked, so we create from file
|
|
Select Case AEEmulatorType.SelectedItem.ToString
|
|
Case "Mini vMac Batch"
|
|
Emulator = "vMacBatch"
|
|
Case "Virtual Mac MvM File"
|
|
Emulator = "vMac"
|
|
Case "Basilisk"
|
|
Emulator = "BII"
|
|
Case "SheepShaver"
|
|
Emulator = "SheepShaver"
|
|
Case "PearPC"
|
|
Emulator = "PearPC"
|
|
Case "QEMU Windows Batch"
|
|
Emulator = "QEMUBatch"
|
|
End Select
|
|
ConfigFileHandler.CreateFromFile(AEFile.Text, Emulator, AEName.Text)
|
|
ElseIf UseWizard.Checked = True Or DontUseWizard.Checked = True Then
|
|
Select Case OSList.SelectedIndex
|
|
Case 0
|
|
Emulator = "vMac"
|
|
Case 1, 2
|
|
Emulator = "BII"
|
|
Case 3, 4
|
|
Emulator = "SheepShaver"
|
|
Case 5, 6, 7, 8, 9
|
|
Emulator = "QEMU"
|
|
End Select
|
|
ConfigFileHandler.Create(Emulator, MacName.Text, Configs)
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub DisableAllPages()
|
|
EndWizard.Enabled = False
|
|
SelectDisk.Enabled = False
|
|
AssignRAM.Enabled = False
|
|
HwPresets.Enabled = False
|
|
AddExisting.Enabled = False
|
|
CreateNew.Enabled = False
|
|
SelectType.Enabled = False
|
|
Wizard.Enabled = False
|
|
Welcome.Enabled = False
|
|
End Sub
|
|
|
|
Public Sub MovePage(ByVal CurrentTab As System.Windows.Forms.Panel, ByVal NewTab As System.Windows.Forms.Panel)
|
|
NewTab.Enabled = True
|
|
NewTab.BringToFront()
|
|
CurrentTab.Enabled = False
|
|
End Sub
|
|
|
|
Public Sub DataProgrammer(ByVal OSType As String)
|
|
|
|
Select Case OSType
|
|
Case "Mac6"
|
|
If HostRAM < 8 Then
|
|
MsgBox("You have lower memory than the required to run System Software 6. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "Insufficient Memory")
|
|
RAM.Text = RAMSlider.Maximum
|
|
End If
|
|
RAM.Text = 8
|
|
DiskSize.Value = 100
|
|
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", "8")
|
|
DefMem.Text = 8 & " MB"
|
|
DefDisk.Text = 128 & " MB"
|
|
DefCPU.Text = "Motorola 68000"
|
|
Case "Mac7"
|
|
If HostRAM < 40 Then
|
|
MsgBox("You have lower memory than the required to run System Software 7. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
|
|
RAM.Text = RAMSlider.Maximum
|
|
End If
|
|
RAM.Text = 16
|
|
DiskSize.Value = 250
|
|
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 16)
|
|
DefMem.Text = 16 & " MB"
|
|
DefDisk.Text = 250 & " MB"
|
|
DefCPU.Text = "Motorola 68040"
|
|
Case "Mac7Pro"
|
|
If HostRAM < 64 Then
|
|
MsgBox("You have lower memory than the required to run MacOS 7. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
|
|
RAM.Text = RAMSlider.Maximum
|
|
End If
|
|
RAM.Text = 24
|
|
DiskSize.Value = 250
|
|
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 24)
|
|
DefMem.Text = 24 & " MB"
|
|
DefDisk.Text = 250 & " MB"
|
|
DefCPU.Text = "PowerPC G3"
|
|
Case "Mac8"
|
|
If HostRAM < 128 Then
|
|
MsgBox("You have lower memory than the required to run MacOS 8. Install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
|
|
RAM.Text = RAMSlider.Maximum
|
|
End If
|
|
RAM.Text = 64
|
|
DiskSize.Value = 500
|
|
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 64)
|
|
DefMem.Text = 64 & " MB"
|
|
DefDisk.Text = 500 & " MB"
|
|
DefCPU.Text = "PowerPC G3"
|
|
Case "Mac9"
|
|
If HostRAM < 256 Then
|
|
MsgBox("You have lower memory than the required to run MacOS 9. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
|
|
RAM.Text = RAMSlider.Maximum
|
|
End If
|
|
RAM.Text = 256
|
|
DiskSize.Value = 1024
|
|
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 256)
|
|
DefMem.Text = 256 & " MB"
|
|
DefDisk.Text = 1024 & " MB"
|
|
DefCPU.Text = "PowerPC G3"
|
|
Case "Mac10"
|
|
If HostRAM < 384 Then
|
|
MsgBox("You have lower memory than the required to run Mac OS X. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
|
|
RAM.Text = RAMSlider.Maximum
|
|
End If
|
|
RAM.Text = 384
|
|
DiskSize.Value = 3072
|
|
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 384)
|
|
DefMem.Text = 384 & " MB"
|
|
DefDisk.Text = 3072 & " MB"
|
|
DefCPU.Text = "PowerPC G3"
|
|
Case "Debian"
|
|
If HostRAM < 400 Then
|
|
MsgBox("You have lower memory than the required to run Debian. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
|
|
RAM.Text = RAMSlider.Maximum
|
|
End If
|
|
RAM.Text = 400
|
|
DiskSize.Value = 4096
|
|
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 400)
|
|
DefMem.Text = 400 & " MB"
|
|
DefDisk.Text = 4096 & " MB"
|
|
DefCPU.Text = "PowerPC G3"
|
|
Case "Ubuntu"
|
|
If HostRAM < 400 Then
|
|
MsgBox("You have lower memory than the required to run Ubuntu. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
|
|
RAM.Text = RAMSlider.Maximum
|
|
End If
|
|
RAM.Text = 400
|
|
DiskSize.Value = 6144
|
|
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 400)
|
|
DefMem.Text = 400 & " MB"
|
|
DefDisk.Text = 6144 & " MB"
|
|
DefCPU.Text = "PowerPC G3"
|
|
Case "Linux"
|
|
If HostRAM < 400 Then
|
|
MsgBox("You have lower memory than the required to run Linux. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
|
|
RAM.Text = RAMSlider.Maximum
|
|
End If
|
|
RAM.Text = 400
|
|
DiskSize.Value = 4096
|
|
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 400)
|
|
DefMem.Text = 400 & " MB"
|
|
DefDisk.Text = 4096 & " MB"
|
|
DefCPU.Text = "PowerPC G3"
|
|
Case "Other"
|
|
If HostRAM < 256 Then
|
|
MsgBox("You have lower memory than the required to run Other. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
|
|
RAM.Text = RAMSlider.Maximum
|
|
End If
|
|
RAM.Text = 256
|
|
DiskSize.Value = 4096
|
|
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 256)
|
|
DefMem.Text = 256 & " MB"
|
|
DefDisk.Text = 4096 & " MB"
|
|
DefCPU.Text = "PowerPC G3"
|
|
End Select
|
|
|
|
'Place in cmdNext.Click code area
|
|
MacName.Text = My.Settings.DefaultMacFolder & "\" & NameWithoutPath & "\" & NameWithoutPath & ".mcf"
|
|
DiskPath.Text = My.Settings.DefaultMacFolder & "\" & NameWithoutPath & "\" & NameWithoutPath & ".dsk"
|
|
End Sub
|
|
|
|
Public Function AutoSelectOS() As String
|
|
Dim OS As String = "Other"
|
|
Dim OsFound As Long
|
|
|
|
OsFound = InStr(MacName.Text, "System Software")
|
|
If OsFound <> 0 Then
|
|
OS = "Mac6"
|
|
OSList.SelectedIndex = 0
|
|
GoTo OSDetected
|
|
End If
|
|
|
|
OsFound = InStr(MacName.Text, " 6")
|
|
If OsFound <> 0 Then
|
|
OS = "Mac6"
|
|
OSList.SelectedIndex = 0
|
|
GoTo OSDetected
|
|
End If
|
|
|
|
OsFound = InStr(MacName.Text, " 7")
|
|
If OsFound <> 0 Then
|
|
OS = "Mac7"
|
|
OSList.SelectedIndex = 1
|
|
GoTo OSDetected
|
|
End If
|
|
|
|
OsFound = InStr(MacName.Text, " 7.")
|
|
If OsFound <> 0 Then
|
|
OS = "Mac75"
|
|
OSList.SelectedIndex = 2
|
|
GoTo OSDetected
|
|
End If
|
|
|
|
OsFound = InStr(MacName.Text, " 8")
|
|
If OsFound <> 0 Then
|
|
OS = "Mac8"
|
|
OSList.SelectedIndex = 3
|
|
GoTo OSDetected
|
|
End If
|
|
|
|
OsFound = InStr(MacName.Text, " 9")
|
|
If OsFound <> 0 Then
|
|
OS = "Mac9"
|
|
OSList.SelectedIndex = 4
|
|
GoTo OSDetected
|
|
End If
|
|
|
|
OsFound = InStr(MacName.Text, " Classic")
|
|
If OsFound <> 0 Then
|
|
OS = "Mac9"
|
|
OSList.SelectedIndex = 4
|
|
GoTo OSDetected
|
|
End If
|
|
|
|
OsFound = InStr(MacName.Text, " 10")
|
|
If OsFound <> 0 Then
|
|
OS = "Mac10"
|
|
OSList.SelectedIndex = 5
|
|
GoTo OSDetected
|
|
End If
|
|
|
|
OsFound = InStr(MacName.Text, " X")
|
|
If OsFound <> 0 Then
|
|
OS = "Mac10"
|
|
OSList.SelectedIndex = 5
|
|
GoTo OSDetected
|
|
End If
|
|
|
|
OsFound = InStr(MacName.Text, "Debian")
|
|
If OsFound <> 0 Then
|
|
OS = "Debian"
|
|
OSList.SelectedIndex = 6
|
|
GoTo OSDetected
|
|
End If
|
|
|
|
OsFound = InStr(MacName.Text, "Ubuntu")
|
|
If OsFound <> 0 Then
|
|
OS = "Ubuntu"
|
|
OSList.SelectedIndex = 7
|
|
GoTo OSDetected
|
|
End If
|
|
|
|
OsFound = InStr(MacName.Text, "Linux")
|
|
If OsFound <> 0 Then
|
|
OS = "Linux"
|
|
OSList.SelectedIndex = 8
|
|
GoTo OSDetected
|
|
End If
|
|
|
|
OSList.SelectedIndex = 9
|
|
|
|
OSDetected:
|
|
|
|
Return OS
|
|
End Function
|
|
|
|
Private Sub SaveMac_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveMac.Click
|
|
Save.Filter = "Virtual Mac Configuration File (*.mcf)|*.mcf|All files (*.*)|*.*"
|
|
Save.ShowDialog()
|
|
If Save.FileName <> "" Then
|
|
MacName.Text = Save.FileName
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub frmNewMac_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
RAMSlider.TickFrequency = HostRAM / 20
|
|
RAMSlider.Maximum = HostRAM
|
|
WarningInvalidSize.Text = Replace(Replace(WarningInvalidSize.Text, "%x", RAMSlider.Maximum), "%n", RAMSlider.Minimum)
|
|
DisableAllPages()
|
|
MovePage(Wizard, Welcome)
|
|
AEEmulatorType.SelectedIndex = 0
|
|
OSList.SelectedIndex = 0
|
|
End Sub
|
|
|
|
Private Sub RAM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RAM.TextChanged
|
|
If RAM.Text = "" Then
|
|
RAMSlider.Value = RAMSlider.Minimum
|
|
cmdNext.Enabled = False
|
|
WarningInvalidSize.Visible = True
|
|
Else
|
|
If RAM.Text > RAMSlider.Maximum Then
|
|
RAMSlider.Value = RAMSlider.Maximum
|
|
cmdNext.Enabled = False
|
|
WarningInvalidSize.Visible = True
|
|
Else
|
|
If RAM.Text < RAMSlider.Minimum Then
|
|
RAMSlider.Value = RAMSlider.Minimum
|
|
cmdNext.Enabled = False
|
|
WarningInvalidSize.Visible = True
|
|
Else
|
|
RAMSlider.Value = RAM.Text
|
|
WarningInvalidSize.Visible = False
|
|
cmdNext.Enabled = True
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub RAMSlider_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles RAMSlider.Scroll
|
|
RAM.Text = RAMSlider.Value
|
|
End Sub
|
|
|
|
Private Sub RAM_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DefaultRAM.CheckedChanged, CustomRAM.CheckedChanged
|
|
If CustomRAM.Checked = True Then
|
|
CustomRAMContainer.Enabled = True
|
|
CustomRAMContainer.Visible = True
|
|
Else
|
|
CustomRAMContainer.Enabled = False
|
|
CustomRAMContainer.Visible = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub OSList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OSList.SelectedIndexChanged
|
|
Select Case OSList.SelectedIndex
|
|
Case 0
|
|
DataProgrammer("Mac6")
|
|
Case 1
|
|
DataProgrammer("Mac7")
|
|
Case 2
|
|
DataProgrammer("Mac7Pro")
|
|
Case 3
|
|
DataProgrammer("Mac8")
|
|
Case 4
|
|
DataProgrammer("Mac9")
|
|
Case 5
|
|
DataProgrammer("Mac10")
|
|
Case 6
|
|
DataProgrammer("Debian")
|
|
Case 7
|
|
DataProgrammer("Ubuntu")
|
|
Case 8
|
|
DataProgrammer("Linux")
|
|
Case 9
|
|
DataProgrammer("Other")
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub BrowseDiskLocation_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrowseDiskLocation.Click
|
|
If NewDisk.Checked = True Then
|
|
Save.Filter = "Disk files (*.dsk)|*.dsk|Disk Image Files (*.img)|*.img|All files (*.*)|*.*"
|
|
Save.ShowDialog()
|
|
If Save.FileName <> "" Then
|
|
DiskPath.Text = Save.FileName
|
|
End If
|
|
Else
|
|
Open.Filter = "Disk files (*.dsk)|*.dsk|Disk Image Files (*.img)|*.img|All files (*.*)|*.*"
|
|
Open.ShowDialog()
|
|
If Open.FileName <> "" Then
|
|
DiskPath.Text = Open.FileName
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MacName_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MacName.Click
|
|
MacName.SelectAll()
|
|
End Sub
|
|
|
|
Private Sub MacName_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles MacName.GotFocus
|
|
MacName.SelectAll()
|
|
End Sub
|
|
|
|
Private Sub Disk_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewDisk.CheckedChanged, ExistingDisk.CheckedChanged
|
|
If NewDisk.Checked = True Then
|
|
DiskTools.Visible = True
|
|
Else
|
|
DiskTools.Visible = False
|
|
End If
|
|
If NoDisk.Checked = True Then
|
|
DiskPath.Enabled = False
|
|
BrowseDiskLocation.Enabled = False
|
|
Else
|
|
DiskPath.Enabled = True
|
|
BrowseDiskLocation.Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub AEBrowseFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AEBrowseFile.Click
|
|
Open.Filter = "Batch files|*.bat|Basilisk/SheepShaver preferences file|*_prefs|PearPC Config Files|*.cfg|Virtual Mac Mini vMac Configuration File|*.mcf|All files|*.*"
|
|
Select Case AEEmulatorType.SelectedIndex
|
|
Case 0
|
|
Open.FilterIndex = 0
|
|
Case 1
|
|
Open.FilterIndex = 3
|
|
Case 2
|
|
Open.FilterIndex = 1
|
|
Case 3
|
|
Open.FilterIndex = 1
|
|
Case 4
|
|
Open.FilterIndex = 2
|
|
Case 5
|
|
Open.FilterIndex = 0
|
|
Case Else
|
|
Open.FilterIndex = 4
|
|
End Select
|
|
Open.ShowDialog()
|
|
If Open.FileName <> "" Then
|
|
AEFile.Text = Open.FileName
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub AEName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AEName.TextChanged
|
|
If AEName.Text <> "" And AEFile.Text <> "" Then
|
|
cmdNext.Enabled = True
|
|
Else
|
|
cmdNext.Enabled = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub AEFile_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AEFile.TextChanged
|
|
If AEName.Text <> "" And AEFile.Text <> "" Then
|
|
cmdNext.Enabled = True
|
|
Else
|
|
cmdNext.Enabled = False
|
|
End If
|
|
End Sub
|
|
End Class |