mirror of
https://github.com/SistemaRayoXP/Virtual-Mac.git
synced 2024-12-11 21:50:00 +00:00
62 lines
2.3 KiB
VB.net
62 lines
2.3 KiB
VB.net
|
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
|