-
Notifications
You must be signed in to change notification settings - Fork 32
/
frmConfig.frm
147 lines (136 loc) · 4.62 KB
/
frmConfig.frm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
VERSION 5.00
Begin VB.Form frmConfig
Caption = "Config - VB6 To C#"
ClientHeight = 3270
ClientLeft = 60
ClientTop = 405
ClientWidth = 6900
LinkTopic = "Form1"
ScaleHeight = 3270
ScaleWidth = 6900
StartUpPosition = 3 'Windows Default
Begin VB.Frame fraConfig
Caption = "Configuration:"
Height = 3015
Left = 120
TabIndex = 0
Top = 120
Width = 6615
Begin VB.TextBox txtAssemblyName
Height = 285
Left = 1680
TabIndex = 6
Top = 1320
Width = 4215
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "Ca&ncel"
Height = 495
Left = 3720
TabIndex = 7
Top = 2400
Width = 1335
End
Begin VB.CommandButton cmdOK
Caption = "&OK"
Default = -1 'True
Height = 495
Left = 5160
TabIndex = 8
Top = 2400
Width = 1335
End
Begin VB.TextBox txtOutput
Height = 285
Left = 1680
TabIndex = 4
Top = 840
Width = 4215
End
Begin VB.TextBox txtVBPFile
Height = 285
Left = 1680
TabIndex = 2
Top = 480
Width = 4215
End
Begin VB.Label lblAssemblyName
Alignment = 1 'Right Justify
Caption = "Assembly Name:"
Height = 255
Left = 240
TabIndex = 5
Top = 1320
Width = 1335
End
Begin VB.Label lblOutput
Alignment = 1 'Right Justify
Caption = "Output Folder:"
Height = 255
Left = 240
TabIndex = 3
Top = 840
Width = 1335
End
Begin VB.Label lblSrc
Alignment = 1 'Right Justify
Caption = "Project File:"
Height = 255
Left = 240
TabIndex = 1
Top = 480
Width = 1335
End
End
End
Attribute VB_Name = "frmConfig"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
' Config form
Private Sub Form_Load()
modConfig.Hush = True
With Me
.txtVBPFile = modConfig.vbpFile
.txtOutput = modConfig.OutputFolder
.txtAssemblyName = modConfig.AssemblyName
End With
modConfig.Hush = False
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
modINI.INIWrite INISection_Settings, INIKey_VBPFile, txtVBPFile, INIFile
modINI.INIWrite INISection_Settings, INIKey_OutputFolder, txtOutput, INIFile
modINI.INIWrite INISection_Settings, INIKey_AssemblyName, txtAssemblyName, INIFile
modConfig.LoadSettings True
Unload Me
End Sub
Private Sub fraConfig_DblClick()
If MsgBox("Reset to default?", vbOKCancel, "Config Reset") = vbCancel Then Exit Sub
txtVBPFile = App.Path & "\prj.vbp"
txtOutput = App.Path & "\quick"
txtAssemblyName = "VB2CS"
End Sub
Private Sub txtOutput_Validate(ByRef Cancel As Boolean)
If Dir(txtOutput, vbDirectory) = "" Then
MsgBox "Output folder does not exist. Please create to prevent errors."
End If
End Sub
Private Sub txtVBPFile_Validate(ByRef Cancel As Boolean)
If Dir(txtVBPFile) = "" Then
MsgBox "Project file does not exist. Please give a valid project to prevent errors."
End If
End Sub
Private Sub txtAssemblyName_Validate(ByRef Cancel As Boolean)
If txtAssemblyName = "" Then
MsgBox "Please enter something for an assembly name."
End If
End Sub
Private Sub txtVBPFile_GotFocus(): txtVBPFile.SelStart = 0: txtVBPFile.SelLength = Len(txtVBPFile): End Sub
Private Sub txtOutput_GotFocus(): txtOutput.SelStart = 0: txtOutput.SelLength = Len(txtOutput): End Sub
Private Sub txtAssemblyName_GotFocus(): txtAssemblyName.SelStart = 0: txtAssemblyName.SelLength = Len(txtAssemblyName): End Sub