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

Commit

Permalink
avances pre 1.2
Browse files Browse the repository at this point in the history 
Ahora las casillas 'other' proporcionan espacio para tres llaves.
Preparacion para la 1.2.0.0.
  • Loading branch information
@Urfenox
Urfenox committed Sep 8, 2021
1 parent dc6e22f commit 663f7d8
Show file tree
Hide file tree
Showing 8 changed files with 1,642 additions and 88 deletions.
538 changes: 534 additions & 4 deletions DevToolMenu/Complementos.vb
View file

Large diffs are not rendered by default.

9 changes: 9 additions & 0 deletions DevToolMenu/DevToolMenu.vbproj
View file
Original file line number Diff line number Diff line change
Expand Up @@ -85,6 +85,12 @@
<DependentUpon>Main.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="MenuEditor.Designer.vb">
<DependentUpon>MenuEditor.vb</DependentUpon>
</Compile>
<Compile Include="MenuEditor.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
Expand All @@ -105,6 +111,9 @@
<EmbeddedResource Include="Main.resx">
<DependentUpon>Main.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="MenuEditor.resx">
<DependentUpon>MenuEditor.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
Expand Down
640 changes: 567 additions & 73 deletions DevToolMenu/Main.Designer.vb
View file

Large diffs are not rendered by default.

238 changes: 231 additions & 7 deletions DevToolMenu/Main.vb
View file
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
Public Class Main

Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CommonStart()
If Command() <> Nothing Then
ReadParameter(Command())
End If
Expand All @@ -10,10 +11,29 @@
LoadDB()
End Sub

Sub CommonStart()
Try
If My.Computer.FileSystem.DirectoryExists(DIRCommons) = False Then
My.Computer.FileSystem.CreateDirectory(DIRCommons)
End If
If My.Computer.FileSystem.DirectoryExists(DIRCommons & "\Menus") = False Then
My.Computer.FileSystem.CreateDirectory(DIRCommons & "\Menus")
End If
Catch ex As Exception
AddToLog("CommonStart", "Error: " & ex.Message, True)
End Try
End Sub

Private Sub Main_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
SaveDB()
End Sub

Private Sub btnMenuEditor_Click(sender As Object, e As EventArgs) Handles tb_btn_MenuEditor.Click
MenuEditor.Show()
MenuEditor.Focus()
End Sub

#Region "Comunes"
Private Sub tc_btn_Directory_Apply_Click(sender As Object, e As EventArgs) Handles tc_btn_Directory_Apply.Click
If cb_InsideAFolder_Dir_OpenIn.CheckState = CheckState.Checked Then
InsideFolder_DirCreate_OpenIn()
Expand All @@ -35,6 +55,32 @@
Else
InsideFolder_DirRemover_OpenIn()
End If
If cb_InsideAFolder_Dir_GetLocation.CheckState = CheckState.Checked Then
InsideFolder_DirCreate_GetLocation()
Else
InsideFolder_DirCreate_GetLocation(True)
End If
If cb_InsideAFolder_Dir_OpenIn_InOther.CheckState = CheckState.Checked Then
InsideFolder_DirCreate_OpenInOther()
If cb_InsideAFolder_gbDir_1.Checked Then
InsideFolder_DirCreate_OpenInOther(1)
Else
InsideFolder_DirRemover_OpenInOther(1)
End If
If cb_InsideAFolder_gbDir_2.Checked Then
InsideFolder_DirCreate_OpenInOther(2)
Else
InsideFolder_DirRemover_OpenInOther(2)
End If
If cb_InsideAFolder_gbDir_3.Checked Then
InsideFolder_DirCreate_OpenInOther(3)
Else
InsideFolder_DirRemover_OpenInOther(3)
End If
Else
InsideFolder_DirRemover_OpenInOther()
End If

If cb_SelectAFolder_Dir_OpenIn.CheckState = CheckState.Checked Then
SelectFolder_DirCreate_OpenIn()
If cb_SelectAFolder_Dir_OpenIn_InCommandPrompt.CheckState = CheckState.Checked Then
Expand All @@ -55,24 +101,38 @@
Else
SelectFolder_DirRemover_OpenIn()
End If
If cb_InsideAFolder_Dir_GetLocation.CheckState = CheckState.Checked Then
InsideFolder_DirCreate_GetLocation()
Else
InsideFolder_DirCreate_GetLocation(True)
End If
If cb_SelectAFolder_Dir_GetLocation.CheckState = CheckState.Checked Then
SelectFolder_DirCreate_GetLocation()
Else
SelectFolder_DirCreate_GetLocation(True)
End If
If cb_SelectAFolder_Dir_OpenIn_InOther.CheckState = CheckState.Checked Then
SelectFolder_DirCreate_OpenInOther()
If cb_SelectAFolder_gbDir_1.Checked Then
SelectFolder_DirCreate_OpenInOther(1)
Else
SelectFolder_DirRemover_OpenInOther(1)
End If
If cb_SelectAFolder_gbDir_2.Checked Then
SelectFolder_DirCreate_OpenInOther(2)
Else
SelectFolder_DirRemover_OpenInOther(2)
End If
If cb_SelectAFolder_gbDir_3.Checked Then
SelectFolder_DirCreate_OpenInOther(3)
Else
SelectFolder_DirRemover_OpenInOther(3)
End If
Else
SelectFolder_DirRemover_OpenInOther()
End If
End Sub
Private Sub tc_btn_File_Apply_Click(sender As Object, e As EventArgs) Handles tc_btn_File_Apply.Click
If cbFile_GetLocation.CheckState = CheckState.Checked Then
Create_GetLocation()
Else
Create_GetLocation(True)
End If

If cbFile_OpenWith.CheckState = CheckState.Checked Then
Create_OpenWith()
If cbFile_OpenWith_Notepad.CheckState = CheckState.Checked Then
Expand All @@ -83,9 +143,30 @@
Else
Remover_OpenWith()
End If

If cbFile_OpenWith_Other.Checked Then
Create_OpenWithOther()
If cbFile_gbFile_1.Checked Then
Create_OpenWithOther(1)
Else
Remover_OpenWithOther(1)
End If
If cbFile_gbFile_2.Checked Then
Create_OpenWithOther(2)
Else
Remover_OpenWithOther(2)
End If
If cbFile_gbFile_3.Checked Then
Create_OpenWithOther(3)
Else
Remover_OpenWithOther(3)
End If
Else
Remover_OpenWithOther()
End If
End Sub

Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles cbFile_OpenWith.CheckedChanged
Private Sub cbFile_OpenWith_CheckedChanged(sender As Object, e As EventArgs) Handles cbFile_OpenWith.CheckedChanged
If cbFile_OpenWith.CheckState = CheckState.Checked Then
cbFile_OpenWith_Notepad.Enabled = True
cbFile_OpenWith_Other.Enabled = True
Expand Down Expand Up @@ -122,4 +203,147 @@
cb_SelectAFolder_Dir_OpenIn_InOther.Enabled = False
End If
End Sub
#End Region

Private Sub cb_InsideAFolder_Dir_OpenIn_InOther_CheckedChanged(sender As Object, e As EventArgs) Handles cb_InsideAFolder_Dir_OpenIn_InOther.CheckedChanged
If cb_InsideAFolder_Dir_OpenIn_InOther.Checked Then
gbDir_InsideAFolder.Width = 740
gbDir_InsideAFolder.Location = New System.Drawing.Point(6, 6)
gbDir_InsideAFolder_gbOthers.Enabled = True
InsideFolder_Dir_OpenInOther = True
Else
gbDir_InsideAFolder.Width = 174
gbDir_InsideAFolder.Location = New System.Drawing.Point(289, 6)
gbDir_InsideAFolder_gbOthers.Enabled = False
InsideFolder_Dir_OpenInOther = False
End If
End Sub
Private Sub cb_SelectAFolder_Dir_OpenIn_InOther_CheckedChanged(sender As Object, e As EventArgs) Handles cb_SelectAFolder_Dir_OpenIn_InOther.CheckedChanged
If cb_SelectAFolder_Dir_OpenIn_InOther.Checked Then
gbDir_SelectingAFolder.Width = 740
gbDir_SelectingAFolder.Location = New System.Drawing.Point(6, 171)
gbDir_SelectingAFolder_gbOthers.Enabled = True
SelectFolder_Dir_OpenInOther = True
Else
gbDir_SelectingAFolder.Width = 174
gbDir_SelectingAFolder.Location = New System.Drawing.Point(289, 171)
gbDir_SelectingAFolder_gbOthers.Enabled = False
SelectFolder_Dir_OpenInOther = False
End If
End Sub
Private Sub cbFile_OpenWith_Other_CheckedChanged(sender As Object, e As EventArgs) Handles cbFile_OpenWith_Other.CheckedChanged
If cbFile_OpenWith_Other.Checked Then
gbFiles_FileSelect.Width = 740
gbFiles_FileSelect.Location = New System.Drawing.Point(6, 6)
gbFiles_FileSelect_gbOthers.Enabled = True
File_OpenWithOther = True
Else
gbFiles_FileSelect.Width = 174
gbFiles_FileSelect.Location = New System.Drawing.Point(289, 6)
gbFiles_FileSelect_gbOthers.Enabled = False
File_OpenWithOther = False
End If
End Sub

Private Sub cb_InsideAFolder_gbDir_1_CheckedChanged(sender As Object, e As EventArgs) Handles cb_InsideAFolder_gbDir_1.CheckedChanged
If cb_InsideAFolder_gbDir_1.Checked Then
lbl_InsideAFolder_gbDir_1.Enabled = True
tb_InsideAFolder_gbDir_1.Enabled = True
tb_InsideAFolder_gbDir_11.Enabled = True
Else
lbl_InsideAFolder_gbDir_1.Enabled = False
tb_InsideAFolder_gbDir_1.Enabled = False
tb_InsideAFolder_gbDir_11.Enabled = False
End If
End Sub
Private Sub cb_InsideAFolder_gbDir_2_CheckedChanged(sender As Object, e As EventArgs) Handles cb_InsideAFolder_gbDir_2.CheckedChanged
If cb_InsideAFolder_gbDir_2.Checked Then
lbl_InsideAFolder_gbDir_2.Enabled = True
tb_InsideAFolder_gbDir_2.Enabled = True
tb_InsideAFolder_gbDir_22.Enabled = True
Else
lbl_InsideAFolder_gbDir_2.Enabled = False
tb_InsideAFolder_gbDir_2.Enabled = False
tb_InsideAFolder_gbDir_22.Enabled = False
End If
End Sub
Private Sub cb_InsideAFolder_gbDir_3_CheckedChanged(sender As Object, e As EventArgs) Handles cb_InsideAFolder_gbDir_3.CheckedChanged
If cb_InsideAFolder_gbDir_3.Checked Then
lbl_InsideAFolder_gbDir_3.Enabled = True
tb_InsideAFolder_gbDir_3.Enabled = True
tb_InsideAFolder_gbDir_33.Enabled = True
Else
lbl_InsideAFolder_gbDir_3.Enabled = False
tb_InsideAFolder_gbDir_3.Enabled = False
tb_InsideAFolder_gbDir_33.Enabled = False
End If
End Sub

Private Sub cbFile_gbFile_1_CheckedChanged(sender As Object, e As EventArgs) Handles cbFile_gbFile_1.CheckedChanged
If cbFile_gbFile_1.Checked Then
lblFile_gbFile_1.Enabled = True
tbFile_gbFile_1.Enabled = True
tbFile_gbFile_11.Enabled = True
Else
lblFile_gbFile_1.Enabled = False
tbFile_gbFile_1.Enabled = False
tbFile_gbFile_11.Enabled = False
End If
End Sub
Private Sub cbFile_gbFile_2_CheckedChanged(sender As Object, e As EventArgs) Handles cbFile_gbFile_2.CheckedChanged
If cbFile_gbFile_2.Checked Then
lblFile_gbFile_2.Enabled = True
tbFile_gbFile_2.Enabled = True
tbFile_gbFile_22.Enabled = True
Else
lblFile_gbFile_2.Enabled = False
tbFile_gbFile_2.Enabled = False
tbFile_gbFile_22.Enabled = False
End If
End Sub
Private Sub cbFile_gbFile_3_CheckedChanged(sender As Object, e As EventArgs) Handles cbFile_gbFile_3.CheckedChanged
If cbFile_gbFile_3.Checked Then
lblFile_gbFile_3.Enabled = True
tbFile_gbFile_3.Enabled = True
tbFile_gbFile_33.Enabled = True
Else
lblFile_gbFile_3.Enabled = False
tbFile_gbFile_3.Enabled = False
tbFile_gbFile_33.Enabled = False
End If
End Sub

Private Sub cb_SelectAFolder_gbDir_1_CheckedChanged(sender As Object, e As EventArgs) Handles cb_SelectAFolder_gbDir_1.CheckedChanged
If cb_SelectAFolder_gbDir_1.Checked Then
lbl_SelectAFolder_gbDir_1.Enabled = True
tb_SelectAFolder_gbDir_1.Enabled = True
tb_SelectAFolder_gbDir_11.Enabled = True
Else
lbl_SelectAFolder_gbDir_1.Enabled = False
tb_SelectAFolder_gbDir_1.Enabled = False
tb_SelectAFolder_gbDir_11.Enabled = False
End If
End Sub
Private Sub cb_SelectAFolder_gbDir_2_CheckedChanged(sender As Object, e As EventArgs) Handles cb_SelectAFolder_gbDir_2.CheckedChanged
If cb_SelectAFolder_gbDir_2.Checked Then
lbl_SelectAFolder_gbDir_2.Enabled = True
tb_SelectAFolder_gbDir_2.Enabled = True
tb_SelectAFolder_gbDir_22.Enabled = True
Else
lbl_SelectAFolder_gbDir_2.Enabled = False
tb_SelectAFolder_gbDir_2.Enabled = False
tb_SelectAFolder_gbDir_22.Enabled = False
End If
End Sub
Private Sub cb_SelectAFolder_gbDir_3_CheckedChanged(sender As Object, e As EventArgs) Handles cb_SelectAFolder_gbDir_3.CheckedChanged
If cb_SelectAFolder_gbDir_3.Checked Then
lbl_SelectAFolder_gbDir_3.Enabled = True
tb_SelectAFolder_gbDir_3.Enabled = True
tb_SelectAFolder_gbDir_33.Enabled = True
Else
lbl_SelectAFolder_gbDir_3.Enabled = False
tb_SelectAFolder_gbDir_3.Enabled = False
tb_SelectAFolder_gbDir_33.Enabled = False
End If
End Sub
End Class
Loading

0 comments on commit 663f7d8

Please sign in to comment.