Skip to content
This repository was archived by the owner on Jan 13, 2023. It is now read-only.

Commit 663f7d8

Browse files
UrfenoxUrfenox
committed
avances pre 1.2
Ahora las casillas 'other' proporcionan espacio para tres llaves. Preparacion para la 1.2.0.0.
1 parent dc6e22f commit 663f7d8

File tree

8 files changed

+1642
-88
lines changed

8 files changed

+1642
-88
lines changed

‎DevToolMenu/Complementos.vb‎

Lines changed: 534 additions & 4 deletions
Large diffs are not rendered by default.

‎DevToolMenu/DevToolMenu.vbproj‎

Lines changed: 9 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -85,6 +85,12 @@
8585
<DependentUpon>Main.vb</DependentUpon>
8686
<SubType>Form</SubType>
8787
</Compile>
88+
<Compile Include="MenuEditor.Designer.vb">
89+
<DependentUpon>MenuEditor.vb</DependentUpon>
90+
</Compile>
91+
<Compile Include="MenuEditor.vb">
92+
<SubType>Form</SubType>
93+
</Compile>
8894
<Compile Include="My Project\AssemblyInfo.vb" />
8995
<Compile Include="My Project\Application.Designer.vb">
9096
<AutoGen>True</AutoGen>
@@ -105,6 +111,9 @@
105111
<EmbeddedResource Include="Main.resx">
106112
<DependentUpon>Main.vb</DependentUpon>
107113
</EmbeddedResource>
114+
<EmbeddedResource Include="MenuEditor.resx">
115+
<DependentUpon>MenuEditor.vb</DependentUpon>
116+
</EmbeddedResource>
108117
<EmbeddedResource Include="My Project\Resources.resx">
109118
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
110119
<LastGenOutput>Resources.Designer.vb</LastGenOutput>

‎DevToolMenu/Main.Designer.vb‎

Lines changed: 567 additions & 73 deletions
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

‎DevToolMenu/Main.vb‎

Lines changed: 231 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
Public Class Main
22

33
Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
4+
CommonStart()
45
If Command() <> Nothing Then
56
ReadParameter(Command())
67
End If
@@ -10,10 +11,29 @@
1011
LoadDB()
1112
End Sub
1213

14+
Sub CommonStart()
15+
Try
16+
If My.Computer.FileSystem.DirectoryExists(DIRCommons) = False Then
17+
My.Computer.FileSystem.CreateDirectory(DIRCommons)
18+
End If
19+
If My.Computer.FileSystem.DirectoryExists(DIRCommons & "\Menus") = False Then
20+
My.Computer.FileSystem.CreateDirectory(DIRCommons & "\Menus")
21+
End If
22+
Catch ex As Exception
23+
AddToLog("CommonStart", "Error: " & ex.Message, True)
24+
End Try
25+
End Sub
26+
1327
Private Sub Main_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
1428
SaveDB()
1529
End Sub
1630

31+
Private Sub btnMenuEditor_Click(sender As Object, e As EventArgs) Handles tb_btn_MenuEditor.Click
32+
MenuEditor.Show()
33+
MenuEditor.Focus()
34+
End Sub
35+
36+
#Region "Comunes"
1737
Private Sub tc_btn_Directory_Apply_Click(sender As Object, e As EventArgs) Handles tc_btn_Directory_Apply.Click
1838
If cb_InsideAFolder_Dir_OpenIn.CheckState = CheckState.Checked Then
1939
InsideFolder_DirCreate_OpenIn()
@@ -35,6 +55,32 @@
3555
Else
3656
InsideFolder_DirRemover_OpenIn()
3757
End If
58+
If cb_InsideAFolder_Dir_GetLocation.CheckState = CheckState.Checked Then
59+
InsideFolder_DirCreate_GetLocation()
60+
Else
61+
InsideFolder_DirCreate_GetLocation(True)
62+
End If
63+
If cb_InsideAFolder_Dir_OpenIn_InOther.CheckState = CheckState.Checked Then
64+
InsideFolder_DirCreate_OpenInOther()
65+
If cb_InsideAFolder_gbDir_1.Checked Then
66+
InsideFolder_DirCreate_OpenInOther(1)
67+
Else
68+
InsideFolder_DirRemover_OpenInOther(1)
69+
End If
70+
If cb_InsideAFolder_gbDir_2.Checked Then
71+
InsideFolder_DirCreate_OpenInOther(2)
72+
Else
73+
InsideFolder_DirRemover_OpenInOther(2)
74+
End If
75+
If cb_InsideAFolder_gbDir_3.Checked Then
76+
InsideFolder_DirCreate_OpenInOther(3)
77+
Else
78+
InsideFolder_DirRemover_OpenInOther(3)
79+
End If
80+
Else
81+
InsideFolder_DirRemover_OpenInOther()
82+
End If
83+
3884
If cb_SelectAFolder_Dir_OpenIn.CheckState = CheckState.Checked Then
3985
SelectFolder_DirCreate_OpenIn()
4086
If cb_SelectAFolder_Dir_OpenIn_InCommandPrompt.CheckState = CheckState.Checked Then
@@ -55,24 +101,38 @@
55101
Else
56102
SelectFolder_DirRemover_OpenIn()
57103
End If
58-
If cb_InsideAFolder_Dir_GetLocation.CheckState = CheckState.Checked Then
59-
InsideFolder_DirCreate_GetLocation()
60-
Else
61-
InsideFolder_DirCreate_GetLocation(True)
62-
End If
63104
If cb_SelectAFolder_Dir_GetLocation.CheckState = CheckState.Checked Then
64105
SelectFolder_DirCreate_GetLocation()
65106
Else
66107
SelectFolder_DirCreate_GetLocation(True)
67108
End If
109+
If cb_SelectAFolder_Dir_OpenIn_InOther.CheckState = CheckState.Checked Then
110+
SelectFolder_DirCreate_OpenInOther()
111+
If cb_SelectAFolder_gbDir_1.Checked Then
112+
SelectFolder_DirCreate_OpenInOther(1)
113+
Else
114+
SelectFolder_DirRemover_OpenInOther(1)
115+
End If
116+
If cb_SelectAFolder_gbDir_2.Checked Then
117+
SelectFolder_DirCreate_OpenInOther(2)
118+
Else
119+
SelectFolder_DirRemover_OpenInOther(2)
120+
End If
121+
If cb_SelectAFolder_gbDir_3.Checked Then
122+
SelectFolder_DirCreate_OpenInOther(3)
123+
Else
124+
SelectFolder_DirRemover_OpenInOther(3)
125+
End If
126+
Else
127+
SelectFolder_DirRemover_OpenInOther()
128+
End If
68129
End Sub
69130
Private Sub tc_btn_File_Apply_Click(sender As Object, e As EventArgs) Handles tc_btn_File_Apply.Click
70131
If cbFile_GetLocation.CheckState = CheckState.Checked Then
71132
Create_GetLocation()
72133
Else
73134
Create_GetLocation(True)
74135
End If
75-
76136
If cbFile_OpenWith.CheckState = CheckState.Checked Then
77137
Create_OpenWith()
78138
If cbFile_OpenWith_Notepad.CheckState = CheckState.Checked Then
@@ -83,9 +143,30 @@
83143
Else
84144
Remover_OpenWith()
85145
End If
146+
147+
If cbFile_OpenWith_Other.Checked Then
148+
Create_OpenWithOther()
149+
If cbFile_gbFile_1.Checked Then
150+
Create_OpenWithOther(1)
151+
Else
152+
Remover_OpenWithOther(1)
153+
End If
154+
If cbFile_gbFile_2.Checked Then
155+
Create_OpenWithOther(2)
156+
Else
157+
Remover_OpenWithOther(2)
158+
End If
159+
If cbFile_gbFile_3.Checked Then
160+
Create_OpenWithOther(3)
161+
Else
162+
Remover_OpenWithOther(3)
163+
End If
164+
Else
165+
Remover_OpenWithOther()
166+
End If
86167
End Sub
87168

88-
Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles cbFile_OpenWith.CheckedChanged
169+
Private Sub cbFile_OpenWith_CheckedChanged(sender As Object, e As EventArgs) Handles cbFile_OpenWith.CheckedChanged
89170
If cbFile_OpenWith.CheckState = CheckState.Checked Then
90171
cbFile_OpenWith_Notepad.Enabled = True
91172
cbFile_OpenWith_Other.Enabled = True
@@ -122,4 +203,147 @@
122203
cb_SelectAFolder_Dir_OpenIn_InOther.Enabled = False
123204
End If
124205
End Sub
206+
#End Region
207+
208+
Private Sub cb_InsideAFolder_Dir_OpenIn_InOther_CheckedChanged(sender As Object, e As EventArgs) Handles cb_InsideAFolder_Dir_OpenIn_InOther.CheckedChanged
209+
If cb_InsideAFolder_Dir_OpenIn_InOther.Checked Then
210+
gbDir_InsideAFolder.Width = 740
211+
gbDir_InsideAFolder.Location = New System.Drawing.Point(6, 6)
212+
gbDir_InsideAFolder_gbOthers.Enabled = True
213+
InsideFolder_Dir_OpenInOther = True
214+
Else
215+
gbDir_InsideAFolder.Width = 174
216+
gbDir_InsideAFolder.Location = New System.Drawing.Point(289, 6)
217+
gbDir_InsideAFolder_gbOthers.Enabled = False
218+
InsideFolder_Dir_OpenInOther = False
219+
End If
220+
End Sub
221+
Private Sub cb_SelectAFolder_Dir_OpenIn_InOther_CheckedChanged(sender As Object, e As EventArgs) Handles cb_SelectAFolder_Dir_OpenIn_InOther.CheckedChanged
222+
If cb_SelectAFolder_Dir_OpenIn_InOther.Checked Then
223+
gbDir_SelectingAFolder.Width = 740
224+
gbDir_SelectingAFolder.Location = New System.Drawing.Point(6, 171)
225+
gbDir_SelectingAFolder_gbOthers.Enabled = True
226+
SelectFolder_Dir_OpenInOther = True
227+
Else
228+
gbDir_SelectingAFolder.Width = 174
229+
gbDir_SelectingAFolder.Location = New System.Drawing.Point(289, 171)
230+
gbDir_SelectingAFolder_gbOthers.Enabled = False
231+
SelectFolder_Dir_OpenInOther = False
232+
End If
233+
End Sub
234+
Private Sub cbFile_OpenWith_Other_CheckedChanged(sender As Object, e As EventArgs) Handles cbFile_OpenWith_Other.CheckedChanged
235+
If cbFile_OpenWith_Other.Checked Then
236+
gbFiles_FileSelect.Width = 740
237+
gbFiles_FileSelect.Location = New System.Drawing.Point(6, 6)
238+
gbFiles_FileSelect_gbOthers.Enabled = True
239+
File_OpenWithOther = True
240+
Else
241+
gbFiles_FileSelect.Width = 174
242+
gbFiles_FileSelect.Location = New System.Drawing.Point(289, 6)
243+
gbFiles_FileSelect_gbOthers.Enabled = False
244+
File_OpenWithOther = False
245+
End If
246+
End Sub
247+
248+
Private Sub cb_InsideAFolder_gbDir_1_CheckedChanged(sender As Object, e As EventArgs) Handles cb_InsideAFolder_gbDir_1.CheckedChanged
249+
If cb_InsideAFolder_gbDir_1.Checked Then
250+
lbl_InsideAFolder_gbDir_1.Enabled = True
251+
tb_InsideAFolder_gbDir_1.Enabled = True
252+
tb_InsideAFolder_gbDir_11.Enabled = True
253+
Else
254+
lbl_InsideAFolder_gbDir_1.Enabled = False
255+
tb_InsideAFolder_gbDir_1.Enabled = False
256+
tb_InsideAFolder_gbDir_11.Enabled = False
257+
End If
258+
End Sub
259+
Private Sub cb_InsideAFolder_gbDir_2_CheckedChanged(sender As Object, e As EventArgs) Handles cb_InsideAFolder_gbDir_2.CheckedChanged
260+
If cb_InsideAFolder_gbDir_2.Checked Then
261+
lbl_InsideAFolder_gbDir_2.Enabled = True
262+
tb_InsideAFolder_gbDir_2.Enabled = True
263+
tb_InsideAFolder_gbDir_22.Enabled = True
264+
Else
265+
lbl_InsideAFolder_gbDir_2.Enabled = False
266+
tb_InsideAFolder_gbDir_2.Enabled = False
267+
tb_InsideAFolder_gbDir_22.Enabled = False
268+
End If
269+
End Sub
270+
Private Sub cb_InsideAFolder_gbDir_3_CheckedChanged(sender As Object, e As EventArgs) Handles cb_InsideAFolder_gbDir_3.CheckedChanged
271+
If cb_InsideAFolder_gbDir_3.Checked Then
272+
lbl_InsideAFolder_gbDir_3.Enabled = True
273+
tb_InsideAFolder_gbDir_3.Enabled = True
274+
tb_InsideAFolder_gbDir_33.Enabled = True
275+
Else
276+
lbl_InsideAFolder_gbDir_3.Enabled = False
277+
tb_InsideAFolder_gbDir_3.Enabled = False
278+
tb_InsideAFolder_gbDir_33.Enabled = False
279+
End If
280+
End Sub
281+
282+
Private Sub cbFile_gbFile_1_CheckedChanged(sender As Object, e As EventArgs) Handles cbFile_gbFile_1.CheckedChanged
283+
If cbFile_gbFile_1.Checked Then
284+
lblFile_gbFile_1.Enabled = True
285+
tbFile_gbFile_1.Enabled = True
286+
tbFile_gbFile_11.Enabled = True
287+
Else
288+
lblFile_gbFile_1.Enabled = False
289+
tbFile_gbFile_1.Enabled = False
290+
tbFile_gbFile_11.Enabled = False
291+
End If
292+
End Sub
293+
Private Sub cbFile_gbFile_2_CheckedChanged(sender As Object, e As EventArgs) Handles cbFile_gbFile_2.CheckedChanged
294+
If cbFile_gbFile_2.Checked Then
295+
lblFile_gbFile_2.Enabled = True
296+
tbFile_gbFile_2.Enabled = True
297+
tbFile_gbFile_22.Enabled = True
298+
Else
299+
lblFile_gbFile_2.Enabled = False
300+
tbFile_gbFile_2.Enabled = False
301+
tbFile_gbFile_22.Enabled = False
302+
End If
303+
End Sub
304+
Private Sub cbFile_gbFile_3_CheckedChanged(sender As Object, e As EventArgs) Handles cbFile_gbFile_3.CheckedChanged
305+
If cbFile_gbFile_3.Checked Then
306+
lblFile_gbFile_3.Enabled = True
307+
tbFile_gbFile_3.Enabled = True
308+
tbFile_gbFile_33.Enabled = True
309+
Else
310+
lblFile_gbFile_3.Enabled = False
311+
tbFile_gbFile_3.Enabled = False
312+
tbFile_gbFile_33.Enabled = False
313+
End If
314+
End Sub
315+
316+
Private Sub cb_SelectAFolder_gbDir_1_CheckedChanged(sender As Object, e As EventArgs) Handles cb_SelectAFolder_gbDir_1.CheckedChanged
317+
If cb_SelectAFolder_gbDir_1.Checked Then
318+
lbl_SelectAFolder_gbDir_1.Enabled = True
319+
tb_SelectAFolder_gbDir_1.Enabled = True
320+
tb_SelectAFolder_gbDir_11.Enabled = True
321+
Else
322+
lbl_SelectAFolder_gbDir_1.Enabled = False
323+
tb_SelectAFolder_gbDir_1.Enabled = False
324+
tb_SelectAFolder_gbDir_11.Enabled = False
325+
End If
326+
End Sub
327+
Private Sub cb_SelectAFolder_gbDir_2_CheckedChanged(sender As Object, e As EventArgs) Handles cb_SelectAFolder_gbDir_2.CheckedChanged
328+
If cb_SelectAFolder_gbDir_2.Checked Then
329+
lbl_SelectAFolder_gbDir_2.Enabled = True
330+
tb_SelectAFolder_gbDir_2.Enabled = True
331+
tb_SelectAFolder_gbDir_22.Enabled = True
332+
Else
333+
lbl_SelectAFolder_gbDir_2.Enabled = False
334+
tb_SelectAFolder_gbDir_2.Enabled = False
335+
tb_SelectAFolder_gbDir_22.Enabled = False
336+
End If
337+
End Sub
338+
Private Sub cb_SelectAFolder_gbDir_3_CheckedChanged(sender As Object, e As EventArgs) Handles cb_SelectAFolder_gbDir_3.CheckedChanged
339+
If cb_SelectAFolder_gbDir_3.Checked Then
340+
lbl_SelectAFolder_gbDir_3.Enabled = True
341+
tb_SelectAFolder_gbDir_3.Enabled = True
342+
tb_SelectAFolder_gbDir_33.Enabled = True
343+
Else
344+
lbl_SelectAFolder_gbDir_3.Enabled = False
345+
tb_SelectAFolder_gbDir_3.Enabled = False
346+
tb_SelectAFolder_gbDir_33.Enabled = False
347+
End If
348+
End Sub
125349
End Class

0 commit comments

Comments
 (0)