Visual Basic - Programador

Life is soft - evento anual de software empresarial
   
Vista:

Programador

Publicado por JORGE (2 intervenciones) el 22/06/2009 01:28:33
Señores:
Necesito que me ayuden como puedo programas una imagen insertada en un formalario que se ponga titilando por un tiempo determinado .

Nesecito algo asi como un corazon latiendo el momento que se ejecute el formulario
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Programador

Publicado por cmgcharli (128 intervenciones) el 22/06/2009 11:18:14
En un formulario he colocado un control Image1 que un dibujo de un circulo rojo lo que hace el modificar el tamaño del control en altura y anchura produciendo un efecto visual parecido al latido.
La propiedad del control image1 PictureSizeMode=fmPictureSizeModeStretch
y este codigo en el evento click del Userform que le ha llamado Frm1

Private Sub UserForm_Click()
Dim Contar As Long
Dim ValorAl As Long
Dim Varlatidos As Long
ValorAl = 36
Varlatidos = 0
Contar = 0
Do Until Varlatidos > 6
If Varlatidos Mod 2 <> 0 Then
Select Case ValorAl
Case 46
ValorAl = 36
Case 36
ValorAl = 26
Case 26
Varlatidos = Varlatidos + 1
End Select
Else
Select Case ValorAl
Case 46
Varlatidos = Varlatidos + 1
Case 36
ValorAl = 46
Case 26
ValorAl = 36
End Select
End If
Contar = 0
Frm1.Image1.Height = ValorAl
Frm1.Image1.Width = ValorAl
Frm1.Repaint
Contar = 0
Do Until Contar > 1000000
Contar = Contar + 1
Loop
Loop
End Sub

Como Idea espero que te sirva logicamente el dibujo deberia ser mas logrado y en forma de corazon ????'
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Programador

Publicado por jorge (2 intervenciones) el 22/06/2009 17:46:15
Muchas gracias amigo lo voy a poner en practica con lo que has enviado ya tengo algunas ideas y las voy a aplicar .... saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar