mirror of
https://github.com/SistemaRayoXP/Virtual-Mac.git
synced 2024-12-11 06:50:22 +00:00
86 lines
3.2 KiB
VB.net
86 lines
3.2 KiB
VB.net
|
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
|