35 lines
1.6 KiB
VB.net
35 lines
1.6 KiB
VB.net
Option Strict Off
|
|
Option Explicit On
|
|
Friend Class frmVirtualMacintosh
|
|
Inherits System.Windows.Forms.Form
|
|
|
|
Public Sub mnuActionCloseVM_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuActionCloseVM.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Public Sub mnuCDCapture_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuCDCapture.Click
|
|
'UPGRADE_WARNING: Filter has a new behavior. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'
|
|
BrowserOpen.Filter = "Disc Images (*.iso)|*.iso|All files (*.*)|*.*"
|
|
BrowserOpen.ShowDialog()
|
|
MsgBox(BrowserOpen.FileName)
|
|
End Sub
|
|
|
|
Public Sub mnuFloppyCapture_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuFloppyCapture.Click
|
|
'UPGRADE_WARNING: Filter has a new behavior. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'
|
|
BrowserOpen.Filter = "Floppy Images (*.img;*.ima)|*.img;*.ima|All files (*.*)|*.*"
|
|
BrowserOpen.ShowDialog()
|
|
MsgBox(BrowserOpen.FileName)
|
|
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
|
|
|
|
End Sub
|
|
End Class |