Lo que has puesto.. de dónde sale? Es el nombre de un archivo?
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: mgaspoz en 27 Noviembre 2012, 18:24 PM
mediante multiples textbox ingreso datos a una tabla, estos datos pueden variar de cantidad por lo cual necesito algo muy flexible a la hora de ingresar los datos
Dim direccion As String
Dim cantidad As Long
Private Sub Command1_Click()
direccion = "i"
End Sub
Private Sub Command2_Click()
direccion = "d"
End Sub
Private Sub Form_Load()
direccion = "i" 'por default, se mueve a la izquierda
cantidad = Me.ScaleX(10, vbPixels, vbTwips) 'convierte 10 pixeles en twips, para no cambiar el scalemode
Timer1.Interval = 50
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If direccion = "i" Then
'derecha a izquierda
Label1.Left = Label1.Left - cantidad
If (Label1.Left + Label1.Width) < 0 Then
Label1.Left = Me.ScaleWidth
End If
Else
'izquierda a derecha
Label1.Left = Label1.Left + cantidad
If Label1.Left > Me.ScaleWidth Then
Label1.Left = Label1.Width * -1
End If
End If
End Sub