mirror of
https://github.com/SistemaRayoXP/Virtual-Mac.git
synced 2024-12-04 07:52:10 +00:00
347 lines
10 KiB
Plaintext
347 lines
10 KiB
Plaintext
VERSION 5.00
|
|
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
|
|
Begin VB.Form frmOptions
|
|
BorderStyle = 3 'Fixed Dialog
|
|
Caption = "Options"
|
|
ClientHeight = 5850
|
|
ClientLeft = 45
|
|
ClientTop = 435
|
|
ClientWidth = 8565
|
|
BeginProperty Font
|
|
Name = "Tahoma"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
ForeColor = &H8000000F&
|
|
Icon = "frmOptions.frx":0000
|
|
KeyPreview = -1 'True
|
|
LinkTopic = "Form1"
|
|
MaxButton = 0 'False
|
|
MinButton = 0 'False
|
|
ScaleHeight = 5850
|
|
ScaleWidth = 8565
|
|
ShowInTaskbar = 0 'False
|
|
StartUpPosition = 3 'Windows Default
|
|
Tag = "1017"
|
|
Begin MSComDlg.CommonDialog Browse
|
|
Left = 4440
|
|
Top = 3600
|
|
_ExtentX = 847
|
|
_ExtentY = 847
|
|
_Version = 393216
|
|
End
|
|
Begin VB.Frame OptionsContainer
|
|
Caption = "Virtual Mac Options"
|
|
Height = 5535
|
|
Left = 120
|
|
TabIndex = 8
|
|
Top = 120
|
|
Width = 4215
|
|
Begin VB.ListBox OptionsList
|
|
Height = 5325
|
|
ItemData = "frmOptions.frx":000C
|
|
Left = 0
|
|
List = "frmOptions.frx":0016
|
|
TabIndex = 9
|
|
Top = 240
|
|
Width = 4215
|
|
End
|
|
End
|
|
Begin VB.CommandButton cmdOK
|
|
Caption = "OK"
|
|
Default = -1 'True
|
|
Height = 320
|
|
Left = 6045
|
|
TabIndex = 0
|
|
Tag = "1024"
|
|
Top = 5280
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton cmdCancel
|
|
Cancel = -1 'True
|
|
Caption = "Cancel"
|
|
Height = 320
|
|
Left = 7260
|
|
TabIndex = 1
|
|
Tag = "1023"
|
|
Top = 5280
|
|
Width = 1095
|
|
End
|
|
Begin VB.PictureBox picOptions
|
|
BorderStyle = 0 'None
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 3780
|
|
Index = 3
|
|
Left = -20000
|
|
ScaleHeight = 3840.968
|
|
ScaleMode = 0 'User
|
|
ScaleWidth = 5745.64
|
|
TabIndex = 3
|
|
TabStop = 0 'False
|
|
Top = 480
|
|
Width = 5685
|
|
Begin VB.Frame fraSample4
|
|
Caption = "Ejemplo 4"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 2022
|
|
Left = 505
|
|
TabIndex = 7
|
|
Tag = "1021"
|
|
Top = 502
|
|
Width = 2033
|
|
End
|
|
End
|
|
Begin VB.PictureBox picOptions
|
|
BorderStyle = 0 'None
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 3780
|
|
Index = 2
|
|
Left = -20000
|
|
ScaleHeight = 3840.968
|
|
ScaleMode = 0 'User
|
|
ScaleWidth = 5745.64
|
|
TabIndex = 5
|
|
TabStop = 0 'False
|
|
Top = 480
|
|
Width = 5685
|
|
Begin VB.Frame fraSample3
|
|
Caption = "Ejemplo 3"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 2022
|
|
Left = 406
|
|
TabIndex = 6
|
|
Tag = "1020"
|
|
Top = 403
|
|
Width = 2033
|
|
End
|
|
End
|
|
Begin VB.PictureBox picOptions
|
|
BorderStyle = 0 'None
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 3780
|
|
Index = 1
|
|
Left = -20000
|
|
ScaleHeight = 3840.968
|
|
ScaleMode = 0 'User
|
|
ScaleWidth = 5745.64
|
|
TabIndex = 2
|
|
TabStop = 0 'False
|
|
Top = 480
|
|
Width = 5685
|
|
Begin VB.Frame fraSample2
|
|
Caption = "Ejemplo 2"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 2022
|
|
Left = 307
|
|
TabIndex = 4
|
|
Tag = "1019"
|
|
Top = 305
|
|
Width = 2033
|
|
End
|
|
End
|
|
Begin VB.Frame Folders
|
|
Caption = "Folders"
|
|
Height = 3255
|
|
Left = 4560
|
|
TabIndex = 13
|
|
Top = 120
|
|
Visible = 0 'False
|
|
Width = 3735
|
|
Begin VB.CommandButton BrowseFolder
|
|
Caption = "Browse..."
|
|
Height = 320
|
|
Left = 120
|
|
TabIndex = 16
|
|
Top = 840
|
|
Width = 975
|
|
End
|
|
Begin VB.TextBox DefaultMacFolder
|
|
Height = 285
|
|
Left = 120
|
|
Locked = -1 'True
|
|
TabIndex = 14
|
|
Text = "C:\Documents and settings\Edson Armando\Mis documentos\My Macs"
|
|
Top = 480
|
|
Width = 3495
|
|
End
|
|
Begin VB.Label DefFolderTitle
|
|
Caption = "Default Mac Folder"
|
|
Height = 255
|
|
Left = 120
|
|
TabIndex = 15
|
|
Top = 240
|
|
Width = 1575
|
|
End
|
|
End
|
|
Begin VB.Frame ROM
|
|
Caption = "ROM"
|
|
Height = 3255
|
|
Left = 4560
|
|
TabIndex = 10
|
|
Top = 120
|
|
Visible = 0 'False
|
|
Width = 3735
|
|
Begin VB.TextBox ROMFile
|
|
Height = 285
|
|
Left = 120
|
|
Locked = -1 'True
|
|
TabIndex = 12
|
|
Top = 360
|
|
Width = 3735
|
|
End
|
|
Begin VB.CommandButton BrowseROM
|
|
Caption = "Browse..."
|
|
Height = 320
|
|
Left = 120
|
|
TabIndex = 11
|
|
Top = 720
|
|
Width = 1000
|
|
End
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmOptions"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Function SelectFolder(Optional DialogTitle As String, _
|
|
Optional IntialPath As Variant) As String
|
|
|
|
On Local Error GoTo errFunction
|
|
|
|
Dim objShell As Object
|
|
Dim objFolder As Object
|
|
Dim Folder As Object
|
|
|
|
Set objShell = CreateObject("Shell.Application")
|
|
|
|
On Error Resume Next
|
|
|
|
Set objFolder = objShell.BrowseForFolder( _
|
|
0, _
|
|
DialogTitle, _
|
|
0, _
|
|
InitialPath)
|
|
|
|
Set Folder = objFolder.Self
|
|
|
|
SelectFolder = Folder.Path
|
|
|
|
Exit Function
|
|
'Error Handler
|
|
errFunction:
|
|
MsgBox Err.Description, vbCritical
|
|
SelectFolder = vbNullString
|
|
|
|
End Function
|
|
|
|
Private Sub BrowseFolder_Click()
|
|
Dim Folder As String
|
|
|
|
Folder = SelectFolder
|
|
|
|
DefaultMacFolder.Text = Folder
|
|
|
|
End Sub
|
|
|
|
Private Sub BrowseROM_Click()
|
|
|
|
Browse.Filter = "ROM File (*.rom)|*.rom|All files (*.*)|*.*"
|
|
Browse.ShowOpen
|
|
If Browse.FileName = "" Then
|
|
ROMFile.Text = "(No selected)"
|
|
Else
|
|
ROMFile.Text = Browse.FileName
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub cmdCancel_Click()
|
|
Unload Me
|
|
End Sub
|
|
|
|
Private Sub cmdOK_Click()
|
|
Unload Me
|
|
End Sub
|
|
|
|
Private Sub Form_Load()
|
|
OptionsList.ListIndex = 0
|
|
|
|
If DefaultMacFolder.Text = "" Then
|
|
DefaultMacFolder.Text = "(No selected)"
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub OptionsList_Click()
|
|
|
|
If Browse.FileName = "" Then
|
|
ROMFile.Text = "(No selected)"
|
|
End If
|
|
|
|
Select Case OptionsList.ListIndex
|
|
|
|
Case 0
|
|
ROM.Visible = True
|
|
Folders.Visible = False
|
|
|
|
Case 1
|
|
ROM.Visible = False
|
|
Folders.Visible = True
|
|
|
|
End Select
|
|
|
|
End Sub
|