Virtual-Mac/frmNewDisk.vb

86 lines
3.2 KiB
VB.net
Raw Normal View History

2018-03-13 18:38:09 +00:00
Option Strict Off
Option Explicit On
Friend Class frmNewDisk
Inherits System.Windows.Forms.Form
Private Sub cmdBack_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdBack.Click
If NewDisk2.Visible = True Then
cmdBack.Enabled = False
NewDisk2.Visible = False
NewDiskWizard.Visible = False
NewDisk1.Visible = True
GoTo EndNext
End If
If NewDisk3.Visible = True Then
NewDisk3.Visible = False
Action.Text = "Disk Wizard"
ActionDescription.Text = "You can create a new virtual disk for your Macintosh."
NewDisk2.Visible = True
GoTo EndNext
End If
EndNext:
End Sub
Private Sub cmdCancel_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdCancel.Click
Me.Close()
End Sub
Private Sub cmdNext_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdNext.Click
If NewDisk1.Visible = True Then
NewDisk1.Visible = False
NewDiskWizard.Visible = True
NewDisk2.Visible = True
cmdBack.Enabled = True
FixedDisk.Focus()
GoTo EndNext
End If
If NewDisk2.Visible = True Then
End If
EndNext:
End Sub
Private Sub NewDisk3Browse_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles NewDisk3Browse.Click
Dim NewMac7VDName As Object = ""
BrowseSave.Filter = "Virtual Disk Files (*.dsk;*.img;*.vhd)|*.dsk;*.img;*.vhd|All files (*.*)|*.*"
BrowseSave.ShowDialog()
NewMac7VDName.Text = BrowseSave.FileName
End Sub
Function VerifyKey(ByRef PressedKey As Object) As Object
Dim AllowedKeys As String
AllowedKeys = "1234567890" & Chr(System.Windows.Forms.Keys.Back)
'UPGRADE_WARNING: Couldn't resolve default property of object PressedKey. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
If InStr(1, AllowedKeys, Chr(PressedKey)) Then
'UPGRADE_WARNING: Couldn't resolve default property of object PressedKey. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
'UPGRADE_WARNING: Couldn't resolve default property of object VerifyKey. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
VerifyKey = PressedKey
Else
'UPGRADE_WARNING: Couldn't resolve default property of object VerifyKey. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
VerifyKey = 0
End If
End Function
'UPGRADE_WARNING: Event NewDisk3FileName.TextChanged may fire when form is initialized. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="88B12AE1-6DE0-48A0-86F1-60C0686C026A"'
Private Sub NewDisk3FileName_TextChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles NewDisk3FileName.TextChanged
If NewDisk3FileName.Text = "" Then
cmdNext.Enabled = False
End If
End Sub
End Class