mirror of
https://github.com/SistemaRayoXP/Virtual-Mac.git
synced 2024-06-10 16:29:29 +00:00
623da0afb0
Deleted the files which were before in master (Those can be found in the releases > 0.3.0) Uploaded new files which are of the 0.5.2 version Now you can open a Basilisk II config file (To add it, open the New Mac Wizard, select "Create from file" and set the emulator to Basilisk II) and also you can edit and save it (Note that to edit it you must open the section "Edit Config File Manually" and make your changes there)
64 lines
2.3 KiB
VB.net
64 lines
2.3 KiB
VB.net
Option Strict Off
|
|
Option Explicit On
|
|
Friend Class frmVirtualMacintosh
|
|
Inherits System.Windows.Forms.Form
|
|
|
|
Public Sub mnuActionClose_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuActionClose.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Public Sub mnuCDCapture_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuCDCapture.Click
|
|
CDBrowser.ShowDialog()
|
|
If CDBrowser.FileName <> "" Then
|
|
MsgBox(CDBrowser.FileName)
|
|
mnuCDRelease.Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub mnuCDRelease_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuCDRelease.Click
|
|
CDBrowser.FileName = ""
|
|
mnuCDRelease.Enabled = True
|
|
End Sub
|
|
|
|
Public Sub mnuFloppyCapture_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuFloppyCapture.Click
|
|
FloppyBrowser.ShowDialog()
|
|
If FloppyBrowser.FileName <> "" Then
|
|
MsgBox(FloppyBrowser.FileName)
|
|
mnuFloppyRelease.Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub mnuFloppyRelease_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFloppyRelease.Click
|
|
FloppyBrowser.FileName = ""
|
|
mnuFloppyRelease.Enabled = True
|
|
End Sub
|
|
|
|
Public Sub mnuHelpAbout_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuHelpAbout.Click
|
|
frmAbout.Show()
|
|
End Sub
|
|
|
|
Private Sub VMStatusBar_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles VMStatusBar.ItemClicked
|
|
|
|
End Sub
|
|
|
|
Private Sub VMStatusBar_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles VMStatusBar.Resize
|
|
'Me.Width = VMStatusBar.Width +
|
|
End Sub
|
|
|
|
Private Sub frmVirtualMacintosh_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
|
|
Dim Close As Integer
|
|
|
|
Close = frmVirtualMacintoshClose.ShowDialog()
|
|
|
|
If Close = 2 Then
|
|
e.Cancel = True
|
|
Else
|
|
Me.Visible = False
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Protected Overrides Sub Finalize()
|
|
MyBase.Finalize()
|
|
End Sub
|
|
End Class |