mirror of
https://github.com/SistemaRayoXP/Virtual-Mac.git
synced 2024-06-17 16:29:33 +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