Como crear un efecto de animación o en movimiento como marquesina. (SEMANA 29)

  1,- PRIMERAMENTE INICIALIZAMOS EL PROGRAMA Y SELECCIONAMOS UN EXE ESTÁNDAR; LUEGO AL FORMULARIO QUE APARECE LE MODIFICAMOS SU TAMAÑO.

2.- SEGUIDAMENTE DISEÑAMOS NUESTRO NUEVO FORMULARIO COLOCANDO UNA LABEL CON UNA FRASE, INSERTAMOS 2 TIMER Y CAMBIAMOS EL FONDO DEL FORMULARIO Y DE LA FUENTE Y FONDO DE LA LABEL .

3.- ESCRIBIMOS LA SIGUIENTE CODIFICACIÓN EN EL PRIMER TIMER

Private Sub Timer1_Timer()

If Label1.Left <= Form1.ScaleWidth - Label1.Width Then

Label1.Left = Label1.Left + 75

Else

Timer2.Enabled = True

Timer1.Enabled = False

End If

End Sub

4.- Y ESTA NUEVA CODIFICACION PARA EL SEGUNDO TIMER

Private Sub Timer2_Timer()

If Label1.Left >= Form1.ScaleLeft Then

Label1.Left = Label1.Left - 75

Else

Timer1.Enabled = True

Timer2.Enabled = False

End If

End Sub

BUENO AHORA A CORRER EL PROGRAMA DEPURADO ANTERIORMENTE Y

OBSERVAREMOS LA SIGUIENTE VENTANA 

Comentarios

Publicar un comentario

Entradas más populares de este blog

PASOS PARA CREAR UNA CALCULADORA DEL IMC (ÍNDICE DE MASA CORPORAL) DE UNA PERSONA. (SEMANA 28)

Imagen
  PRIMERAMENTE INICIALIZAMOS VISUAL, LUEGO CREAMOS UN EXE ESTÁNDAR  SEGUIDAMENTE DISEÑAMOS NUESTRO FORMULARIO CON 3 LABEL, 3 CAJAS DE TEXTO, 2 BOTONES Y UN PICTUREBOX PARA INSERTAR UNA IMAGEN (TABLA IMC EN FORMATO JPG) EN EL DISEÑO DEL FORMULRIO DEBEN ASIGNAR UN NOMBRE AL FORMULARIO EN SU PROPIEDAD CAPTION , LUEGO EN BACKCOLOR ASIGNAR UN COLOR DE FONDO; EL MISMO COLOR SE DEBERÁ ASIGNAR A LAS LABEL. BUENO AHORA COMENZAR A PROGRAMAR PRIMERAMENTE EL FORMULARIO CON LA SIGUIENTE LINEA DE CODIGO QUE PREVIAMENTE DEBEN ELIMINAR LO QUE COMUNMENTE APARECERA AL DAR DOBLE CLIC EN EL FORMULARIO . Dim peso, talla, resultado As Double CÓDIGO DEL BOTON CALCULAR Private Sub Command1_Click() peso = Textpeso.Text talla = Texttalla.Text resultado = peso / (talla * talla) Textresultado.Text = resultado Textpeso.Text = "" Texttalla.Text = "" Textpeso.SetFocus CÓDIGO PARA QUE LA CAJA DE TEXTO DONDE APARECE EL RESULTADO NO SE PUEDA INGRESAR ABSOLUTAMENTE NADA Private Sub Form_Load() Textre...
Leer más

Pasos para cambiarle el color de fondo al formulario. (SEMANA 23)

Imagen
  1. Inicializamos el programa y seleccionamos EXE ESTANDAR para luego colocar a el formulario (1 textbox, 2 Frame, 5 option button para el 1 frame y 2 para el frame 2 y un coman button). 2. Luego le cambiamos los nombres a los objetos desde la propiedad caption (es importante aclarar que como el aplicativo es cambiar color en un objeto en cada opcion button deberá ir el nombre de color que se desee aparezca en el textbox ; en el frame de abajo el movimiento arriba y abajo). 3. Una vez codificado cada objeto con el siguiente codigo el aplicativo quedará así  Private Sub Command1_Click() End End Sub Private Sub Form_Load() Txtcaja.Top = 0 End Sub Private Sub Option1_Click() Txtcaja.BackColor = vbBlue End Sub Private Sub Option2_Click() Txtcaja.BackColor = vbRed End Sub Private Sub Option3_Click() Txtcaja.BackColor = vbBlack End Sub Private Sub Option4_Click() Txtcaja.BackColor = vbYellow End Sub Private Sub Option5_Click() Txtcaja.BackColor = vbGreen End Sub Private Sub Option6...
Leer más

Pasos para crear una tabla de multiplicar. (SEMANA 27)

Imagen
  Proceso: 1.Iniciar el programa. 2.Apertuamos un EXE ESTANDAR. 3.En el formulario insertamos los siguientes objetos (label, 2 textbox y 3 comandbutton). 4.Adjuntamos los códigos de los comandbutton. Private Sub Command1_Click()                                                                       Dim N As Integer   N = Val(Text1.Text)       For i = 1 To 12           Text1.AddItem i & " x " & N & " = " & i * N       Next   End Sub Private Sub Command2_Click()     Text1.Text = "" End Sub Private Sub Command3_Click()     End End Sub 5.. Por ultimo ejecutamos el programa.
Leer más