From 663f7d8cc9a5949b08ba798ed3e08724029315cd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Cristopher=20C=C3=A1ceres?= Date: Wed, 8 Sep 2021 14:17:49 -0300 Subject: [PATCH] avances pre 1.2 Ahora las casillas 'other' proporcionan espacio para tres llaves. Preparacion para la 1.2.0.0. --- DevToolMenu/Complementos.vb | 538 ++++++++++++++++++++- DevToolMenu/DevToolMenu.vbproj | 9 + DevToolMenu/Main.Designer.vb | 640 ++++++++++++++++++++++--- DevToolMenu/Main.vb | 238 ++++++++- DevToolMenu/MenuEditor.Designer.vb | 114 +++++ DevToolMenu/MenuEditor.resx | 120 +++++ DevToolMenu/MenuEditor.vb | 63 +++ DevToolMenu/My Project/AssemblyInfo.vb | 8 +- 8 files changed, 1642 insertions(+), 88 deletions(-) create mode 100644 DevToolMenu/MenuEditor.Designer.vb create mode 100644 DevToolMenu/MenuEditor.resx create mode 100644 DevToolMenu/MenuEditor.vb diff --git a/DevToolMenu/Complementos.vb b/DevToolMenu/Complementos.vb index 81111e0..9754f5a 100644 --- a/DevToolMenu/Complementos.vb +++ b/DevToolMenu/Complementos.vb @@ -1,5 +1,6 @@ Imports Microsoft.Win32 Module Complementos + Public DIRCommons As String = "C:\Users\" & Environment.UserName & "\AppData\Local\CRZ_Labs\DevToolMenu" #Region "Directorios" Sub InsideFolder_DirCreate_OpenIn(Optional ByVal opt As SByte = 0) @@ -583,6 +584,390 @@ Module Complementos AddToLog("Remover_OpenWith", "Error: " & ex.Message, True) End Try End Sub +#End Region + +#Region "Others" +#Region "Dir" + Sub InsideFolder_DirCreate_OpenInOther(Optional ByVal opt As SByte = 0) + Try + + Dim Ruta1 As String = "SOFTWARE\\Classes\\Directory\\Background\\shell\\OI" + Dim Ruta2 As String = Ruta1 & "\\shell" + + If opt = 0 Then + InsideFolder_Dir_OpenInOther = True + End If + + If opt = 1 Then + Dim RegeditWriter1 As RegistryKey + RegeditWriter1 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OI_1", True) + If RegeditWriter1 Is Nothing Then + Registry.CurrentUser.CreateSubKey(Ruta2 & "\\OI_1") + RegeditWriter1 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OI_1", True) + End If + RegeditWriter1.SetValue("", Main.tb_InsideAFolder_gbDir_1.Text, RegistryValueKind.String) + RegeditWriter1.SetValue("Icon", Application.ExecutablePath, RegistryValueKind.String) 'Temporalmente hasta encontrar una forma de poner un icono + + Dim RegeditWriter11 As RegistryKey + RegeditWriter11 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OI_1\\command", True) + If RegeditWriter11 Is Nothing Then + Registry.CurrentUser.CreateSubKey(Ruta2 & "\\OI_1\\command") + RegeditWriter11 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OI_1\\command", True) + End If + RegeditWriter11.SetValue("", Main.tbFile_gbFile_11.Text, RegistryValueKind.String) + InsideFolder_Dir_OpenIn1 = True + End If + + If opt = 2 Then + Dim RegeditWriter2 As RegistryKey + RegeditWriter2 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OI_2", True) + If RegeditWriter2 Is Nothing Then + Registry.CurrentUser.CreateSubKey(Ruta2 & "\\OI_2") + RegeditWriter2 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OI_2", True) + End If + RegeditWriter2.SetValue("", Main.tb_InsideAFolder_gbDir_2.Text, RegistryValueKind.String) + RegeditWriter2.SetValue("Icon", Application.ExecutablePath, RegistryValueKind.String) 'Temporalmente hasta encontrar una forma de poner un icono + + Dim RegeditWriter22 As RegistryKey + RegeditWriter22 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OI_2\\command", True) + If RegeditWriter22 Is Nothing Then + Registry.CurrentUser.CreateSubKey(Ruta2 & "\\OI_2\\command") + RegeditWriter22 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OI_2\\command", True) + End If + RegeditWriter22.SetValue("", Main.tbFile_gbFile_22.Text, RegistryValueKind.String) + InsideFolder_Dir_OpenIn2 = True + End If + + If opt = 3 Then + Dim RegeditWriter3 As RegistryKey + RegeditWriter3 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OI_2", True) + If RegeditWriter3 Is Nothing Then + Registry.CurrentUser.CreateSubKey(Ruta2 & "\\OI_2") + RegeditWriter3 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OI_2", True) + End If + RegeditWriter3.SetValue("", Main.tb_InsideAFolder_gbDir_3.Text, RegistryValueKind.String) + RegeditWriter3.SetValue("Icon", Application.ExecutablePath, RegistryValueKind.String) 'Temporalmente hasta encontrar una forma de poner un icono + + Dim RegeditWriter33 As RegistryKey + RegeditWriter33 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OI_2\\command", True) + If RegeditWriter33 Is Nothing Then + Registry.CurrentUser.CreateSubKey(Ruta2 & "\\OI_2\\command") + RegeditWriter33 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OI_2\\command", True) + End If + RegeditWriter33.SetValue("", Main.tbFile_gbFile_33.Text, RegistryValueKind.String) + InsideFolder_Dir_OpenIn3 = True + End If + + Catch ex As Exception + 'MsgBox("Error al crear la llave." & vbCrLf & ex.Message) + AddToLog("InsideFolder_DirCreate_OpenIn", "Error: " & ex.Message, True) + End Try + End Sub + Sub InsideFolder_DirRemover_OpenInOther(Optional ByVal opt As SByte = 0) + Try + 'SOFTWARE\Classes\Directory\Background\shell + Dim Ruta1 As String = "SOFTWARE\\Classes\\Directory\\Background\\shell" + Dim Ruta2 As String = Ruta1 & "\\OI\\shell" + + If opt = 0 Then + InsideFolder_Dir_OpenInOther = False + End If + + If opt = 1 Then + If InsideFolder_Dir_OpenIn1 = True Then + Dim RegeditWriter1 As RegistryKey + RegeditWriter1 = Registry.CurrentUser.OpenSubKey(Ruta2, True) + If RegeditWriter1 Is Nothing Then + Exit Sub + End If + RegeditWriter1.DeleteSubKeyTree("OI_1") + InsideFolder_Dir_OpenIn1 = False + End If + End If + + If opt = 2 Then + If InsideFolder_Dir_OpenIn2 = True Then + Dim RegeditWriter3 As RegistryKey + RegeditWriter3 = Registry.CurrentUser.OpenSubKey(Ruta2, True) + If RegeditWriter3 Is Nothing Then + Exit Sub + End If + RegeditWriter3.DeleteSubKeyTree("OI_2") + InsideFolder_Dir_OpenIn2 = False + End If + End If + + If opt = 3 Then + If InsideFolder_Dir_OpenIn3 = True Then + Dim RegeditWriter5 As RegistryKey + RegeditWriter5 = Registry.CurrentUser.OpenSubKey(Ruta2, True) + If RegeditWriter5 Is Nothing Then + Exit Sub + End If + RegeditWriter5.DeleteSubKeyTree("OI_3") + InsideFolder_Dir_OpenIn3 = False + End If + End If + Catch ex As Exception + 'MsgBox("Error al crear la llave." & vbCrLf & ex.Message) + AddToLog("InsideFolder_DirRemover_OpenIn", "Error: " & ex.Message, True) + End Try + End Sub + + Sub SelectFolder_DirCreate_OpenInOther(Optional ByVal opt As SByte = 0) + Try + + Dim Ruta1 As String = "SOFTWARE\\Classes\\Directory\\shell\\OI" + Dim Ruta2 As String = Ruta1 & "\\shell" + + If opt = 0 Then + SelectFolder_Dir_OpenInOther = True + End If + + If opt = 1 Then + Dim RegeditWriter1 As RegistryKey + RegeditWriter1 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OI_1", True) + If RegeditWriter1 Is Nothing Then + Registry.CurrentUser.CreateSubKey(Ruta2 & "\\OI_1") + RegeditWriter1 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OI_1", True) + End If + RegeditWriter1.SetValue("", Main.tb_SelectAFolder_gbDir_1.Text, RegistryValueKind.String) + RegeditWriter1.SetValue("Icon", Application.ExecutablePath, RegistryValueKind.String) 'Temporalmente hasta encontrar una forma de poner un icono + + Dim RegeditWriter11 As RegistryKey + RegeditWriter11 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OI_1\\command", True) + If RegeditWriter11 Is Nothing Then + Registry.CurrentUser.CreateSubKey(Ruta2 & "\\OI_1\\command") + RegeditWriter11 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OI_1\\command", True) + End If + RegeditWriter11.SetValue("", Main.tb_SelectAFolder_gbDir_11.Text, RegistryValueKind.String) + SelectFolder_Dir_OpenIn1 = True + End If + + If opt = 2 Then + Dim RegeditWriter2 As RegistryKey + RegeditWriter2 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OI_2", True) + If RegeditWriter2 Is Nothing Then + Registry.CurrentUser.CreateSubKey(Ruta2 & "\\OI_2") + RegeditWriter2 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OI_2", True) + End If + RegeditWriter2.SetValue("", Main.tb_SelectAFolder_gbDir_2.Text, RegistryValueKind.String) + RegeditWriter2.SetValue("Icon", Application.ExecutablePath, RegistryValueKind.String) 'Temporalmente hasta encontrar una forma de poner un icono + + Dim RegeditWriter22 As RegistryKey + RegeditWriter22 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OI_2\\command", True) + If RegeditWriter22 Is Nothing Then + Registry.CurrentUser.CreateSubKey(Ruta2 & "\\OI_2\\command") + RegeditWriter22 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OI_2\\command", True) + End If + RegeditWriter22.SetValue("", Main.tb_SelectAFolder_gbDir_22.Text, RegistryValueKind.String) + SelectFolder_Dir_OpenIn2 = True + End If + + If opt = 3 Then + Dim RegeditWriter3 As RegistryKey + RegeditWriter3 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OI_3", True) + If RegeditWriter3 Is Nothing Then + Registry.CurrentUser.CreateSubKey(Ruta2 & "\\OI_3") + RegeditWriter3 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OI_3", True) + End If + RegeditWriter3.SetValue("", Main.tb_SelectAFolder_gbDir_3.Text, RegistryValueKind.String) + RegeditWriter3.SetValue("Icon", Application.ExecutablePath, RegistryValueKind.String) 'Temporalmente hasta encontrar una forma de poner un icono + + Dim RegeditWriter33 As RegistryKey + RegeditWriter33 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OI_3\\command", True) + If RegeditWriter33 Is Nothing Then + Registry.CurrentUser.CreateSubKey(Ruta2 & "\\OI_3\\command") + RegeditWriter33 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OI_3\\command", True) + End If + RegeditWriter33.SetValue("", Main.tb_SelectAFolder_gbDir_33.Text, RegistryValueKind.String) + SelectFolder_Dir_OpenIn3 = True + End If + Catch ex As Exception + 'MsgBox("Error al crear la llave." & vbCrLf & ex.Message) + AddToLog("SelectFolder_DirCreate_OpenIn", "Error: " & ex.Message, True) + End Try + End Sub + Sub SelectFolder_DirRemover_OpenInOther(Optional ByVal opt As SByte = 0) + Try + 'SOFTWARE\Classes\Directory\shell + Dim Ruta1 As String = "SOFTWARE\\Classes\\Directory\\shell" + Dim Ruta2 As String = Ruta1 & "\\OI\\shell" + + If opt = 0 Then + SelectFolder_Dir_OpenInOther = False + End If + + If opt = 1 Then + If SelectFolder_Dir_OpenIn1 = True Then + Dim RegeditWriter1 As RegistryKey + RegeditWriter1 = Registry.CurrentUser.OpenSubKey(Ruta2, True) + If RegeditWriter1 Is Nothing Then + Exit Sub + End If + RegeditWriter1.DeleteSubKeyTree("OI_1") + SelectFolder_Dir_OpenIn1 = False + End If + End If + + If opt = 2 Then + If SelectFolder_Dir_OpenIn2 = True Then + Dim RegeditWriter2 As RegistryKey + RegeditWriter2 = Registry.CurrentUser.OpenSubKey(Ruta2, True) + If RegeditWriter2 Is Nothing Then + Exit Sub + End If + RegeditWriter2.DeleteSubKeyTree("OI_2") + SelectFolder_Dir_OpenIn2 = False + End If + End If + + If opt = 3 Then + If SelectFolder_Dir_OpenIn3 = True Then + Dim RegeditWriter3 As RegistryKey + RegeditWriter3 = Registry.CurrentUser.OpenSubKey(Ruta2, True) + If RegeditWriter3 Is Nothing Then + Exit Sub + End If + RegeditWriter3.DeleteSubKeyTree("OI_3") + SelectFolder_Dir_OpenIn3 = False + End If + End If + Catch ex As Exception + 'MsgBox("Error al crear la llave." & vbCrLf & ex.Message) + AddToLog("SelectFolder_DirRemover_OpenIn", "Error: " & ex.Message, True) + End Try + End Sub +#End Region +#Region "File" + Sub Create_OpenWithOther(Optional ByVal opt As SByte = 0) + Try + Dim Ruta1 As String = "SOFTWARE\\Classes\\*\\shell\\OW" + Dim Ruta2 As String = Ruta1 & "\\shell" + If opt = 0 Then + File_OpenWithOther = True + End If + If opt = 1 Then + Dim RegeditWriter1 As RegistryKey + RegeditWriter1 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OW_1", True) + If RegeditWriter1 Is Nothing Then + Registry.CurrentUser.CreateSubKey(Ruta2 & "\\OW_1") + RegeditWriter1 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OW_1", True) + End If + RegeditWriter1.SetValue("", Main.tbFile_gbFile_1.Text, RegistryValueKind.String) + RegeditWriter1.SetValue("Icon", Application.ExecutablePath, RegistryValueKind.String) 'Temporalmente hasta encontrar una forma de poner un icono + + Dim RegeditWriter11 As RegistryKey + RegeditWriter11 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OW_1\\command", True) + If RegeditWriter11 Is Nothing Then + Registry.CurrentUser.CreateSubKey(Ruta2 & "\\OW_1\\command") + RegeditWriter11 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OW_1\\command", True) + End If + RegeditWriter11.SetValue("", Main.tbFile_gbFile_11.Text, RegistryValueKind.String) + File_OpenWith_In1 = True + End If + + If opt = 2 Then + Dim RegeditWriter2 As RegistryKey + RegeditWriter2 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OW_2", True) + If RegeditWriter2 Is Nothing Then + Registry.CurrentUser.CreateSubKey(Ruta2 & "\\OW_2") + RegeditWriter2 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OW_2", True) + End If + RegeditWriter2.SetValue("", Main.tbFile_gbFile_2.Text, RegistryValueKind.String) + RegeditWriter2.SetValue("Icon", Application.ExecutablePath, RegistryValueKind.String) 'Temporalmente hasta encontrar una forma de poner un icono + + Dim RegeditWriter22 As RegistryKey + RegeditWriter22 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OW_2\\command", True) + If RegeditWriter22 Is Nothing Then + Registry.CurrentUser.CreateSubKey(Ruta2 & "\\OW_2\\command") + RegeditWriter22 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OW_2\\command", True) + End If + RegeditWriter22.SetValue("", Main.tbFile_gbFile_22.Text, RegistryValueKind.String) + File_OpenWith_In2 = True + End If + + If opt = 3 Then + Dim RegeditWriter3 As RegistryKey + RegeditWriter3 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OW_3", True) + If RegeditWriter3 Is Nothing Then + Registry.CurrentUser.CreateSubKey(Ruta2 & "\\OW_3") + RegeditWriter3 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OW_3", True) + End If + RegeditWriter3.SetValue("", Main.tbFile_gbFile_3.Text, RegistryValueKind.String) + RegeditWriter3.SetValue("Icon", Application.ExecutablePath, RegistryValueKind.String) 'Temporalmente hasta encontrar una forma de poner un icono + + Dim RegeditWriter33 As RegistryKey + RegeditWriter33 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OW_3\\command", True) + If RegeditWriter33 Is Nothing Then + Registry.CurrentUser.CreateSubKey(Ruta2 & "\\OW_3\\command") + RegeditWriter33 = Registry.CurrentUser.OpenSubKey(Ruta2 & "\\OW_3\\command", True) + End If + RegeditWriter33.SetValue("", Main.tbFile_gbFile_33.Text, RegistryValueKind.String) + File_OpenWith_In3 = True + End If + + Catch ex As Exception + 'MsgBox("Error al crear la llave." & vbCrLf & ex.Message) + AddToLog("Create_OpenWithOther", "Error: " & ex.Message, True) + End Try + End Sub + Sub Remover_OpenWithOther(Optional ByVal opt As SByte = 0) + Try + + Dim Ruta1 As String = "SOFTWARE\\Classes\\*\\shell" + Dim Ruta2 As String = Ruta1 & "\\OW\\shell" + If opt = 0 Then + File_OpenWithOther = False + End If + If opt = 1 Then + If File_OpenWith_In1 = True Then + Dim RegeditWriter1 As RegistryKey + RegeditWriter1 = Registry.CurrentUser.OpenSubKey(Ruta2, True) + If RegeditWriter1 Is Nothing Then + Registry.CurrentUser.CreateSubKey(Ruta2) + RegeditWriter1 = Registry.CurrentUser.OpenSubKey(Ruta2, True) + End If + RegeditWriter1.DeleteSubKeyTree("OW_1") + File_OpenWith_In1 = False + End If + End If + + If opt = 2 Then + If File_OpenWith_In2 = True Then + Dim RegeditWriter1 As RegistryKey + RegeditWriter1 = Registry.CurrentUser.OpenSubKey(Ruta2, True) + If RegeditWriter1 Is Nothing Then + Registry.CurrentUser.CreateSubKey(Ruta2) + RegeditWriter1 = Registry.CurrentUser.OpenSubKey(Ruta2, True) + End If + RegeditWriter1.DeleteSubKeyTree("OW_2") + File_OpenWith_In2 = False + End If + End If + + If opt = 3 Then + If File_OpenWith_In3 = True Then + Dim RegeditWriter1 As RegistryKey + RegeditWriter1 = Registry.CurrentUser.OpenSubKey(Ruta2, True) + If RegeditWriter1 Is Nothing Then + Registry.CurrentUser.CreateSubKey(Ruta2) + RegeditWriter1 = Registry.CurrentUser.OpenSubKey(Ruta2, True) + End If + RegeditWriter1.DeleteSubKeyTree("OW_3") + File_OpenWith_In3 = False + End If + End If + Catch ex As Exception + 'MsgBox("Error al crear la llave." & vbCrLf & ex.Message) + AddToLog("Remover_OpenWith", "Error: " & ex.Message, True) + End Try + End Sub +#End Region +#End Region + +#Region "Menu Editor" + #End Region Sub AddToLog(ByVal from As String, ByVal content As String, Optional ByVal flag As Boolean = False) @@ -604,11 +989,32 @@ Module Complementos Public InsideFolder_Dir_OpenIn As Boolean = False + Public InsideFolder_Dir_OpenInOther As Boolean = False + Public InsideFolder_Dir_OpenIn1 As Boolean = False + Public InsideFolder_Dir_OpenIn2 As Boolean = False + Public InsideFolder_Dir_OpenIn3 As Boolean = False + Public InsideFolder_Dir_OpenIn1Name As String + Public InsideFolder_Dir_OpenIn2Name As String + Public InsideFolder_Dir_OpenIn3Name As String + Public InsideFolder_Dir_OpenIn1Value As String + Public InsideFolder_Dir_OpenIn2Value As String + Public InsideFolder_Dir_OpenIn3Value As String Public InsideFolder_Dir_OpenIn_InCommandPrompt As Boolean = False Public InsideFolder_Dir_OpenIn_InANewFolder As Boolean = False Public InsideFolder_Dir_OpenIn_InPowerShell As Boolean = False Public InsideFolder_Dir_GetLocation As Boolean = False + Public SelectFolder_Dir_OpenIn As Boolean = False + Public SelectFolder_Dir_OpenInOther As Boolean = False + Public SelectFolder_Dir_OpenIn1 As Boolean = False + Public SelectFolder_Dir_OpenIn2 As Boolean = False + Public SelectFolder_Dir_OpenIn3 As Boolean = False + Public SelectFolder_Dir_OpenIn1Name As String + Public SelectFolder_Dir_OpenIn2Name As String + Public SelectFolder_Dir_OpenIn3Name As String + Public SelectFolder_Dir_OpenIn1Value As String + Public SelectFolder_Dir_OpenIn2Value As String + Public SelectFolder_Dir_OpenIn3Value As String Public SelectFolder_Dir_OpenIn_InCommandPrompt As Boolean = False Public SelectFolder_Dir_OpenIn_InANewFolder As Boolean = False Public SelectFolder_Dir_OpenIn_InPowerShell As Boolean = False @@ -616,7 +1022,17 @@ Module Complementos Public File_GetLocation As Boolean = False Public File_OpenWith As Boolean = False + Public File_OpenWithOther As Boolean = False Public File_OpenWith_Notepad As Boolean = False + Public File_OpenWith_In1 As Boolean = False + Public File_OpenWith_In2 As Boolean = False + Public File_OpenWith_In3 As Boolean = False + Public File_OpenWith_In1Name As String + Public File_OpenWith_In2Name As String + Public File_OpenWith_In3Name As String + Public File_OpenWith_In1Value As String + Public File_OpenWith_In2Value As String + Public File_OpenWith_In3Value As String Sub SaveDB() Try @@ -644,12 +1060,32 @@ Module Complementos 'Directorios ' Inside a Folder ConfigDataRegeditWriter.SetValue("InsideFolder_Dir_OpenIn", InsideFolder_Dir_OpenIn, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("InsideFolder_Dir_OpenInOther", InsideFolder_Dir_OpenInOther, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("InsideFolder_Dir_OpenIn1", InsideFolder_Dir_OpenIn1, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("InsideFolder_Dir_OpenIn2", InsideFolder_Dir_OpenIn2, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("InsideFolder_Dir_OpenIn3", InsideFolder_Dir_OpenIn3, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("InsideFolder_Dir_OpenIn1Name", Main.tb_InsideAFolder_gbDir_1.Text, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("InsideFolder_Dir_OpenIn2Name", Main.tb_InsideAFolder_gbDir_2.Text, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("InsideFolder_Dir_OpenIn3Name", Main.tb_InsideAFolder_gbDir_3.Text, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("InsideFolder_Dir_OpenIn1Value", Main.tb_InsideAFolder_gbDir_11.Text, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("InsideFolder_Dir_OpenIn2Value", Main.tb_InsideAFolder_gbDir_22.Text, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("InsideFolder_Dir_OpenIn3Value", Main.tb_InsideAFolder_gbDir_33.Text, RegistryValueKind.String) ConfigDataRegeditWriter.SetValue("InsideFolder_Dir_OpenIn_InCommandPrompt", InsideFolder_Dir_OpenIn_InCommandPrompt, RegistryValueKind.String) ConfigDataRegeditWriter.SetValue("InsideFolder_Dir_OpenIn_InANewFolder", InsideFolder_Dir_OpenIn_InANewFolder, RegistryValueKind.String) ConfigDataRegeditWriter.SetValue("InsideFolder_Dir_OpenIn_InPowerShell", InsideFolder_Dir_OpenIn_InPowerShell, RegistryValueKind.String) ConfigDataRegeditWriter.SetValue("InsideFolder_Dir_GetLocation", InsideFolder_Dir_GetLocation, RegistryValueKind.String) ' Select a Folder ConfigDataRegeditWriter.SetValue("SelectFolder_Dir_OpenIn", SelectFolder_Dir_OpenIn, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("SelectFolder_Dir_OpenInOther", SelectFolder_Dir_OpenInOther, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("SelectFolder_Dir_OpenIn1", SelectFolder_Dir_OpenIn1, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("SelectFolder_Dir_OpenIn2", SelectFolder_Dir_OpenIn2, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("SelectFolder_Dir_OpenIn3", SelectFolder_Dir_OpenIn3, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("SelectFolder_Dir_OpenIn1Name", Main.tb_SelectAFolder_gbDir_1.Text, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("SelectFolder_Dir_OpenIn2Name", Main.tb_SelectAFolder_gbDir_2.Text, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("SelectFolder_Dir_OpenIn3Name", Main.tb_SelectAFolder_gbDir_3.Text, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("SelectFolder_Dir_OpenIn1Value", Main.tb_SelectAFolder_gbDir_11.Text, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("SelectFolder_Dir_OpenIn2Value", Main.tb_SelectAFolder_gbDir_22.Text, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("SelectFolder_Dir_OpenIn3Value", Main.tb_SelectAFolder_gbDir_33.Text, RegistryValueKind.String) ConfigDataRegeditWriter.SetValue("SelectFolder_Dir_OpenIn_InCommandPrompt", SelectFolder_Dir_OpenIn_InCommandPrompt, RegistryValueKind.String) ConfigDataRegeditWriter.SetValue("SelectFolder_Dir_OpenIn_InANewFolder", SelectFolder_Dir_OpenIn_InANewFolder, RegistryValueKind.String) ConfigDataRegeditWriter.SetValue("SelectFolder_Dir_OpenIn_InPowerShell", SelectFolder_Dir_OpenIn_InPowerShell, RegistryValueKind.String) @@ -658,7 +1094,17 @@ Module Complementos 'Archivos ConfigDataRegeditWriter.SetValue("File_GetLocation", File_GetLocation, RegistryValueKind.String) ConfigDataRegeditWriter.SetValue("File_OpenWith", File_OpenWith, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("File_OpenWithOther", File_OpenWithOther, RegistryValueKind.String) ConfigDataRegeditWriter.SetValue("File_OpenWith_Notepad", File_OpenWith_Notepad, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("File_OpenWith_In1", File_OpenWith_In1, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("File_OpenWith_In2", File_OpenWith_In2, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("File_OpenWith_In3", File_OpenWith_In3, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("File_OpenWith_In1Name", Main.tbFile_gbFile_1.Text, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("File_OpenWith_In2Name", Main.tbFile_gbFile_2.Text, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("File_OpenWith_In3Name", Main.tbFile_gbFile_3.Text, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("File_OpenWith_In1Value", Main.tbFile_gbFile_11.Text, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("File_OpenWith_In2Value", Main.tbFile_gbFile_22.Text, RegistryValueKind.String) + ConfigDataRegeditWriter.SetValue("File_OpenWith_In3Value", Main.tbFile_gbFile_33.Text, RegistryValueKind.String) LoadDB() Catch ex As Exception @@ -666,7 +1112,6 @@ Module Complementos AddToLog("SaveDB", "Error: " & ex.Message, True) End Try End Sub - Sub LoadDB() Try @@ -680,26 +1125,60 @@ Module Complementos 'Directorios ' Inside a Folder InsideFolder_Dir_OpenIn = Boolean.Parse(ConfigDataRegeditWriter.GetValue("InsideFolder_Dir_OpenIn")) + InsideFolder_Dir_OpenInOther = Boolean.Parse(ConfigDataRegeditWriter.GetValue("InsideFolder_Dir_OpenInOther")) + InsideFolder_Dir_OpenIn1 = Boolean.Parse(ConfigDataRegeditWriter.GetValue("InsideFolder_Dir_OpenIn1")) + InsideFolder_Dir_OpenIn2 = Boolean.Parse(ConfigDataRegeditWriter.GetValue("InsideFolder_Dir_OpenIn2")) + InsideFolder_Dir_OpenIn3 = Boolean.Parse(ConfigDataRegeditWriter.GetValue("InsideFolder_Dir_OpenIn3")) + InsideFolder_Dir_OpenIn1Name = ConfigDataRegeditWriter.GetValue("InsideFolder_Dir_OpenIn1Name") + InsideFolder_Dir_OpenIn2Name = ConfigDataRegeditWriter.GetValue("InsideFolder_Dir_OpenIn2Name") + InsideFolder_Dir_OpenIn3Name = ConfigDataRegeditWriter.GetValue("InsideFolder_Dir_OpenIn3Name") + InsideFolder_Dir_OpenIn1Value = ConfigDataRegeditWriter.GetValue("InsideFolder_Dir_OpenIn1Value") + InsideFolder_Dir_OpenIn2Value = ConfigDataRegeditWriter.GetValue("InsideFolder_Dir_OpenIn2Value") + InsideFolder_Dir_OpenIn3Value = ConfigDataRegeditWriter.GetValue("InsideFolder_Dir_OpenIn3Value") InsideFolder_Dir_OpenIn_InCommandPrompt = Boolean.Parse(ConfigDataRegeditWriter.GetValue("InsideFolder_Dir_OpenIn_InCommandPrompt")) InsideFolder_Dir_OpenIn_InANewFolder = Boolean.Parse(ConfigDataRegeditWriter.GetValue("InsideFolder_Dir_OpenIn_InANewFolder")) InsideFolder_Dir_OpenIn_InPowerShell = Boolean.Parse(ConfigDataRegeditWriter.GetValue("InsideFolder_Dir_OpenIn_InPowerShell")) InsideFolder_Dir_GetLocation = Boolean.Parse(ConfigDataRegeditWriter.GetValue("InsideFolder_Dir_GetLocation")) ' Select a Folder SelectFolder_Dir_OpenIn = Boolean.Parse(ConfigDataRegeditWriter.GetValue("SelectFolder_Dir_OpenIn")) + SelectFolder_Dir_OpenInOther = Boolean.Parse(ConfigDataRegeditWriter.GetValue("SelectFolder_Dir_OpenInOther")) + SelectFolder_Dir_OpenIn1 = Boolean.Parse(ConfigDataRegeditWriter.GetValue("SelectFolder_Dir_OpenIn1")) + SelectFolder_Dir_OpenIn2 = Boolean.Parse(ConfigDataRegeditWriter.GetValue("SelectFolder_Dir_OpenIn2")) + SelectFolder_Dir_OpenIn3 = Boolean.Parse(ConfigDataRegeditWriter.GetValue("SelectFolder_Dir_OpenIn3")) + SelectFolder_Dir_OpenIn1Name = ConfigDataRegeditWriter.GetValue("SelectFolder_Dir_OpenIn1Name") + SelectFolder_Dir_OpenIn2Name = ConfigDataRegeditWriter.GetValue("SelectFolder_Dir_OpenIn2Name") + SelectFolder_Dir_OpenIn3Name = ConfigDataRegeditWriter.GetValue("SelectFolder_Dir_OpenIn3Name") + SelectFolder_Dir_OpenIn1Value = ConfigDataRegeditWriter.GetValue("SelectFolder_Dir_OpenIn1Value") + SelectFolder_Dir_OpenIn2Value = ConfigDataRegeditWriter.GetValue("SelectFolder_Dir_OpenIn2Value") + SelectFolder_Dir_OpenIn3Value = ConfigDataRegeditWriter.GetValue("SelectFolder_Dir_OpenIn3Value") SelectFolder_Dir_OpenIn_InCommandPrompt = Boolean.Parse(ConfigDataRegeditWriter.GetValue("SelectFolder_Dir_OpenIn_InCommandPrompt")) SelectFolder_Dir_OpenIn_InANewFolder = Boolean.Parse(ConfigDataRegeditWriter.GetValue("SelectFolder_Dir_OpenIn_InANewFolder")) SelectFolder_Dir_OpenIn_InPowerShell = Boolean.Parse(ConfigDataRegeditWriter.GetValue("SelectFolder_Dir_OpenIn_InPowerShell")) SelectFolder_Dir_GetLocation = Boolean.Parse(ConfigDataRegeditWriter.GetValue("SelectFolder_Dir_GetLocation")) + File_GetLocation = Boolean.Parse(ConfigDataRegeditWriter.GetValue("File_GetLocation")) File_OpenWith = Boolean.Parse(ConfigDataRegeditWriter.GetValue("File_OpenWith")) + File_OpenWithOther = Boolean.Parse(ConfigDataRegeditWriter.GetValue("File_OpenWithOther")) File_OpenWith_Notepad = Boolean.Parse(ConfigDataRegeditWriter.GetValue("File_OpenWith_Notepad")) + File_OpenWith_In1 = Boolean.Parse(ConfigDataRegeditWriter.GetValue("File_OpenWith_In1")) + File_OpenWith_In2 = Boolean.Parse(ConfigDataRegeditWriter.GetValue("File_OpenWith_In2")) + File_OpenWith_In3 = Boolean.Parse(ConfigDataRegeditWriter.GetValue("File_OpenWith_In3")) + File_OpenWith_In1Name = ConfigDataRegeditWriter.GetValue("File_OpenWith_In1Name") + File_OpenWith_In2Name = ConfigDataRegeditWriter.GetValue("File_OpenWith_In2Name") + File_OpenWith_In3Name = ConfigDataRegeditWriter.GetValue("File_OpenWith_In3Name") + File_OpenWith_In1Value = ConfigDataRegeditWriter.GetValue("File_OpenWith_In1Value") + File_OpenWith_In2Value = ConfigDataRegeditWriter.GetValue("File_OpenWith_In2Value") + File_OpenWith_In3Value = ConfigDataRegeditWriter.GetValue("File_OpenWith_In3Value") 'Directorios ' Inside a Folder If InsideFolder_Dir_OpenIn = True Then Main.cb_InsideAFolder_Dir_OpenIn.CheckState = CheckState.Checked End If + If InsideFolder_Dir_OpenInOther = True Then + Main.cb_InsideAFolder_Dir_OpenIn_InOther.CheckState = CheckState.Checked + End If If InsideFolder_Dir_OpenIn_InCommandPrompt = True Then Main.cb_InsideAFolder_Dir_OpenIn_InCommandPrompt.CheckState = CheckState.Checked End If @@ -712,11 +1191,29 @@ Module Complementos If InsideFolder_Dir_GetLocation = True Then Main.cb_InsideAFolder_Dir_GetLocation.CheckState = CheckState.Checked End If + If InsideFolder_Dir_OpenIn1 = True Then + Main.cb_InsideAFolder_gbDir_1.CheckState = CheckState.Checked + Main.tb_InsideAFolder_gbDir_1.Text = InsideFolder_Dir_OpenIn1Name + Main.tb_InsideAFolder_gbDir_11.Text = InsideFolder_Dir_OpenIn1Value + End If + If InsideFolder_Dir_OpenIn2 = True Then + Main.cb_InsideAFolder_gbDir_3.CheckState = CheckState.Checked + Main.tb_InsideAFolder_gbDir_2.Text = InsideFolder_Dir_OpenIn2Name + Main.tb_InsideAFolder_gbDir_22.Text = InsideFolder_Dir_OpenIn2Value + End If + If InsideFolder_Dir_OpenIn3 = True Then + Main.cb_InsideAFolder_gbDir_3.CheckState = CheckState.Checked + Main.tb_InsideAFolder_gbDir_3.Text = InsideFolder_Dir_OpenIn3Name + Main.tb_InsideAFolder_gbDir_33.Text = InsideFolder_Dir_OpenIn3Value + End If ' Select a Folder If SelectFolder_Dir_OpenIn = True Then Main.cb_SelectAFolder_Dir_OpenIn.CheckState = CheckState.Checked End If + If SelectFolder_Dir_OpenInOther = True Then + Main.cb_SelectAFolder_Dir_OpenIn_InOther.CheckState = CheckState.Checked + End If If SelectFolder_Dir_OpenIn_InCommandPrompt = True Then Main.cb_SelectAFolder_Dir_OpenIn_InCommandPrompt.CheckState = CheckState.Checked End If @@ -729,17 +1226,50 @@ Module Complementos If SelectFolder_Dir_GetLocation = True Then Main.cb_SelectAFolder_Dir_GetLocation.CheckState = CheckState.Checked End If + If SelectFolder_Dir_OpenIn1 = True Then + Main.cb_SelectAFolder_gbDir_1.CheckState = CheckState.Checked + Main.tb_SelectAFolder_gbDir_1.Text = SelectFolder_Dir_OpenIn1Name + Main.tb_SelectAFolder_gbDir_11.Text = SelectFolder_Dir_OpenIn1Value + End If + If SelectFolder_Dir_OpenIn2 = True Then + Main.cb_SelectAFolder_gbDir_2.CheckState = CheckState.Checked + Main.tb_SelectAFolder_gbDir_2.Text = SelectFolder_Dir_OpenIn2Name + Main.tb_SelectAFolder_gbDir_22.Text = SelectFolder_Dir_OpenIn2Value + End If + If SelectFolder_Dir_OpenIn3 = True Then + Main.cb_SelectAFolder_gbDir_3.CheckState = CheckState.Checked + Main.tb_SelectAFolder_gbDir_3.Text = SelectFolder_Dir_OpenIn3Name + Main.tb_SelectAFolder_gbDir_33.Text = SelectFolder_Dir_OpenIn3Value + End If - + 'Archivos If File_GetLocation = True Then Main.cbFile_GetLocation.CheckState = CheckState.Checked End If If File_OpenWith = True Then Main.cbFile_OpenWith.CheckState = CheckState.Checked End If + If File_OpenWithOther = True Then + Main.cbFile_OpenWith_Other.CheckState = CheckState.Checked + End If If File_OpenWith_Notepad = True Then Main.cbFile_OpenWith_Notepad.CheckState = CheckState.Checked End If + If File_OpenWith_In1 = True Then + Main.cbFile_gbFile_1.CheckState = CheckState.Checked + Main.tbFile_gbFile_1.Text = File_OpenWith_In1Name + Main.tbFile_gbFile_11.Text = File_OpenWith_In1Value + End If + If File_OpenWith_In2 = True Then + Main.cbFile_gbFile_2.CheckState = CheckState.Checked + Main.tbFile_gbFile_2.Text = File_OpenWith_In2Name + Main.tbFile_gbFile_22.Text = File_OpenWith_In2Value + End If + If File_OpenWith_In3 = True Then + Main.cbFile_gbFile_3.CheckState = CheckState.Checked + Main.tbFile_gbFile_3.Text = File_OpenWith_In3Name + Main.tbFile_gbFile_33.Text = File_OpenWith_In3Value + End If Catch ex As Exception 'MsgBox("Error al cargar el estado." & vbCrLf & ex.Message) AddToLog("LoadDB", "Error: " & ex.Message, True) @@ -763,7 +1293,7 @@ Module WindowsCalls For Each args As String In argumentos If args.StartsWith("/WindowsCall") Then - 'Formato: "/WindosCall>GetLocation>C:\...\...\..." + 'Formato: "/WindowsCall>GetLocation>C:\...\...\..." If newArg(1) = "GetLocation" Then GetLocation(newArg(2)) 'Pass 15/08/2021 06:58 PM End If @@ -786,7 +1316,7 @@ Module WindowsCalls End Try End Sub 'Pass 15/08/2021 06:53 PM -End Module 'En desarrollo +End Module Module InstalledApplications Sub CheckForApps() diff --git a/DevToolMenu/DevToolMenu.vbproj b/DevToolMenu/DevToolMenu.vbproj index 597b8f2..c483b00 100644 --- a/DevToolMenu/DevToolMenu.vbproj +++ b/DevToolMenu/DevToolMenu.vbproj @@ -85,6 +85,12 @@ Main.vb Form + + MenuEditor.vb + + + Form + True @@ -105,6 +111,9 @@ Main.vb + + MenuEditor.vb + VbMyResourcesResXFileCodeGenerator Resources.Designer.vb diff --git a/DevToolMenu/Main.Designer.vb b/DevToolMenu/Main.Designer.vb index fa503bf..a77a79f 100644 --- a/DevToolMenu/Main.Designer.vb +++ b/DevToolMenu/Main.Designer.vb @@ -26,14 +26,43 @@ Partial Class Main Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Main)) Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.tb_btn_MenuEditor = New System.Windows.Forms.Button() Me.TabPage2 = New System.Windows.Forms.TabPage() Me.gbDir_SelectingAFolder = New System.Windows.Forms.GroupBox() + Me.gbDir_SelectingAFolder_gbOthers = New System.Windows.Forms.GroupBox() + Me.tb_SelectAFolder_gbDir_33 = New System.Windows.Forms.TextBox() + Me.tb_SelectAFolder_gbDir_3 = New System.Windows.Forms.TextBox() + Me.lbl_SelectAFolder_gbDir_3 = New System.Windows.Forms.Label() + Me.tb_SelectAFolder_gbDir_22 = New System.Windows.Forms.TextBox() + Me.tb_SelectAFolder_gbDir_2 = New System.Windows.Forms.TextBox() + Me.lbl_SelectAFolder_gbDir_2 = New System.Windows.Forms.Label() + Me.tb_SelectAFolder_gbDir_11 = New System.Windows.Forms.TextBox() + Me.tb_SelectAFolder_gbDir_1 = New System.Windows.Forms.TextBox() + Me.cb_SelectAFolder_gbDir_3 = New System.Windows.Forms.CheckBox() + Me.cb_SelectAFolder_gbDir_2 = New System.Windows.Forms.CheckBox() + Me.cb_SelectAFolder_gbDir_1 = New System.Windows.Forms.CheckBox() + Me.lbl_SelectAFolder_gbDir_1 = New System.Windows.Forms.Label() + Me.cb_SelectAFolder_Dir_GetLocation = New System.Windows.Forms.CheckBox() Me.cb_SelectAFolder_Dir_OpenIn = New System.Windows.Forms.CheckBox() Me.cb_SelectAFolder_Dir_OpenIn_InCommandPrompt = New System.Windows.Forms.CheckBox() Me.cb_SelectAFolder_Dir_OpenIn_InOther = New System.Windows.Forms.CheckBox() Me.cb_SelectAFolder_Dir_OpenIn_InANewFolder = New System.Windows.Forms.CheckBox() Me.cb_SelectAFolder_Dir_OpenIn_InPowerShell = New System.Windows.Forms.CheckBox() Me.gbDir_InsideAFolder = New System.Windows.Forms.GroupBox() + Me.gbDir_InsideAFolder_gbOthers = New System.Windows.Forms.GroupBox() + Me.tb_InsideAFolder_gbDir_33 = New System.Windows.Forms.TextBox() + Me.tb_InsideAFolder_gbDir_3 = New System.Windows.Forms.TextBox() + Me.lbl_InsideAFolder_gbDir_3 = New System.Windows.Forms.Label() + Me.tb_InsideAFolder_gbDir_22 = New System.Windows.Forms.TextBox() + Me.tb_InsideAFolder_gbDir_2 = New System.Windows.Forms.TextBox() + Me.lbl_InsideAFolder_gbDir_2 = New System.Windows.Forms.Label() + Me.tb_InsideAFolder_gbDir_11 = New System.Windows.Forms.TextBox() + Me.tb_InsideAFolder_gbDir_1 = New System.Windows.Forms.TextBox() + Me.cb_InsideAFolder_gbDir_3 = New System.Windows.Forms.CheckBox() + Me.cb_InsideAFolder_gbDir_2 = New System.Windows.Forms.CheckBox() + Me.cb_InsideAFolder_gbDir_1 = New System.Windows.Forms.CheckBox() + Me.lbl_InsideAFolder_gbDir_1 = New System.Windows.Forms.Label() + Me.cb_InsideAFolder_Dir_GetLocation = New System.Windows.Forms.CheckBox() Me.cb_InsideAFolder_Dir_OpenIn = New System.Windows.Forms.CheckBox() Me.cb_InsideAFolder_Dir_OpenIn_InCommandPrompt = New System.Windows.Forms.CheckBox() Me.cb_InsideAFolder_Dir_OpenIn_InOther = New System.Windows.Forms.CheckBox() @@ -41,19 +70,36 @@ Partial Class Main Me.cb_InsideAFolder_Dir_OpenIn_InPowerShell = New System.Windows.Forms.CheckBox() Me.tc_btn_Directory_Apply = New System.Windows.Forms.Button() Me.TabPage3 = New System.Windows.Forms.TabPage() - Me.tc_btn_File_Apply = New System.Windows.Forms.Button() + Me.gbFiles_FileSelect = New System.Windows.Forms.GroupBox() + Me.gbFiles_FileSelect_gbOthers = New System.Windows.Forms.GroupBox() + Me.tbFile_gbFile_33 = New System.Windows.Forms.TextBox() + Me.tbFile_gbFile_3 = New System.Windows.Forms.TextBox() + Me.lblFile_gbFile_3 = New System.Windows.Forms.Label() + Me.tbFile_gbFile_22 = New System.Windows.Forms.TextBox() + Me.tbFile_gbFile_2 = New System.Windows.Forms.TextBox() + Me.lblFile_gbFile_2 = New System.Windows.Forms.Label() + Me.tbFile_gbFile_11 = New System.Windows.Forms.TextBox() + Me.tbFile_gbFile_1 = New System.Windows.Forms.TextBox() + Me.cbFile_gbFile_3 = New System.Windows.Forms.CheckBox() + Me.cbFile_gbFile_2 = New System.Windows.Forms.CheckBox() + Me.cbFile_gbFile_1 = New System.Windows.Forms.CheckBox() + Me.lblFile_gbFile_1 = New System.Windows.Forms.Label() + Me.cbFile_GetLocation = New System.Windows.Forms.CheckBox() + Me.cbFile_OpenWith = New System.Windows.Forms.CheckBox() Me.cbFile_OpenWith_Other = New System.Windows.Forms.CheckBox() Me.cbFile_OpenWith_Notepad = New System.Windows.Forms.CheckBox() - Me.cbFile_OpenWith = New System.Windows.Forms.CheckBox() - Me.cbFile_GetLocation = New System.Windows.Forms.CheckBox() + Me.tc_btn_File_Apply = New System.Windows.Forms.Button() Me.Notifyer = New System.Windows.Forms.NotifyIcon(Me.components) - Me.cb_InsideAFolder_Dir_GetLocation = New System.Windows.Forms.CheckBox() - Me.cb_SelectAFolder_Dir_GetLocation = New System.Windows.Forms.CheckBox() Me.TabControl1.SuspendLayout() + Me.TabPage1.SuspendLayout() Me.TabPage2.SuspendLayout() Me.gbDir_SelectingAFolder.SuspendLayout() + Me.gbDir_SelectingAFolder_gbOthers.SuspendLayout() Me.gbDir_InsideAFolder.SuspendLayout() + Me.gbDir_InsideAFolder_gbOthers.SuspendLayout() Me.TabPage3.SuspendLayout() + Me.gbFiles_FileSelect.SuspendLayout() + Me.gbFiles_FileSelect_gbOthers.SuspendLayout() Me.SuspendLayout() ' 'TabControl1 @@ -72,6 +118,7 @@ Partial Class Main ' 'TabPage1 ' + Me.TabPage1.Controls.Add(Me.tb_btn_MenuEditor) Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) @@ -80,6 +127,17 @@ Partial Class Main Me.TabPage1.Text = "General" Me.TabPage1.UseVisualStyleBackColor = True ' + 'tb_btn_MenuEditor + ' + Me.tb_btn_MenuEditor.Enabled = False + Me.tb_btn_MenuEditor.Location = New System.Drawing.Point(327, 186) + Me.tb_btn_MenuEditor.Name = "tb_btn_MenuEditor" + Me.tb_btn_MenuEditor.Size = New System.Drawing.Size(98, 38) + Me.tb_btn_MenuEditor.TabIndex = 0 + Me.tb_btn_MenuEditor.Text = "Menu Editor" + Me.tb_btn_MenuEditor.UseVisualStyleBackColor = True + Me.tb_btn_MenuEditor.Visible = False + ' 'TabPage2 ' Me.TabPage2.Controls.Add(Me.gbDir_SelectingAFolder) @@ -96,22 +154,161 @@ Partial Class Main 'gbDir_SelectingAFolder ' Me.gbDir_SelectingAFolder.Anchor = System.Windows.Forms.AnchorStyles.None + Me.gbDir_SelectingAFolder.Controls.Add(Me.gbDir_SelectingAFolder_gbOthers) Me.gbDir_SelectingAFolder.Controls.Add(Me.cb_SelectAFolder_Dir_GetLocation) Me.gbDir_SelectingAFolder.Controls.Add(Me.cb_SelectAFolder_Dir_OpenIn) Me.gbDir_SelectingAFolder.Controls.Add(Me.cb_SelectAFolder_Dir_OpenIn_InCommandPrompt) Me.gbDir_SelectingAFolder.Controls.Add(Me.cb_SelectAFolder_Dir_OpenIn_InOther) Me.gbDir_SelectingAFolder.Controls.Add(Me.cb_SelectAFolder_Dir_OpenIn_InANewFolder) Me.gbDir_SelectingAFolder.Controls.Add(Me.cb_SelectAFolder_Dir_OpenIn_InPowerShell) - Me.gbDir_SelectingAFolder.Location = New System.Drawing.Point(379, 48) + Me.gbDir_SelectingAFolder.Location = New System.Drawing.Point(289, 171) Me.gbDir_SelectingAFolder.Name = "gbDir_SelectingAFolder" Me.gbDir_SelectingAFolder.Size = New System.Drawing.Size(174, 159) Me.gbDir_SelectingAFolder.TabIndex = 7 Me.gbDir_SelectingAFolder.TabStop = False Me.gbDir_SelectingAFolder.Text = "Selecting a Folder" ' + 'gbDir_SelectingAFolder_gbOthers + ' + Me.gbDir_SelectingAFolder_gbOthers.Controls.Add(Me.tb_SelectAFolder_gbDir_33) + Me.gbDir_SelectingAFolder_gbOthers.Controls.Add(Me.tb_SelectAFolder_gbDir_3) + Me.gbDir_SelectingAFolder_gbOthers.Controls.Add(Me.lbl_SelectAFolder_gbDir_3) + Me.gbDir_SelectingAFolder_gbOthers.Controls.Add(Me.tb_SelectAFolder_gbDir_22) + Me.gbDir_SelectingAFolder_gbOthers.Controls.Add(Me.tb_SelectAFolder_gbDir_2) + Me.gbDir_SelectingAFolder_gbOthers.Controls.Add(Me.lbl_SelectAFolder_gbDir_2) + Me.gbDir_SelectingAFolder_gbOthers.Controls.Add(Me.tb_SelectAFolder_gbDir_11) + Me.gbDir_SelectingAFolder_gbOthers.Controls.Add(Me.tb_SelectAFolder_gbDir_1) + Me.gbDir_SelectingAFolder_gbOthers.Controls.Add(Me.cb_SelectAFolder_gbDir_3) + Me.gbDir_SelectingAFolder_gbOthers.Controls.Add(Me.cb_SelectAFolder_gbDir_2) + Me.gbDir_SelectingAFolder_gbOthers.Controls.Add(Me.cb_SelectAFolder_gbDir_1) + Me.gbDir_SelectingAFolder_gbOthers.Controls.Add(Me.lbl_SelectAFolder_gbDir_1) + Me.gbDir_SelectingAFolder_gbOthers.Location = New System.Drawing.Point(195, 19) + Me.gbDir_SelectingAFolder_gbOthers.Name = "gbDir_SelectingAFolder_gbOthers" + Me.gbDir_SelectingAFolder_gbOthers.Size = New System.Drawing.Size(539, 134) + Me.gbDir_SelectingAFolder_gbOthers.TabIndex = 8 + Me.gbDir_SelectingAFolder_gbOthers.TabStop = False + Me.gbDir_SelectingAFolder_gbOthers.Text = "Others" + ' + 'tb_SelectAFolder_gbDir_33 + ' + Me.tb_SelectAFolder_gbDir_33.Enabled = False + Me.tb_SelectAFolder_gbDir_33.Location = New System.Drawing.Point(240, 90) + Me.tb_SelectAFolder_gbDir_33.Name = "tb_SelectAFolder_gbDir_33" + Me.tb_SelectAFolder_gbDir_33.Size = New System.Drawing.Size(292, 20) + Me.tb_SelectAFolder_gbDir_33.TabIndex = 22 + ' + 'tb_SelectAFolder_gbDir_3 + ' + Me.tb_SelectAFolder_gbDir_3.Enabled = False + Me.tb_SelectAFolder_gbDir_3.Location = New System.Drawing.Point(95, 90) + Me.tb_SelectAFolder_gbDir_3.Name = "tb_SelectAFolder_gbDir_3" + Me.tb_SelectAFolder_gbDir_3.Size = New System.Drawing.Size(100, 20) + Me.tb_SelectAFolder_gbDir_3.TabIndex = 21 + ' + 'lbl_SelectAFolder_gbDir_3 + ' + Me.lbl_SelectAFolder_gbDir_3.AutoSize = True + Me.lbl_SelectAFolder_gbDir_3.Enabled = False + Me.lbl_SelectAFolder_gbDir_3.Location = New System.Drawing.Point(44, 93) + Me.lbl_SelectAFolder_gbDir_3.Name = "lbl_SelectAFolder_gbDir_3" + Me.lbl_SelectAFolder_gbDir_3.Size = New System.Drawing.Size(194, 13) + Me.lbl_SelectAFolder_gbDir_3.TabIndex = 23 + Me.lbl_SelectAFolder_gbDir_3.Text = "Nombre: Valor: " + ' + 'tb_SelectAFolder_gbDir_22 + ' + Me.tb_SelectAFolder_gbDir_22.Enabled = False + Me.tb_SelectAFolder_gbDir_22.Location = New System.Drawing.Point(240, 61) + Me.tb_SelectAFolder_gbDir_22.Name = "tb_SelectAFolder_gbDir_22" + Me.tb_SelectAFolder_gbDir_22.Size = New System.Drawing.Size(292, 20) + Me.tb_SelectAFolder_gbDir_22.TabIndex = 19 + ' + 'tb_SelectAFolder_gbDir_2 + ' + Me.tb_SelectAFolder_gbDir_2.Enabled = False + Me.tb_SelectAFolder_gbDir_2.Location = New System.Drawing.Point(95, 61) + Me.tb_SelectAFolder_gbDir_2.Name = "tb_SelectAFolder_gbDir_2" + Me.tb_SelectAFolder_gbDir_2.Size = New System.Drawing.Size(100, 20) + Me.tb_SelectAFolder_gbDir_2.TabIndex = 18 + ' + 'lbl_SelectAFolder_gbDir_2 + ' + Me.lbl_SelectAFolder_gbDir_2.AutoSize = True + Me.lbl_SelectAFolder_gbDir_2.Enabled = False + Me.lbl_SelectAFolder_gbDir_2.Location = New System.Drawing.Point(44, 64) + Me.lbl_SelectAFolder_gbDir_2.Name = "lbl_SelectAFolder_gbDir_2" + Me.lbl_SelectAFolder_gbDir_2.Size = New System.Drawing.Size(194, 13) + Me.lbl_SelectAFolder_gbDir_2.TabIndex = 20 + Me.lbl_SelectAFolder_gbDir_2.Text = "Nombre: Valor: " + ' + 'tb_SelectAFolder_gbDir_11 + ' + Me.tb_SelectAFolder_gbDir_11.Enabled = False + Me.tb_SelectAFolder_gbDir_11.Location = New System.Drawing.Point(240, 32) + Me.tb_SelectAFolder_gbDir_11.Name = "tb_SelectAFolder_gbDir_11" + Me.tb_SelectAFolder_gbDir_11.Size = New System.Drawing.Size(292, 20) + Me.tb_SelectAFolder_gbDir_11.TabIndex = 16 + ' + 'tb_SelectAFolder_gbDir_1 + ' + Me.tb_SelectAFolder_gbDir_1.Enabled = False + Me.tb_SelectAFolder_gbDir_1.Location = New System.Drawing.Point(95, 32) + Me.tb_SelectAFolder_gbDir_1.Name = "tb_SelectAFolder_gbDir_1" + Me.tb_SelectAFolder_gbDir_1.Size = New System.Drawing.Size(100, 20) + Me.tb_SelectAFolder_gbDir_1.TabIndex = 15 + ' + 'cb_SelectAFolder_gbDir_3 + ' + Me.cb_SelectAFolder_gbDir_3.AutoSize = True + Me.cb_SelectAFolder_gbDir_3.Location = New System.Drawing.Point(6, 92) + Me.cb_SelectAFolder_gbDir_3.Name = "cb_SelectAFolder_gbDir_3" + Me.cb_SelectAFolder_gbDir_3.Size = New System.Drawing.Size(32, 17) + Me.cb_SelectAFolder_gbDir_3.TabIndex = 14 + Me.cb_SelectAFolder_gbDir_3.Text = "3" + Me.cb_SelectAFolder_gbDir_3.UseVisualStyleBackColor = True + ' + 'cb_SelectAFolder_gbDir_2 + ' + Me.cb_SelectAFolder_gbDir_2.AutoSize = True + Me.cb_SelectAFolder_gbDir_2.Location = New System.Drawing.Point(6, 63) + Me.cb_SelectAFolder_gbDir_2.Name = "cb_SelectAFolder_gbDir_2" + Me.cb_SelectAFolder_gbDir_2.Size = New System.Drawing.Size(32, 17) + Me.cb_SelectAFolder_gbDir_2.TabIndex = 13 + Me.cb_SelectAFolder_gbDir_2.Text = "2" + Me.cb_SelectAFolder_gbDir_2.UseVisualStyleBackColor = True + ' + 'cb_SelectAFolder_gbDir_1 + ' + Me.cb_SelectAFolder_gbDir_1.AutoSize = True + Me.cb_SelectAFolder_gbDir_1.Location = New System.Drawing.Point(6, 34) + Me.cb_SelectAFolder_gbDir_1.Name = "cb_SelectAFolder_gbDir_1" + Me.cb_SelectAFolder_gbDir_1.Size = New System.Drawing.Size(32, 17) + Me.cb_SelectAFolder_gbDir_1.TabIndex = 12 + Me.cb_SelectAFolder_gbDir_1.Text = "1" + Me.cb_SelectAFolder_gbDir_1.UseVisualStyleBackColor = True + ' + 'lbl_SelectAFolder_gbDir_1 + ' + Me.lbl_SelectAFolder_gbDir_1.AutoSize = True + Me.lbl_SelectAFolder_gbDir_1.Enabled = False + Me.lbl_SelectAFolder_gbDir_1.Location = New System.Drawing.Point(44, 35) + Me.lbl_SelectAFolder_gbDir_1.Name = "lbl_SelectAFolder_gbDir_1" + Me.lbl_SelectAFolder_gbDir_1.Size = New System.Drawing.Size(194, 13) + Me.lbl_SelectAFolder_gbDir_1.TabIndex = 17 + Me.lbl_SelectAFolder_gbDir_1.Text = "Nombre: Valor: " + ' + 'cb_SelectAFolder_Dir_GetLocation + ' + Me.cb_SelectAFolder_Dir_GetLocation.AutoSize = True + Me.cb_SelectAFolder_Dir_GetLocation.Location = New System.Drawing.Point(20, 23) + Me.cb_SelectAFolder_Dir_GetLocation.Name = "cb_SelectAFolder_Dir_GetLocation" + Me.cb_SelectAFolder_Dir_GetLocation.Size = New System.Drawing.Size(87, 17) + Me.cb_SelectAFolder_Dir_GetLocation.TabIndex = 7 + Me.cb_SelectAFolder_Dir_GetLocation.Text = "Get Location" + Me.cb_SelectAFolder_Dir_GetLocation.UseVisualStyleBackColor = True + ' 'cb_SelectAFolder_Dir_OpenIn ' - Me.cb_SelectAFolder_Dir_OpenIn.Anchor = System.Windows.Forms.AnchorStyles.None Me.cb_SelectAFolder_Dir_OpenIn.AutoSize = True Me.cb_SelectAFolder_Dir_OpenIn.Location = New System.Drawing.Point(20, 46) Me.cb_SelectAFolder_Dir_OpenIn.Name = "cb_SelectAFolder_Dir_OpenIn" @@ -122,7 +319,6 @@ Partial Class Main ' 'cb_SelectAFolder_Dir_OpenIn_InCommandPrompt ' - Me.cb_SelectAFolder_Dir_OpenIn_InCommandPrompt.Anchor = System.Windows.Forms.AnchorStyles.None Me.cb_SelectAFolder_Dir_OpenIn_InCommandPrompt.AutoSize = True Me.cb_SelectAFolder_Dir_OpenIn_InCommandPrompt.Enabled = False Me.cb_SelectAFolder_Dir_OpenIn_InCommandPrompt.Location = New System.Drawing.Point(35, 69) @@ -134,7 +330,6 @@ Partial Class Main ' 'cb_SelectAFolder_Dir_OpenIn_InOther ' - Me.cb_SelectAFolder_Dir_OpenIn_InOther.Anchor = System.Windows.Forms.AnchorStyles.None Me.cb_SelectAFolder_Dir_OpenIn_InOther.AutoSize = True Me.cb_SelectAFolder_Dir_OpenIn_InOther.Enabled = False Me.cb_SelectAFolder_Dir_OpenIn_InOther.Location = New System.Drawing.Point(35, 138) @@ -146,7 +341,6 @@ Partial Class Main ' 'cb_SelectAFolder_Dir_OpenIn_InANewFolder ' - Me.cb_SelectAFolder_Dir_OpenIn_InANewFolder.Anchor = System.Windows.Forms.AnchorStyles.None Me.cb_SelectAFolder_Dir_OpenIn_InANewFolder.AutoSize = True Me.cb_SelectAFolder_Dir_OpenIn_InANewFolder.Checked = True Me.cb_SelectAFolder_Dir_OpenIn_InANewFolder.CheckState = System.Windows.Forms.CheckState.Checked @@ -160,7 +354,6 @@ Partial Class Main ' 'cb_SelectAFolder_Dir_OpenIn_InPowerShell ' - Me.cb_SelectAFolder_Dir_OpenIn_InPowerShell.Anchor = System.Windows.Forms.AnchorStyles.None Me.cb_SelectAFolder_Dir_OpenIn_InPowerShell.AutoSize = True Me.cb_SelectAFolder_Dir_OpenIn_InPowerShell.Enabled = False Me.cb_SelectAFolder_Dir_OpenIn_InPowerShell.Location = New System.Drawing.Point(35, 115) @@ -173,22 +366,161 @@ Partial Class Main 'gbDir_InsideAFolder ' Me.gbDir_InsideAFolder.Anchor = System.Windows.Forms.AnchorStyles.None + Me.gbDir_InsideAFolder.Controls.Add(Me.gbDir_InsideAFolder_gbOthers) Me.gbDir_InsideAFolder.Controls.Add(Me.cb_InsideAFolder_Dir_GetLocation) Me.gbDir_InsideAFolder.Controls.Add(Me.cb_InsideAFolder_Dir_OpenIn) Me.gbDir_InsideAFolder.Controls.Add(Me.cb_InsideAFolder_Dir_OpenIn_InCommandPrompt) Me.gbDir_InsideAFolder.Controls.Add(Me.cb_InsideAFolder_Dir_OpenIn_InOther) Me.gbDir_InsideAFolder.Controls.Add(Me.cb_InsideAFolder_Dir_OpenIn_InANewFolder) Me.gbDir_InsideAFolder.Controls.Add(Me.cb_InsideAFolder_Dir_OpenIn_InPowerShell) - Me.gbDir_InsideAFolder.Location = New System.Drawing.Point(199, 48) + Me.gbDir_InsideAFolder.Location = New System.Drawing.Point(289, 6) Me.gbDir_InsideAFolder.Name = "gbDir_InsideAFolder" Me.gbDir_InsideAFolder.Size = New System.Drawing.Size(174, 159) Me.gbDir_InsideAFolder.TabIndex = 6 Me.gbDir_InsideAFolder.TabStop = False Me.gbDir_InsideAFolder.Text = "Inside a Folder" ' + 'gbDir_InsideAFolder_gbOthers + ' + Me.gbDir_InsideAFolder_gbOthers.Controls.Add(Me.tb_InsideAFolder_gbDir_33) + Me.gbDir_InsideAFolder_gbOthers.Controls.Add(Me.tb_InsideAFolder_gbDir_3) + Me.gbDir_InsideAFolder_gbOthers.Controls.Add(Me.lbl_InsideAFolder_gbDir_3) + Me.gbDir_InsideAFolder_gbOthers.Controls.Add(Me.tb_InsideAFolder_gbDir_22) + Me.gbDir_InsideAFolder_gbOthers.Controls.Add(Me.tb_InsideAFolder_gbDir_2) + Me.gbDir_InsideAFolder_gbOthers.Controls.Add(Me.lbl_InsideAFolder_gbDir_2) + Me.gbDir_InsideAFolder_gbOthers.Controls.Add(Me.tb_InsideAFolder_gbDir_11) + Me.gbDir_InsideAFolder_gbOthers.Controls.Add(Me.tb_InsideAFolder_gbDir_1) + Me.gbDir_InsideAFolder_gbOthers.Controls.Add(Me.cb_InsideAFolder_gbDir_3) + Me.gbDir_InsideAFolder_gbOthers.Controls.Add(Me.cb_InsideAFolder_gbDir_2) + Me.gbDir_InsideAFolder_gbOthers.Controls.Add(Me.cb_InsideAFolder_gbDir_1) + Me.gbDir_InsideAFolder_gbOthers.Controls.Add(Me.lbl_InsideAFolder_gbDir_1) + Me.gbDir_InsideAFolder_gbOthers.Location = New System.Drawing.Point(195, 19) + Me.gbDir_InsideAFolder_gbOthers.Name = "gbDir_InsideAFolder_gbOthers" + Me.gbDir_InsideAFolder_gbOthers.Size = New System.Drawing.Size(539, 134) + Me.gbDir_InsideAFolder_gbOthers.TabIndex = 7 + Me.gbDir_InsideAFolder_gbOthers.TabStop = False + Me.gbDir_InsideAFolder_gbOthers.Text = "Others" + ' + 'tb_InsideAFolder_gbDir_33 + ' + Me.tb_InsideAFolder_gbDir_33.Enabled = False + Me.tb_InsideAFolder_gbDir_33.Location = New System.Drawing.Point(240, 89) + Me.tb_InsideAFolder_gbDir_33.Name = "tb_InsideAFolder_gbDir_33" + Me.tb_InsideAFolder_gbDir_33.Size = New System.Drawing.Size(292, 20) + Me.tb_InsideAFolder_gbDir_33.TabIndex = 10 + ' + 'tb_InsideAFolder_gbDir_3 + ' + Me.tb_InsideAFolder_gbDir_3.Enabled = False + Me.tb_InsideAFolder_gbDir_3.Location = New System.Drawing.Point(95, 89) + Me.tb_InsideAFolder_gbDir_3.Name = "tb_InsideAFolder_gbDir_3" + Me.tb_InsideAFolder_gbDir_3.Size = New System.Drawing.Size(100, 20) + Me.tb_InsideAFolder_gbDir_3.TabIndex = 9 + ' + 'lbl_InsideAFolder_gbDir_3 + ' + Me.lbl_InsideAFolder_gbDir_3.AutoSize = True + Me.lbl_InsideAFolder_gbDir_3.Enabled = False + Me.lbl_InsideAFolder_gbDir_3.Location = New System.Drawing.Point(44, 92) + Me.lbl_InsideAFolder_gbDir_3.Name = "lbl_InsideAFolder_gbDir_3" + Me.lbl_InsideAFolder_gbDir_3.Size = New System.Drawing.Size(194, 13) + Me.lbl_InsideAFolder_gbDir_3.TabIndex = 11 + Me.lbl_InsideAFolder_gbDir_3.Text = "Nombre: Valor: " + ' + 'tb_InsideAFolder_gbDir_22 + ' + Me.tb_InsideAFolder_gbDir_22.Enabled = False + Me.tb_InsideAFolder_gbDir_22.Location = New System.Drawing.Point(240, 60) + Me.tb_InsideAFolder_gbDir_22.Name = "tb_InsideAFolder_gbDir_22" + Me.tb_InsideAFolder_gbDir_22.Size = New System.Drawing.Size(292, 20) + Me.tb_InsideAFolder_gbDir_22.TabIndex = 7 + ' + 'tb_InsideAFolder_gbDir_2 + ' + Me.tb_InsideAFolder_gbDir_2.Enabled = False + Me.tb_InsideAFolder_gbDir_2.Location = New System.Drawing.Point(95, 60) + Me.tb_InsideAFolder_gbDir_2.Name = "tb_InsideAFolder_gbDir_2" + Me.tb_InsideAFolder_gbDir_2.Size = New System.Drawing.Size(100, 20) + Me.tb_InsideAFolder_gbDir_2.TabIndex = 6 + ' + 'lbl_InsideAFolder_gbDir_2 + ' + Me.lbl_InsideAFolder_gbDir_2.AutoSize = True + Me.lbl_InsideAFolder_gbDir_2.Enabled = False + Me.lbl_InsideAFolder_gbDir_2.Location = New System.Drawing.Point(44, 63) + Me.lbl_InsideAFolder_gbDir_2.Name = "lbl_InsideAFolder_gbDir_2" + Me.lbl_InsideAFolder_gbDir_2.Size = New System.Drawing.Size(194, 13) + Me.lbl_InsideAFolder_gbDir_2.TabIndex = 8 + Me.lbl_InsideAFolder_gbDir_2.Text = "Nombre: Valor: " + ' + 'tb_InsideAFolder_gbDir_11 + ' + Me.tb_InsideAFolder_gbDir_11.Enabled = False + Me.tb_InsideAFolder_gbDir_11.Location = New System.Drawing.Point(240, 31) + Me.tb_InsideAFolder_gbDir_11.Name = "tb_InsideAFolder_gbDir_11" + Me.tb_InsideAFolder_gbDir_11.Size = New System.Drawing.Size(292, 20) + Me.tb_InsideAFolder_gbDir_11.TabIndex = 4 + ' + 'tb_InsideAFolder_gbDir_1 + ' + Me.tb_InsideAFolder_gbDir_1.Enabled = False + Me.tb_InsideAFolder_gbDir_1.Location = New System.Drawing.Point(95, 31) + Me.tb_InsideAFolder_gbDir_1.Name = "tb_InsideAFolder_gbDir_1" + Me.tb_InsideAFolder_gbDir_1.Size = New System.Drawing.Size(100, 20) + Me.tb_InsideAFolder_gbDir_1.TabIndex = 3 + ' + 'cb_InsideAFolder_gbDir_3 + ' + Me.cb_InsideAFolder_gbDir_3.AutoSize = True + Me.cb_InsideAFolder_gbDir_3.Location = New System.Drawing.Point(6, 91) + Me.cb_InsideAFolder_gbDir_3.Name = "cb_InsideAFolder_gbDir_3" + Me.cb_InsideAFolder_gbDir_3.Size = New System.Drawing.Size(32, 17) + Me.cb_InsideAFolder_gbDir_3.TabIndex = 2 + Me.cb_InsideAFolder_gbDir_3.Text = "3" + Me.cb_InsideAFolder_gbDir_3.UseVisualStyleBackColor = True + ' + 'cb_InsideAFolder_gbDir_2 + ' + Me.cb_InsideAFolder_gbDir_2.AutoSize = True + Me.cb_InsideAFolder_gbDir_2.Location = New System.Drawing.Point(6, 62) + Me.cb_InsideAFolder_gbDir_2.Name = "cb_InsideAFolder_gbDir_2" + Me.cb_InsideAFolder_gbDir_2.Size = New System.Drawing.Size(32, 17) + Me.cb_InsideAFolder_gbDir_2.TabIndex = 1 + Me.cb_InsideAFolder_gbDir_2.Text = "2" + Me.cb_InsideAFolder_gbDir_2.UseVisualStyleBackColor = True + ' + 'cb_InsideAFolder_gbDir_1 + ' + Me.cb_InsideAFolder_gbDir_1.AutoSize = True + Me.cb_InsideAFolder_gbDir_1.Location = New System.Drawing.Point(6, 33) + Me.cb_InsideAFolder_gbDir_1.Name = "cb_InsideAFolder_gbDir_1" + Me.cb_InsideAFolder_gbDir_1.Size = New System.Drawing.Size(32, 17) + Me.cb_InsideAFolder_gbDir_1.TabIndex = 0 + Me.cb_InsideAFolder_gbDir_1.Text = "1" + Me.cb_InsideAFolder_gbDir_1.UseVisualStyleBackColor = True + ' + 'lbl_InsideAFolder_gbDir_1 + ' + Me.lbl_InsideAFolder_gbDir_1.AutoSize = True + Me.lbl_InsideAFolder_gbDir_1.Enabled = False + Me.lbl_InsideAFolder_gbDir_1.Location = New System.Drawing.Point(44, 34) + Me.lbl_InsideAFolder_gbDir_1.Name = "lbl_InsideAFolder_gbDir_1" + Me.lbl_InsideAFolder_gbDir_1.Size = New System.Drawing.Size(194, 13) + Me.lbl_InsideAFolder_gbDir_1.TabIndex = 5 + Me.lbl_InsideAFolder_gbDir_1.Text = "Nombre: Valor: " + ' + 'cb_InsideAFolder_Dir_GetLocation + ' + Me.cb_InsideAFolder_Dir_GetLocation.AutoSize = True + Me.cb_InsideAFolder_Dir_GetLocation.Location = New System.Drawing.Point(20, 23) + Me.cb_InsideAFolder_Dir_GetLocation.Name = "cb_InsideAFolder_Dir_GetLocation" + Me.cb_InsideAFolder_Dir_GetLocation.Size = New System.Drawing.Size(87, 17) + Me.cb_InsideAFolder_Dir_GetLocation.TabIndex = 6 + Me.cb_InsideAFolder_Dir_GetLocation.Text = "Get Location" + Me.cb_InsideAFolder_Dir_GetLocation.UseVisualStyleBackColor = True + ' 'cb_InsideAFolder_Dir_OpenIn ' - Me.cb_InsideAFolder_Dir_OpenIn.Anchor = System.Windows.Forms.AnchorStyles.None Me.cb_InsideAFolder_Dir_OpenIn.AutoSize = True Me.cb_InsideAFolder_Dir_OpenIn.Location = New System.Drawing.Point(20, 46) Me.cb_InsideAFolder_Dir_OpenIn.Name = "cb_InsideAFolder_Dir_OpenIn" @@ -199,7 +531,6 @@ Partial Class Main ' 'cb_InsideAFolder_Dir_OpenIn_InCommandPrompt ' - Me.cb_InsideAFolder_Dir_OpenIn_InCommandPrompt.Anchor = System.Windows.Forms.AnchorStyles.None Me.cb_InsideAFolder_Dir_OpenIn_InCommandPrompt.AutoSize = True Me.cb_InsideAFolder_Dir_OpenIn_InCommandPrompt.Enabled = False Me.cb_InsideAFolder_Dir_OpenIn_InCommandPrompt.Location = New System.Drawing.Point(35, 69) @@ -211,7 +542,6 @@ Partial Class Main ' 'cb_InsideAFolder_Dir_OpenIn_InOther ' - Me.cb_InsideAFolder_Dir_OpenIn_InOther.Anchor = System.Windows.Forms.AnchorStyles.None Me.cb_InsideAFolder_Dir_OpenIn_InOther.AutoSize = True Me.cb_InsideAFolder_Dir_OpenIn_InOther.Enabled = False Me.cb_InsideAFolder_Dir_OpenIn_InOther.Location = New System.Drawing.Point(35, 138) @@ -236,7 +566,6 @@ Partial Class Main ' 'cb_InsideAFolder_Dir_OpenIn_InPowerShell ' - Me.cb_InsideAFolder_Dir_OpenIn_InPowerShell.Anchor = System.Windows.Forms.AnchorStyles.None Me.cb_InsideAFolder_Dir_OpenIn_InPowerShell.AutoSize = True Me.cb_InsideAFolder_Dir_OpenIn_InPowerShell.Enabled = False Me.cb_InsideAFolder_Dir_OpenIn_InPowerShell.Location = New System.Drawing.Point(35, 115) @@ -258,11 +587,8 @@ Partial Class Main ' 'TabPage3 ' + Me.TabPage3.Controls.Add(Me.gbFiles_FileSelect) Me.TabPage3.Controls.Add(Me.tc_btn_File_Apply) - Me.TabPage3.Controls.Add(Me.cbFile_OpenWith_Other) - Me.TabPage3.Controls.Add(Me.cbFile_OpenWith_Notepad) - Me.TabPage3.Controls.Add(Me.cbFile_OpenWith) - Me.TabPage3.Controls.Add(Me.cbFile_GetLocation) Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Name = "TabPage3" Me.TabPage3.Size = New System.Drawing.Size(752, 411) @@ -270,22 +596,174 @@ Partial Class Main Me.TabPage3.Text = "Archivos" Me.TabPage3.UseVisualStyleBackColor = True ' - 'tc_btn_File_Apply + 'gbFiles_FileSelect + ' + Me.gbFiles_FileSelect.Controls.Add(Me.gbFiles_FileSelect_gbOthers) + Me.gbFiles_FileSelect.Controls.Add(Me.cbFile_GetLocation) + Me.gbFiles_FileSelect.Controls.Add(Me.cbFile_OpenWith) + Me.gbFiles_FileSelect.Controls.Add(Me.cbFile_OpenWith_Other) + Me.gbFiles_FileSelect.Controls.Add(Me.cbFile_OpenWith_Notepad) + Me.gbFiles_FileSelect.Location = New System.Drawing.Point(289, 6) + Me.gbFiles_FileSelect.Name = "gbFiles_FileSelect" + Me.gbFiles_FileSelect.Size = New System.Drawing.Size(174, 159) + Me.gbFiles_FileSelect.TabIndex = 5 + Me.gbFiles_FileSelect.TabStop = False + Me.gbFiles_FileSelect.Text = "Files" + ' + 'gbFiles_FileSelect_gbOthers + ' + Me.gbFiles_FileSelect_gbOthers.Controls.Add(Me.tbFile_gbFile_33) + Me.gbFiles_FileSelect_gbOthers.Controls.Add(Me.tbFile_gbFile_3) + Me.gbFiles_FileSelect_gbOthers.Controls.Add(Me.lblFile_gbFile_3) + Me.gbFiles_FileSelect_gbOthers.Controls.Add(Me.tbFile_gbFile_22) + Me.gbFiles_FileSelect_gbOthers.Controls.Add(Me.tbFile_gbFile_2) + Me.gbFiles_FileSelect_gbOthers.Controls.Add(Me.lblFile_gbFile_2) + Me.gbFiles_FileSelect_gbOthers.Controls.Add(Me.tbFile_gbFile_11) + Me.gbFiles_FileSelect_gbOthers.Controls.Add(Me.tbFile_gbFile_1) + Me.gbFiles_FileSelect_gbOthers.Controls.Add(Me.cbFile_gbFile_3) + Me.gbFiles_FileSelect_gbOthers.Controls.Add(Me.cbFile_gbFile_2) + Me.gbFiles_FileSelect_gbOthers.Controls.Add(Me.cbFile_gbFile_1) + Me.gbFiles_FileSelect_gbOthers.Controls.Add(Me.lblFile_gbFile_1) + Me.gbFiles_FileSelect_gbOthers.Location = New System.Drawing.Point(195, 19) + Me.gbFiles_FileSelect_gbOthers.Name = "gbFiles_FileSelect_gbOthers" + Me.gbFiles_FileSelect_gbOthers.Size = New System.Drawing.Size(539, 134) + Me.gbFiles_FileSelect_gbOthers.TabIndex = 8 + Me.gbFiles_FileSelect_gbOthers.TabStop = False + Me.gbFiles_FileSelect_gbOthers.Text = "Others" + ' + 'tbFile_gbFile_33 + ' + Me.tbFile_gbFile_33.Enabled = False + Me.tbFile_gbFile_33.Location = New System.Drawing.Point(240, 89) + Me.tbFile_gbFile_33.Name = "tbFile_gbFile_33" + Me.tbFile_gbFile_33.Size = New System.Drawing.Size(292, 20) + Me.tbFile_gbFile_33.TabIndex = 22 + ' + 'tbFile_gbFile_3 + ' + Me.tbFile_gbFile_3.Enabled = False + Me.tbFile_gbFile_3.Location = New System.Drawing.Point(95, 89) + Me.tbFile_gbFile_3.Name = "tbFile_gbFile_3" + Me.tbFile_gbFile_3.Size = New System.Drawing.Size(100, 20) + Me.tbFile_gbFile_3.TabIndex = 21 + ' + 'lblFile_gbFile_3 + ' + Me.lblFile_gbFile_3.AutoSize = True + Me.lblFile_gbFile_3.Enabled = False + Me.lblFile_gbFile_3.Location = New System.Drawing.Point(44, 92) + Me.lblFile_gbFile_3.Name = "lblFile_gbFile_3" + Me.lblFile_gbFile_3.Size = New System.Drawing.Size(194, 13) + Me.lblFile_gbFile_3.TabIndex = 23 + Me.lblFile_gbFile_3.Text = "Nombre: Valor: " + ' + 'tbFile_gbFile_22 + ' + Me.tbFile_gbFile_22.Enabled = False + Me.tbFile_gbFile_22.Location = New System.Drawing.Point(240, 60) + Me.tbFile_gbFile_22.Name = "tbFile_gbFile_22" + Me.tbFile_gbFile_22.Size = New System.Drawing.Size(292, 20) + Me.tbFile_gbFile_22.TabIndex = 19 + ' + 'tbFile_gbFile_2 + ' + Me.tbFile_gbFile_2.Enabled = False + Me.tbFile_gbFile_2.Location = New System.Drawing.Point(95, 60) + Me.tbFile_gbFile_2.Name = "tbFile_gbFile_2" + Me.tbFile_gbFile_2.Size = New System.Drawing.Size(100, 20) + Me.tbFile_gbFile_2.TabIndex = 18 + ' + 'lblFile_gbFile_2 + ' + Me.lblFile_gbFile_2.AutoSize = True + Me.lblFile_gbFile_2.Enabled = False + Me.lblFile_gbFile_2.Location = New System.Drawing.Point(44, 63) + Me.lblFile_gbFile_2.Name = "lblFile_gbFile_2" + Me.lblFile_gbFile_2.Size = New System.Drawing.Size(194, 13) + Me.lblFile_gbFile_2.TabIndex = 20 + Me.lblFile_gbFile_2.Text = "Nombre: Valor: " + ' + 'tbFile_gbFile_11 + ' + Me.tbFile_gbFile_11.Enabled = False + Me.tbFile_gbFile_11.Location = New System.Drawing.Point(240, 31) + Me.tbFile_gbFile_11.Name = "tbFile_gbFile_11" + Me.tbFile_gbFile_11.Size = New System.Drawing.Size(292, 20) + Me.tbFile_gbFile_11.TabIndex = 16 + ' + 'tbFile_gbFile_1 + ' + Me.tbFile_gbFile_1.Enabled = False + Me.tbFile_gbFile_1.Location = New System.Drawing.Point(95, 31) + Me.tbFile_gbFile_1.Name = "tbFile_gbFile_1" + Me.tbFile_gbFile_1.Size = New System.Drawing.Size(100, 20) + Me.tbFile_gbFile_1.TabIndex = 15 + ' + 'cbFile_gbFile_3 + ' + Me.cbFile_gbFile_3.AutoSize = True + Me.cbFile_gbFile_3.Location = New System.Drawing.Point(6, 91) + Me.cbFile_gbFile_3.Name = "cbFile_gbFile_3" + Me.cbFile_gbFile_3.Size = New System.Drawing.Size(32, 17) + Me.cbFile_gbFile_3.TabIndex = 14 + Me.cbFile_gbFile_3.Text = "3" + Me.cbFile_gbFile_3.UseVisualStyleBackColor = True + ' + 'cbFile_gbFile_2 + ' + Me.cbFile_gbFile_2.AutoSize = True + Me.cbFile_gbFile_2.Location = New System.Drawing.Point(6, 62) + Me.cbFile_gbFile_2.Name = "cbFile_gbFile_2" + Me.cbFile_gbFile_2.Size = New System.Drawing.Size(32, 17) + Me.cbFile_gbFile_2.TabIndex = 13 + Me.cbFile_gbFile_2.Text = "2" + Me.cbFile_gbFile_2.UseVisualStyleBackColor = True + ' + 'cbFile_gbFile_1 + ' + Me.cbFile_gbFile_1.AutoSize = True + Me.cbFile_gbFile_1.Location = New System.Drawing.Point(6, 33) + Me.cbFile_gbFile_1.Name = "cbFile_gbFile_1" + Me.cbFile_gbFile_1.Size = New System.Drawing.Size(32, 17) + Me.cbFile_gbFile_1.TabIndex = 12 + Me.cbFile_gbFile_1.Text = "1" + Me.cbFile_gbFile_1.UseVisualStyleBackColor = True + ' + 'lblFile_gbFile_1 + ' + Me.lblFile_gbFile_1.AutoSize = True + Me.lblFile_gbFile_1.Enabled = False + Me.lblFile_gbFile_1.Location = New System.Drawing.Point(44, 34) + Me.lblFile_gbFile_1.Name = "lblFile_gbFile_1" + Me.lblFile_gbFile_1.Size = New System.Drawing.Size(194, 13) + Me.lblFile_gbFile_1.TabIndex = 17 + Me.lblFile_gbFile_1.Text = "Nombre: Valor: " ' - Me.tc_btn_File_Apply.Anchor = System.Windows.Forms.AnchorStyles.Bottom - Me.tc_btn_File_Apply.Location = New System.Drawing.Point(297, 369) - Me.tc_btn_File_Apply.Name = "tc_btn_File_Apply" - Me.tc_btn_File_Apply.Size = New System.Drawing.Size(158, 39) - Me.tc_btn_File_Apply.TabIndex = 4 - Me.tc_btn_File_Apply.Text = "Apply" - Me.tc_btn_File_Apply.UseVisualStyleBackColor = True + 'cbFile_GetLocation + ' + Me.cbFile_GetLocation.AutoSize = True + Me.cbFile_GetLocation.Location = New System.Drawing.Point(20, 23) + Me.cbFile_GetLocation.Name = "cbFile_GetLocation" + Me.cbFile_GetLocation.Size = New System.Drawing.Size(83, 17) + Me.cbFile_GetLocation.TabIndex = 0 + Me.cbFile_GetLocation.Text = "Get location" + Me.cbFile_GetLocation.UseVisualStyleBackColor = True + ' + 'cbFile_OpenWith + ' + Me.cbFile_OpenWith.AutoSize = True + Me.cbFile_OpenWith.Location = New System.Drawing.Point(20, 46) + Me.cbFile_OpenWith.Name = "cbFile_OpenWith" + Me.cbFile_OpenWith.Size = New System.Drawing.Size(74, 17) + Me.cbFile_OpenWith.TabIndex = 1 + Me.cbFile_OpenWith.Text = "Open with" + Me.cbFile_OpenWith.UseVisualStyleBackColor = True ' 'cbFile_OpenWith_Other ' - Me.cbFile_OpenWith_Other.Anchor = System.Windows.Forms.AnchorStyles.None Me.cbFile_OpenWith_Other.AutoSize = True Me.cbFile_OpenWith_Other.Enabled = False - Me.cbFile_OpenWith_Other.Location = New System.Drawing.Point(344, 231) + Me.cbFile_OpenWith_Other.Location = New System.Drawing.Point(35, 92) Me.cbFile_OpenWith_Other.Name = "cbFile_OpenWith_Other" Me.cbFile_OpenWith_Other.Size = New System.Drawing.Size(50, 17) Me.cbFile_OpenWith_Other.TabIndex = 3 @@ -294,38 +772,25 @@ Partial Class Main ' 'cbFile_OpenWith_Notepad ' - Me.cbFile_OpenWith_Notepad.Anchor = System.Windows.Forms.AnchorStyles.None Me.cbFile_OpenWith_Notepad.AutoSize = True Me.cbFile_OpenWith_Notepad.Checked = True Me.cbFile_OpenWith_Notepad.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbFile_OpenWith_Notepad.Location = New System.Drawing.Point(344, 208) + Me.cbFile_OpenWith_Notepad.Location = New System.Drawing.Point(35, 69) Me.cbFile_OpenWith_Notepad.Name = "cbFile_OpenWith_Notepad" Me.cbFile_OpenWith_Notepad.Size = New System.Drawing.Size(67, 17) Me.cbFile_OpenWith_Notepad.TabIndex = 2 Me.cbFile_OpenWith_Notepad.Text = "Notepad" Me.cbFile_OpenWith_Notepad.UseVisualStyleBackColor = True ' - 'cbFile_OpenWith - ' - Me.cbFile_OpenWith.Anchor = System.Windows.Forms.AnchorStyles.None - Me.cbFile_OpenWith.AutoSize = True - Me.cbFile_OpenWith.Location = New System.Drawing.Point(335, 185) - Me.cbFile_OpenWith.Name = "cbFile_OpenWith" - Me.cbFile_OpenWith.Size = New System.Drawing.Size(74, 17) - Me.cbFile_OpenWith.TabIndex = 1 - Me.cbFile_OpenWith.Text = "Open with" - Me.cbFile_OpenWith.UseVisualStyleBackColor = True - ' - 'cbFile_GetLocation + 'tc_btn_File_Apply ' - Me.cbFile_GetLocation.Anchor = System.Windows.Forms.AnchorStyles.None - Me.cbFile_GetLocation.AutoSize = True - Me.cbFile_GetLocation.Location = New System.Drawing.Point(335, 162) - Me.cbFile_GetLocation.Name = "cbFile_GetLocation" - Me.cbFile_GetLocation.Size = New System.Drawing.Size(83, 17) - Me.cbFile_GetLocation.TabIndex = 0 - Me.cbFile_GetLocation.Text = "Get location" - Me.cbFile_GetLocation.UseVisualStyleBackColor = True + Me.tc_btn_File_Apply.Anchor = System.Windows.Forms.AnchorStyles.Bottom + Me.tc_btn_File_Apply.Location = New System.Drawing.Point(297, 369) + Me.tc_btn_File_Apply.Name = "tc_btn_File_Apply" + Me.tc_btn_File_Apply.Size = New System.Drawing.Size(158, 39) + Me.tc_btn_File_Apply.TabIndex = 4 + Me.tc_btn_File_Apply.Text = "Apply" + Me.tc_btn_File_Apply.UseVisualStyleBackColor = True ' 'Notifyer ' @@ -333,26 +798,6 @@ Partial Class Main Me.Notifyer.Icon = CType(resources.GetObject("Notifyer.Icon"), System.Drawing.Icon) Me.Notifyer.Visible = True ' - 'cb_InsideAFolder_Dir_GetLocation - ' - Me.cb_InsideAFolder_Dir_GetLocation.AutoSize = True - Me.cb_InsideAFolder_Dir_GetLocation.Location = New System.Drawing.Point(20, 23) - Me.cb_InsideAFolder_Dir_GetLocation.Name = "cb_InsideAFolder_Dir_GetLocation" - Me.cb_InsideAFolder_Dir_GetLocation.Size = New System.Drawing.Size(87, 17) - Me.cb_InsideAFolder_Dir_GetLocation.TabIndex = 6 - Me.cb_InsideAFolder_Dir_GetLocation.Text = "Get Location" - Me.cb_InsideAFolder_Dir_GetLocation.UseVisualStyleBackColor = True - ' - 'cb_SelectAFolder_Dir_GetLocation - ' - Me.cb_SelectAFolder_Dir_GetLocation.AutoSize = True - Me.cb_SelectAFolder_Dir_GetLocation.Location = New System.Drawing.Point(20, 23) - Me.cb_SelectAFolder_Dir_GetLocation.Name = "cb_SelectAFolder_Dir_GetLocation" - Me.cb_SelectAFolder_Dir_GetLocation.Size = New System.Drawing.Size(87, 17) - Me.cb_SelectAFolder_Dir_GetLocation.TabIndex = 7 - Me.cb_SelectAFolder_Dir_GetLocation.Text = "Get Location" - Me.cb_SelectAFolder_Dir_GetLocation.UseVisualStyleBackColor = True - ' 'Main ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -366,13 +811,21 @@ Partial Class Main Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Main" Me.TabControl1.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) Me.TabPage2.ResumeLayout(False) Me.gbDir_SelectingAFolder.ResumeLayout(False) Me.gbDir_SelectingAFolder.PerformLayout() + Me.gbDir_SelectingAFolder_gbOthers.ResumeLayout(False) + Me.gbDir_SelectingAFolder_gbOthers.PerformLayout() Me.gbDir_InsideAFolder.ResumeLayout(False) Me.gbDir_InsideAFolder.PerformLayout() + Me.gbDir_InsideAFolder_gbOthers.ResumeLayout(False) + Me.gbDir_InsideAFolder_gbOthers.PerformLayout() Me.TabPage3.ResumeLayout(False) - Me.TabPage3.PerformLayout() + Me.gbFiles_FileSelect.ResumeLayout(False) + Me.gbFiles_FileSelect.PerformLayout() + Me.gbFiles_FileSelect_gbOthers.ResumeLayout(False) + Me.gbFiles_FileSelect_gbOthers.PerformLayout() Me.ResumeLayout(False) End Sub @@ -402,4 +855,45 @@ Partial Class Main Friend WithEvents cb_SelectAFolder_Dir_OpenIn_InPowerShell As CheckBox Friend WithEvents cb_SelectAFolder_Dir_GetLocation As CheckBox Friend WithEvents cb_InsideAFolder_Dir_GetLocation As CheckBox + Friend WithEvents tb_btn_MenuEditor As Button + Friend WithEvents gbDir_InsideAFolder_gbOthers As GroupBox + Friend WithEvents gbDir_SelectingAFolder_gbOthers As GroupBox + Friend WithEvents gbFiles_FileSelect As GroupBox + Friend WithEvents gbFiles_FileSelect_gbOthers As GroupBox + Friend WithEvents cb_InsideAFolder_gbDir_3 As CheckBox + Friend WithEvents cb_InsideAFolder_gbDir_2 As CheckBox + Friend WithEvents cb_InsideAFolder_gbDir_1 As CheckBox + Friend WithEvents tb_InsideAFolder_gbDir_11 As TextBox + Friend WithEvents tb_InsideAFolder_gbDir_1 As TextBox + Friend WithEvents lbl_InsideAFolder_gbDir_1 As Label + Friend WithEvents tb_InsideAFolder_gbDir_33 As TextBox + Friend WithEvents tb_InsideAFolder_gbDir_3 As TextBox + Friend WithEvents lbl_InsideAFolder_gbDir_3 As Label + Friend WithEvents tb_InsideAFolder_gbDir_22 As TextBox + Friend WithEvents tb_InsideAFolder_gbDir_2 As TextBox + Friend WithEvents lbl_InsideAFolder_gbDir_2 As Label + Friend WithEvents tb_SelectAFolder_gbDir_33 As TextBox + Friend WithEvents tb_SelectAFolder_gbDir_3 As TextBox + Friend WithEvents lbl_SelectAFolder_gbDir_3 As Label + Friend WithEvents tb_SelectAFolder_gbDir_22 As TextBox + Friend WithEvents tb_SelectAFolder_gbDir_2 As TextBox + Friend WithEvents lbl_SelectAFolder_gbDir_2 As Label + Friend WithEvents tb_SelectAFolder_gbDir_11 As TextBox + Friend WithEvents tb_SelectAFolder_gbDir_1 As TextBox + Friend WithEvents cb_SelectAFolder_gbDir_3 As CheckBox + Friend WithEvents cb_SelectAFolder_gbDir_2 As CheckBox + Friend WithEvents cb_SelectAFolder_gbDir_1 As CheckBox + Friend WithEvents lbl_SelectAFolder_gbDir_1 As Label + Friend WithEvents tbFile_gbFile_33 As TextBox + Friend WithEvents tbFile_gbFile_3 As TextBox + Friend WithEvents lblFile_gbFile_3 As Label + Friend WithEvents tbFile_gbFile_22 As TextBox + Friend WithEvents tbFile_gbFile_2 As TextBox + Friend WithEvents lblFile_gbFile_2 As Label + Friend WithEvents tbFile_gbFile_11 As TextBox + Friend WithEvents tbFile_gbFile_1 As TextBox + Friend WithEvents cbFile_gbFile_3 As CheckBox + Friend WithEvents cbFile_gbFile_2 As CheckBox + Friend WithEvents cbFile_gbFile_1 As CheckBox + Friend WithEvents lblFile_gbFile_1 As Label End Class diff --git a/DevToolMenu/Main.vb b/DevToolMenu/Main.vb index 567adae..1c5a41d 100644 --- a/DevToolMenu/Main.vb +++ b/DevToolMenu/Main.vb @@ -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 @@ -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() @@ -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 @@ -55,16 +101,31 @@ 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 @@ -72,7 +133,6 @@ Else Create_GetLocation(True) End If - If cbFile_OpenWith.CheckState = CheckState.Checked Then Create_OpenWith() If cbFile_OpenWith_Notepad.CheckState = CheckState.Checked Then @@ -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 @@ -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 \ No newline at end of file diff --git a/DevToolMenu/MenuEditor.Designer.vb b/DevToolMenu/MenuEditor.Designer.vb new file mode 100644 index 0000000..0f83a74 --- /dev/null +++ b/DevToolMenu/MenuEditor.Designer.vb @@ -0,0 +1,114 @@ + _ +Partial Class MenuEditor + Inherits System.Windows.Forms.Form + + 'Form reemplaza a Dispose para limpiar la lista de componentes. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Requerido por el Diseñador de Windows Forms + Private components As System.ComponentModel.IContainer + + 'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento + 'Se puede modificar usando el Diseñador de Windows Forms. + 'No lo modifique con el editor de código. + _ + Private Sub InitializeComponent() + Me.lb_Menus = New System.Windows.Forms.ListBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.btn_Edit = New System.Windows.Forms.Button() + Me.btn_Create = New System.Windows.Forms.Button() + Me.btn_Delete = New System.Windows.Forms.Button() + Me.btn_Save = New System.Windows.Forms.Button() + Me.SuspendLayout() + ' + 'lb_Menus + ' + Me.lb_Menus.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.lb_Menus.FormattingEnabled = True + Me.lb_Menus.Location = New System.Drawing.Point(12, 71) + Me.lb_Menus.Name = "lb_Menus" + Me.lb_Menus.Size = New System.Drawing.Size(182, 355) + Me.lb_Menus.TabIndex = 0 + ' + 'GroupBox1 + ' + Me.GroupBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.GroupBox1.Location = New System.Drawing.Point(281, 70) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(507, 368) + Me.GroupBox1.TabIndex = 1 + Me.GroupBox1.TabStop = False + ' + 'btn_Edit + ' + Me.btn_Edit.Location = New System.Drawing.Point(200, 89) + Me.btn_Edit.Name = "btn_Edit" + Me.btn_Edit.Size = New System.Drawing.Size(75, 23) + Me.btn_Edit.TabIndex = 3 + Me.btn_Edit.Text = "Edit" + Me.btn_Edit.UseVisualStyleBackColor = True + ' + 'btn_Create + ' + Me.btn_Create.Location = New System.Drawing.Point(200, 156) + Me.btn_Create.Name = "btn_Create" + Me.btn_Create.Size = New System.Drawing.Size(75, 23) + Me.btn_Create.TabIndex = 1 + Me.btn_Create.Text = "Create" + Me.btn_Create.UseVisualStyleBackColor = True + ' + 'btn_Delete + ' + Me.btn_Delete.Location = New System.Drawing.Point(200, 185) + Me.btn_Delete.Name = "btn_Delete" + Me.btn_Delete.Size = New System.Drawing.Size(75, 23) + Me.btn_Delete.TabIndex = 2 + Me.btn_Delete.Text = "Delete" + Me.btn_Delete.UseVisualStyleBackColor = True + ' + 'btn_Save + ' + Me.btn_Save.Location = New System.Drawing.Point(200, 118) + Me.btn_Save.Name = "btn_Save" + Me.btn_Save.Size = New System.Drawing.Size(75, 23) + Me.btn_Save.TabIndex = 4 + Me.btn_Save.Text = "Save" + Me.btn_Save.UseVisualStyleBackColor = True + ' + 'MenuEditor + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(800, 450) + Me.Controls.Add(Me.btn_Save) + Me.Controls.Add(Me.btn_Delete) + Me.Controls.Add(Me.btn_Create) + Me.Controls.Add(Me.btn_Edit) + Me.Controls.Add(Me.GroupBox1) + Me.Controls.Add(Me.lb_Menus) + Me.Name = "MenuEditor" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "MenuEditor" + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents lb_Menus As ListBox + Friend WithEvents GroupBox1 As GroupBox + Friend WithEvents btn_Edit As Button + Friend WithEvents btn_Create As Button + Friend WithEvents btn_Delete As Button + Friend WithEvents btn_Save As Button +End Class diff --git a/DevToolMenu/MenuEditor.resx b/DevToolMenu/MenuEditor.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/DevToolMenu/MenuEditor.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/DevToolMenu/MenuEditor.vb b/DevToolMenu/MenuEditor.vb new file mode 100644 index 0000000..c6d1124 --- /dev/null +++ b/DevToolMenu/MenuEditor.vb @@ -0,0 +1,63 @@ +Public Class MenuEditor + Dim MenusArray As New ArrayList + + Private Sub MenuEditor_Load(sender As Object, e As EventArgs) Handles MyBase.Load + IndexTheMenus() + End Sub + + Sub IndexTheMenus() + Try + MenusArray.Clear() + 'Indexa los archivos .ini que se encuentren en el directorio \Menus + For Each Item As String In My.Computer.FileSystem.GetFiles(DIRCommons & "\Menus") + Dim fileName As String = Item.Remove(0, Item.LastIndexOf("\") + 1) + fileName = fileName.Replace(".ini", Nothing) + If Item.Contains(".ini") Then + MenusArray.Add(Item) + lb_Menus.Items.Add(fileName) + End If + Next + Catch ex As Exception + AddToLog("IndexTheMenus", "Error: " & ex.Message, True) + End Try + End Sub + + Sub CreateNewMenu(ByVal name As String) + Dim filePath As String = DIRCommons & "\Menus\" & name & ".ini" + Try + If My.Computer.FileSystem.FileExists(filePath) Then + My.Computer.FileSystem.DeleteFile(filePath) + End If + + Dim Formato As String = "# DevToolMenu Menu Config File" + + Catch ex As Exception + AddToLog("IndexTheMenus", "Error: " & ex.Message, True) + End Try + End Sub + +#Region "Controles" + Private Sub btn_Edit_Click(sender As Object, e As EventArgs) Handles btn_Edit.Click + + End Sub + Private Sub btn_Save_Click(sender As Object, e As EventArgs) Handles btn_Save.Click + + End Sub + + Private Sub btn_Create_Click(sender As Object, e As EventArgs) Handles btn_Create.Click + Dim MenuName = InputBox("Ingrese el nombre para el nuevo menu", "Ingresar nombre") + If MenuName <> Nothing Then + CreateNewMenu(MenuName) + End If + End Sub + Private Sub btn_Delete_Click(sender As Object, e As EventArgs) Handles btn_Delete.Click + If MessageBox.Show("¿Seguro de que quiere eliminar '" & lb_Menus.SelectedItem & "'?", "Eliminar menu", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then + My.Computer.FileSystem.DeleteFile(DIRCommons & "\Menus\" & lb_Menus.SelectedItem & ".ini") + MenusArray.RemoveAt(lb_Menus.SelectedIndex) + lb_Menus.Items.Remove(lb_Menus.SelectedItem) + IndexTheMenus() + End If + End Sub +#End Region +End Class +'Se supone que este coso es para editar los que fueron creados desde Directorios y Archivos, y tambien para crear nuevos \ No newline at end of file diff --git a/DevToolMenu/My Project/AssemblyInfo.vb b/DevToolMenu/My Project/AssemblyInfo.vb index 14e7df0..befb9dd 100644 --- a/DevToolMenu/My Project/AssemblyInfo.vb +++ b/DevToolMenu/My Project/AssemblyInfo.vb @@ -9,8 +9,8 @@ Imports System.Runtime.InteropServices ' Revisar los valores de los atributos del ensamblado - - + + @@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices ' mediante el carácter '*', como se muestra a continuación: ' - - + +