mirror of
https://github.com/SistemaRayoXP/Virtual-Mac.git
synced 2024-06-29 10:29:27 +00:00
Delete frmOptions.vb
This commit is contained in:
parent
29789b8c74
commit
1fa3711ae5
|
@ -1,62 +0,0 @@
|
||||||
Option Strict Off
|
|
||||||
Option Explicit On
|
|
||||||
Friend Class frmOptions
|
|
||||||
Inherits System.Windows.Forms.Form
|
|
||||||
Function SelectFolder(Optional ByRef DialogTitle As String = "", Optional ByRef IntialPath As Object = Nothing) As String
|
|
||||||
Dim InitialPath As Object
|
|
||||||
|
|
||||||
On Error GoTo errFunction
|
|
||||||
|
|
||||||
Dim objShell As Object
|
|
||||||
Dim objFolder As Object
|
|
||||||
Dim Folder As Object
|
|
||||||
|
|
||||||
objShell = CreateObject("Shell.Application")
|
|
||||||
|
|
||||||
On Error Resume Next
|
|
||||||
|
|
||||||
'UPGRADE_WARNING: Couldn't resolve default property of object objShell.BrowseForFolder. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
|
|
||||||
objFolder = objShell.BrowseForFolder(0, DialogTitle, 0, )
|
|
||||||
|
|
||||||
'UPGRADE_WARNING: Couldn't resolve default property of object objFolder.Self. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
|
|
||||||
Folder = objFolder.Self
|
|
||||||
|
|
||||||
'UPGRADE_WARNING: Couldn't resolve default property of object Folder.Path. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
|
|
||||||
SelectFolder = Folder.Path
|
|
||||||
|
|
||||||
Exit Function
|
|
||||||
'Error Handler
|
|
||||||
errFunction:
|
|
||||||
MsgBox(Err.Description, MsgBoxStyle.Critical)
|
|
||||||
SelectFolder = vbNullString
|
|
||||||
|
|
||||||
End Function
|
|
||||||
|
|
||||||
Private Sub cmdCancel_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdCancel.Click
|
|
||||||
Me.Close()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub cmdOK_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdOK.Click
|
|
||||||
Me.Close()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub BrowseFolder_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BrowseFolder.Click
|
|
||||||
|
|
||||||
FolderBrowser.ShowDialog()
|
|
||||||
|
|
||||||
DefaultMacFolder.Text = FolderBrowser.SelectedPath
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub BrowseROM_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BrowseROM.Click
|
|
||||||
|
|
||||||
BrowseOpen.Filter = "ROM File (*.rom)|*.rom|All files (*.*)|*.*"
|
|
||||||
BrowseOpen.ShowDialog()
|
|
||||||
If BrowseOpen.FileName = "" Then
|
|
||||||
ROMFile.Text = "(No selected)"
|
|
||||||
Else
|
|
||||||
ROMFile.Text = BrowseOpen.FileName
|
|
||||||
End If
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
End Class
|
|
Loading…
Reference in New Issue
Block a user