tag:blogger.com,1999:blog-75018252512576781502024-03-12T19:21:10.887-09:00Martha Elena Ibarra BriseñoDe todo un poco: religión, educación, computación, otrosMartha Elena Ibarra Briseñohttp://www.blogger.com/profile/10730553521883802028noreply@blogger.comBlogger1125tag:blogger.com,1999:blog-7501825251257678150.post-21615160656820321772012-02-03T06:41:00.000-09:002012-02-03T06:41:02.155-09:00Ejemplo de código en VB6<span style="font-size:85%;"><span style="font-family:trebuchet ms;">PENSANDO EN LA SIGUIENTE VENTANA (SIN FIJARSE EN LOS ERRORES DE VISUALIZACIÓN TENEMOS QUE… </span><br />
<br />
<a style="font-family: trebuchet ms;" onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://2.bp.blogspot.com/_4V7yfGcc6zI/SwwTYsjBUII/AAAAAAAAAA4/Z2vZen_tuP4/s1600/Sin+t%C3%ADtulo.jpg"><img style="margin: 0pt 10px 10px 0pt; float: left; cursor: pointer; width: 314px; height: 320px;" src="http://2.bp.blogspot.com/_4V7yfGcc6zI/SwwTYsjBUII/AAAAAAAAAA4/Z2vZen_tuP4/s320/Sin+t%C3%ADtulo.jpg" alt="" id="BLOGGER_PHOTO_ID_5407718567560958082" border="0" /></a><span style="font-family:trebuchet ms;">…LOS CÓDIGOS DE LOS BOTONES SERÍAN: (TOMANDO EN CUENTA QUE LOS OBJETOS NO CAMBIARON DE NOMBRE Y OTROS DETALLES).</span><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<span style="font-family:trebuchet ms;">Private Sub Command1_Click()</span><br />
<span style="font-family:trebuchet ms;">'anadir un nuevo registro vacio</span><br />
<span style="font-family:trebuchet ms;">Data1.Recordset.AddNew</span><br />
<span style="font-family:trebuchet ms;">TEXT1.SetFocus</span><br />
<span style="font-family:trebuchet ms;">End Sub</span><br />
<br />
<span style="font-family:trebuchet ms;">Private Sub Command3_Click()</span><br />
<span style="font-family:trebuchet ms;">Dim aqui As String</span><br />
<span style="font-family:trebuchet ms;"> x = InputBox$("Tecle La clave del registro", "Buscador Abarrotes")</span><br />
<span style="font-family:trebuchet ms;">aqui = "Clave='" + x + "'"</span><br />
<span style="font-family:trebuchet ms;">Data1.Recordset.FindNext aqui</span><br />
<span style="font-family:trebuchet ms;">If Data1.Recordset.NoMatch Then</span><br />
<span style="font-family:trebuchet ms;">MsgBox "No existe el registro"</span><br />
<span style="font-family:trebuchet ms;">End If</span><br />
<span style="font-family:trebuchet ms;">End Sub</span><br />
<br />
<span style="font-family:trebuchet ms;">Private Sub Command4_Click()</span><br />
<span style="font-family:trebuchet ms;">Form2.Show</span><br />
<span style="font-family:trebuchet ms;">Form3.Hide</span><br />
<span style="font-family:trebuchet ms;">End Sub</span><br />
<br />
<span style="font-family:trebuchet ms;">Private Sub Command5_Click()</span><br />
<span style="font-family:trebuchet ms;">Data1.Recordset.Edit</span><br />
<span style="font-family:trebuchet ms;">End Sub</span><br />
<br />
<span style="font-family:trebuchet ms;">Private Sub Command6_Click()</span><br />
<span style="font-family:trebuchet ms;">Dim tipo_msgBox As Integer</span><br />
<span style="font-family:trebuchet ms;">Dim msg As String</span><br />
<span style="font-family:trebuchet ms;">'icono Stop+Acepta+Cancelar=17</span><br />
<span style="font-family:trebuchet ms;">tipo_msgBox = 17</span><br />
<span style="font-family:trebuchet ms;">msg = "¿Esta usted seguro de que quiere borrar el registro?" & Chr$(10)</span><br />
<span style="font-family:trebuchet ms;">msg = msg & TEXT1.Text</span><br />
<span style="font-family:trebuchet ms;">If MsgBox(msg, tipo_msgBox, "¿Borrar Registro?") <> 1 Then</span><br />
<span style="font-family:trebuchet ms;">Exit Sub</span><br />
<span style="font-family:trebuchet ms;">End If</span><br />
<span style="font-family:trebuchet ms;">'Borrar el registro</span><br />
<span style="font-family:trebuchet ms;">Data1.Recordset.Delete</span><br />
<span style="font-family:trebuchet ms;">Data1.Recordset.MoveNext</span><br />
<span style="font-family:trebuchet ms;">End Sub</span><br />
<br />
<span style="font-family:trebuchet ms;">Private Sub Text1_GotFocus()</span><br />
<span style="font-family:trebuchet ms;">'seleccionar el texto de la caja</span><br />
<span style="font-family:trebuchet ms;">TEXT1.SelStart = 0</span><br />
<span style="font-family:trebuchet ms;">TEXT1.SelLength = Len(TEXT1.Text)</span><br />
<span style="font-family:trebuchet ms;">End Sub</span><br />
<br />
<span style="font-family:trebuchet ms;">Private Sub Text2_GotFocus()</span><br />
<span style="font-family:trebuchet ms;">'seleccionar el texto de la caja</span><br />
<span style="font-family:trebuchet ms;">Text2.SelStart = 0</span><br />
<span style="font-family:trebuchet ms;">Text2.SelLength = Len(Text2.Text)</span><br />
<span style="font-family:trebuchet ms;">End Sub</span><br />
<br />
<span style="font-family:trebuchet ms;">Private Sub Text3_GotFocus()</span><br />
<span style="font-family:trebuchet ms;">'seleccionar el texto de la caja</span><br />
<span style="font-family:trebuchet ms;">Text3.SelStart = 0</span><br />
<span style="font-family:trebuchet ms;">Text3.SelLength = Len(Text3.Text)</span><br />
<span style="font-family:trebuchet ms;">End Sub</span><br />
<br />
<span style="font-family:trebuchet ms;">Private Sub Text4_GotFocus()</span><br />
<span style="font-family:trebuchet ms;">'seleccionar el texto de la caja</span><br />
<span style="font-family:trebuchet ms;">Text4.SelStart = 0</span><br />
<span style="font-family:trebuchet ms;">Text4.SelLength = Len(Text4.Text)</span><br />
<span style="font-family:trebuchet ms;">End Sub</span><br />
<br />
<span style="font-family:trebuchet ms;">Private Sub Text5_GotFocus()</span><br />
<span style="font-family:trebuchet ms;">'seleccionar el texto de la caja</span><br />
<span style="font-family:trebuchet ms;">Text5.SelStart = 0</span><br />
<span style="font-family:trebuchet ms;">Text5.SelLength = Len(Text5.Text)</span><br />
<span style="font-family:trebuchet ms;">End Sub</span><br />
<br />
<span style="font-family:trebuchet ms;">Private Sub Text6_GotFocus()</span><br />
<span style="font-family:trebuchet ms;">'seleccionar el texto de la caja</span><br />
<span style="font-family:trebuchet ms;">Text6.SelStart = 0</span><br />
<span style="font-family:trebuchet ms;">Text6.SelLength = Len(Text6.Text)</span><br />
<span style="font-family:trebuchet ms;">End Sub</span><br />
<br />
<span style="font-family:trebuchet ms;">Private Sub Text7_GotFocus()</span><br />
<span style="font-family:trebuchet ms;">'seleccionar el texto de la caja</span><br />
<span style="font-family:trebuchet ms;">Text7.SelStart = 0</span><br />
<span style="font-family:trebuchet ms;">Text7.SelLength = Len(Text7.Text)</span><br />
<span style="font-family:trebuchet ms;">End Sub</span><br />
<br />
<span style="font-family:trebuchet ms;">Private Sub Text8_GotFocus()</span><br />
<span style="font-family:trebuchet ms;">'seleccionar el texto de la caja</span><br />
<span style="font-family:trebuchet ms;">Text8.SelStart = 0</span><br />
<span style="font-family:trebuchet ms;">Text8.SelLength = Len(Text8.Text)</span><br />
<span style="font-family:trebuchet ms;">End Sub </span><br />
<br />
<span style="font-family:trebuchet ms;">¡PIÉNSALE UN POCO QUE DEBES MODIFICAR!</span></span>Martha Elena Ibarra Briseñohttp://www.blogger.com/profile/10730553521883802028noreply@blogger.com1