martes, 26 de julio de 2011
Uso de variables globales mediante módulos.
Nota: "Las imagenes pueden ser ampliadas con un click del ratón sobre la imagen"
Objetivo: "Hacer uso de una variable global declarada en un módulo en 2 formularios"
Descargar ejemplo:
Abrimos el IDE de Visual Basic 6.0 (R)
Tenemos el formulario por defecto (Form1)
Hemos agregado un segundo formulario.
Agregamos un módulo
Declaramos una variable.
Abrimos el formulario 1
Inicializamos la variable declarada en el Form1_Load()
En el Form2 en el evento Load mostraremos la variable x en el formulario.
En la carga del formulario uno, hacemos que aparezca de una vez el formulario 2
La variable es usada de forma adecuada.
martes, 5 de julio de 2011
La Perra Laika.
Hoy por la gracia de Dios he decidido escribir algunas líneas las cuales espero puedan servir a quienes lean. Al despertarme ví que eran las 7:30 ya que es feriado, estaba tratando de ver el sol que amanecía, pero no pude porque el cuarto donde estoy tiene unas ventanas que dan a un corredor que no tiene ventanas, los dueños de la casa (mis padres) decidieron ampliar la construcción hace unos 12 años; y unos 22 años atrás hubo una pastor alemán llamada Laika, de ahí el título jejeje, con sus gracias incluidas, piedras y grama y el sol que entraba por la ventana fuertemente hoy no lo hace. Luego pensé, "Mi crecimiento será inevitable; pues contaré con la ayuda del Padre Celestial, pero debo tener cuidado hacia donde debo crecer para no tapar el sol que nace en las mañanas"; ahora que lo escribo se que tengo buena memoria, porque tenía 4 años; ya que como una pelicula recuerdo como entraba el sol.
sábado, 2 de julio de 2011
Validación de una caja de texto en Visual Basic 6.0 (ah vaina vieja)
Lo primero que debemos entender es crear una caja de texto en el formulario, por lo general el nombre de ésta caja de texto será"Text1".
Luego creamos un método privado que permita la entrada de sólo números en la caja de texto. ¿Cómo lo podemos hacer?. Sencillo.
Escribimos el método para la caja de Texto "Text1", luego el evento KeyPress es cada vez que presiona una una tecla o botón, por ello el evento se llama así.
Una vez hecho ésto, debemos pasar por parametro la tecla presionada, en éste caso será KeyAscii, que será de tipo entero.
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 48 And KeyAscii < 57 Then
Text1.SetFocus()
End If
End Sub
Ya con ésto aseguramos que solo admitirá números.
Luego creamos un método privado que permita la entrada de sólo números en la caja de texto. ¿Cómo lo podemos hacer?. Sencillo.
Escribimos el método para la caja de Texto "Text1", luego el evento KeyPress es cada vez que presiona una una tecla o botón, por ello el evento se llama así.
Una vez hecho ésto, debemos pasar por parametro la tecla presionada, en éste caso será KeyAscii, que será de tipo entero.
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 48 And KeyAscii < 57 Then
Text1.SetFocus()
End If
End Sub
Ya con ésto aseguramos que solo admitirá números.
Suscribirse a:
Entradas (Atom)