| blob | 6b8637a7f0451315f70d28c1ea198bde1415ff6a |
1 VERSION 5.00\r
2 Begin VB.Form frmPrincipal \r
3 Caption = "P10XB 1.0 Beta 4"\r
4 ClientHeight = 7230\r
5 ClientLeft = 60\r
6 ClientTop = 450\r
7 ClientWidth = 11175\r
8 LinkTopic = "Form1"\r
9 MaxButton = 0 'False\r
10 ScaleHeight = 7230\r
11 ScaleWidth = 11175\r
12 StartUpPosition = 3 'Windows Default\r
13 Begin VB.CheckBox chkCoincidencia \r
14 Caption = "Mostrar coincidencia"\r
15 Height = 270\r
16 Left = 5475\r
17 TabIndex = 7\r
18 Top = 480\r
19 Width = 1800\r
20 End\r
21 Begin VB.CheckBox chkEjec \r
22 Caption = "Ofrecer ejecución"\r
23 Height = 270\r
24 Left = 7560\r
25 TabIndex = 6\r
26 Top = 480\r
27 Width = 1620\r
28 End\r
29 Begin VB.CommandButton cmdReabrir \r
30 Caption = "Re-Abrir"\r
31 Enabled = 0 'False\r
32 Height = 360\r
33 Left = 9885\r
34 TabIndex = 5\r
35 Top = 450\r
36 Width = 1215\r
37 End\r
38 Begin VB.CheckBox chkASC \r
39 Caption = "Agregar muestra en ASCII"\r
40 Height = 270\r
41 Left = 75\r
42 TabIndex = 4\r
43 Top = 480\r
44 Width = 2640\r
45 End\r
46 Begin VB.CheckBox chkHex \r
47 Caption = "Agregar muestra en HEX"\r
48 Height = 270\r
49 Left = 2745\r
50 TabIndex = 3\r
51 Top = 480\r
52 Width = 2640\r
53 End\r
54 Begin VB.TextBox txtInfo \r
55 BeginProperty Font \r
56 Name = "Courier New"\r
57 Size = 8.25\r
58 Charset = 0\r
59 Weight = 400\r
60 Underline = 0 'False\r
61 Italic = 0 'False\r
62 Strikethrough = 0 'False\r
63 EndProperty\r
64 Height = 6315\r
65 Left = 75\r
66 Locked = -1 'True\r
67 MultiLine = -1 'True\r
68 ScrollBars = 2 'Vertical\r
69 TabIndex = 2\r
70 Top = 840\r
71 Width = 11040\r
72 End\r
73 Begin VB.TextBox txtArchivo \r
74 Height = 360\r
75 Left = 75\r
76 Locked = -1 'True\r
77 TabIndex = 1\r
78 Top = 45\r
79 Width = 9750\r
80 End\r
81 Begin VB.CommandButton cmdBuscar \r
82 Caption = "Abrir"\r
83 Height = 360\r
84 Left = 9900\r
85 TabIndex = 0\r
86 Top = 45\r
87 Width = 1215\r
88 End\r
89 End\r
90 Attribute VB_Name = "frmPrincipal"\r
91 Attribute VB_GlobalNameSpace = False\r
92 Attribute VB_Creatable = False\r
93 Attribute VB_PredeclaredId = True\r
94 Attribute VB_Exposed = False\r
95 Option Explicit\r
96 \r
97 Private Sub chkASC_Click()\r
98 '<EhHeader>\r
99 On Error GoTo chkASC_Click_Err\r
100 '</EhHeader>\r
101 100 Mostrar_AscDump = -chkASC.Value\r
102 '<EhFooter>\r
103 Exit Sub\r
104 chkASC_Click_Err:\r
105 Controlar_Error Erl, Err.Description, "P10XB.frmPrincipal.chkASC_Click.Ref 7/6/2008 : 11:57:58"\r
106 Resume Next\r
107 '</EhFooter>\r
108 End Sub\r
109 \r
110 Private Sub chkCoincidencia_Click()\r
111 '<EhHeader>\r
112 On Error GoTo chkCoincidencia_Click_Err\r
113 '</EhHeader>\r
114 100 Mostrar_Coincidencia = -chkCoincidencia.Value\r
115 '<EhFooter>\r
116 Exit Sub\r
117 chkCoincidencia_Click_Err:\r
118 Controlar_Error Erl, Err.Description, "P10XB.frmPrincipal.chkCoincidencia_Click.Ref 7/6/2008 : 11:57:58"\r
119 Resume Next\r
120 '</EhFooter>\r
121 End Sub\r
122 \r
123 Private Sub chkEjec_Click()\r
124 '<EhHeader>\r
125 On Error GoTo chkEjec_Click_Err\r
126 '</EhHeader>\r
127 100 Ofrecer_Ejecucion = -chkEjec.Value\r
128 '<EhFooter>\r
129 Exit Sub\r
130 chkEjec_Click_Err:\r
131 Controlar_Error Erl, Err.Description, "P10XB.frmPrincipal.chkEjec_Click.Ref 7/6/2008 : 11:57:58"\r
132 Resume Next\r
133 '</EhFooter>\r
134 End Sub\r
135 \r
136 Private Sub chkHex_Click()\r
137 '<EhHeader>\r
138 On Error GoTo chkHex_Click_Err\r
139 '</EhHeader>\r
140 100 Mostrar_HexDump = -chkHex.Value\r
141 '<EhFooter>\r
142 Exit Sub\r
143 chkHex_Click_Err:\r
144 Controlar_Error Erl, Err.Description, "P10XB.frmPrincipal.chkHex_Click.Ref 7/6/2008 : 11:57:58"\r
145 Resume Next\r
146 '</EhFooter>\r
147 End Sub\r
148 \r
149 Private Sub cmdBuscar_Click()\r
150 '<EhHeader>\r
151 On Error GoTo cmdBuscar_Click_Err\r
152 '</EhHeader>\r
153 Dim pDlg As New cCommonDialog\r
154 Dim Texto As String\r
155 100 If pDlg.VBGetOpenFileName(Archivo, "Seleccione el archivo a procesar", True, False, False, False, , , , "P10XB :: Seleccione su archivo", , hwnd) Then\r
156 101 txtArchivo.Text = Archivo\r
157 102 sIdentificar = Identificar(Archivo)\r
158 103 txtInfo.Text = Escapar_TextBox(sIdentificar.Salida)\r
159 104 cmdReabrir.Enabled = True\r
160 End If\r
161 \r
162 '<EhFooter>\r
163 Exit Sub\r
164 cmdBuscar_Click_Err:\r
165 Controlar_Error Erl, Err.Description, "P10XB.frmPrincipal.cmdBuscar_Click.Ref 7/6/2008 : 11:57:58"\r
166 Resume Next\r
167 '</EhFooter>\r
168 End Sub\r
169 \r
170 Private Sub cmdReabrir_Click()\r
171 '<EhHeader>\r
172 On Error GoTo cmdReabrir_Click_Err\r
173 '</EhHeader>\r
174 100 txtArchivo.Text = Archivo\r
175 101 sIdentificar = Identificar(Archivo)\r
176 102 txtInfo.Text = Escapar_TextBox(sIdentificar.Salida)\r
177 '<EhFooter>\r
178 Exit Sub\r
179 cmdReabrir_Click_Err:\r
180 Controlar_Error Erl, Err.Description, "P10XB.frmPrincipal.cmdReabrir_Click.Ref 7/6/2008 : 11:57:58"\r
181 Resume Next\r
182 '</EhFooter>\r
183 End Sub\r