Macintosh-Tools
/
Virtual-Mac
mirror of https://github.com/SistemaRayoXP/Virtual-Mac.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Delete frmNewDisk.vb

This commit is contained in:
Edson Armando 2018-12-26 22:27:24 -06:00 committed by GitHub
parent 228d19eeae
commit 21fd0d1bf9
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 0 additions and 86 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

86
frmNewDisk.vb
View File

@ -1,86 +0,0 @@
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