Odio las respuestas de la gente que consisten sólo en un enlace y no escriben nada, como si no quisieran molestarse en contestar a los subordinados plebeyos xDDD
Te lo explicaré:
Private Sub Command1_Click()
Label1.Caption = cboClubes.Text
End Sub
En
pseudocódigo, esto dice:
Procedimiento Clic en Command1:
El Caption de Label1 igual a Texto de cboClubes
Fin Procedimiento
O sea, Indicar que al hacer clic en ese botón se ejecutará el código dentro de ese procedimiento, que en este caso es igualar el caption de Label1 al texto de cboClubes.
Dim cambio As Integer
Private Sub Form_Load()
cambio = 250
End Sub
Private Sub tmrReloj_Timer()
imgNube.Left = imgNube.Left + cambio
If imgNube.Left > (Me.ScaleWidth - imgNube.Width) Then cambio = cambio * -1
If imgNube.Left < 0 Then cambio = cambio * -1
End Sub
Declarar (Dim) el texto "cambio"
como Entero (integer)
Procedimiento CargarFormulario:
"cambio" (declarado como Entero)
igual a 250
Fin Procedimiento
Procedimiento Intervalo de Timer:
Posición Left de imgNube igual a la misma más el valor de "cambio" osea, le suma a Left el valor de cambio, 250.
Si (If) posición Left de imgNube
es mayor que AnchoFormulario (Me se refiere al form actual) menos Ancho de imgNube
Entonces (Then) "cambio" será igual a su valor por -1
...
Espero te ayude, leelo literal.
Saludos
Mostrar Mensajes
