Programación General > Visual Basic 6.0 e inferiores

 Curiosidad Al Desplazar Un Control

(1/1)

abelsql3000:
He creado la siguiente aplicacion donde se desplaza por un formulario un control etiqueta
Dim y As String
Dim x As Integer
Private Sub Timer1_Timer()
x = x + 1
y = x
Me.Caption = y
lbletiqueta.Left = lbletiqueta.Left + 100
If lbletiqueta.Left = 5000 Then lbletiqueta.Left = -500
End Sub

Si me funciona pero el control deja rastros en el formulario, ya le puese la propiedad transparente al formulario y nada, en que me estoy equivocando
Por se acaso adjunto el archivo
Ayudame tambien para poder mover la etiqueta por todo el formulario en forma aleatoria, osea que revote por todo el formulario tipo PROTECTOR de Pantalla de Windows.
De antemano gracias por el aporte
Abel

Epa:
Buenas.

Por que se produce no tengo idea xD

Pero lo que pude ver es q solo se produce cuando la palabra empieza con a mayuscula.

Puedes ponerla un espacio en blanco la label antes de Abel y no lo hara mas.

Saludos :hola:

F_Tanori:
Pue si es algo curioso y es verdad no todas las letras dejan rastro de esa fuente

ami me funciono cambiando la propiedad ed la etiqueta AutoSize=False y funcion


Para hacerlo rebotar puedes guiarte con esto


--- Código: Text --- Dim ARRIBA_ABAJO  As Integer, IZQUIERDA_DERECHA As Integer, AVANCE As IntegerPrivate Sub Form_Load()    ARRIBA_ABAJO = 1    IZQUIERDA_DERECHA = 1    AVANCE = 100End Sub Private Sub Timer1_Timer()        If (lbletiqueta.Top) <= 0 Then ARRIBA_ABAJO = 1: Beep    If (lbletiqueta.Left) <= 0 Then IZQUIERDA_DERECHA = 1: Beep        If (lbletiqueta.Top + lbletiqueta.Height) + (AVANCE + 150) >= Me.Height Then ARRIBA_ABAJO = -1    If (lbletiqueta.Left + lbletiqueta.Width) >= Me.Width Then IZQUIERDA_DERECHA = -1        lbletiqueta.Left = lbletiqueta.Left + (AVANCE * (IZQUIERDA_DERECHA))    lbletiqueta.Top = lbletiqueta.Top + (AVANCE * (ARRIBA_ABAJO))    DoEvents        End Sub 

Saludos mi estimado Abel espero te ayude

Miguel_ACL:
Después de que hagas el movimiento pon la instrucción Cls, verás que tu problema queda resuelto.

Navegación

[0] Índice de Mensajes