Red de conocimiento informático - Problemas con los teléfonos móviles - Código fuente del salvapantallas VC

Código fuente del salvapantallas VC

Izquierda = 0'

Form1.Top = 0'

Form1.Width = Screen.Width'

Form1.Width = Screen.Width.Form1.Left = 0'

Form1.Top = 0'

Form1.Width = Screen.Width'

Form1.Height = Screen.Height' Estas cuatro líneas forman1 Llenar toda la pantalla

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Time 'Hacer que el título de la etiqueta1 muestre la hora

Si LOrR Entonces 'Si LOrR entonces 'Si LOrR está a la izquierda

Label1.Left = Label1.Left - 10

Else 'Si LOrR está a la derecha

Label1.Left = Label1.Left 10

Finalizar si

Si Label1.Left <= 0 Then LOrR = False 'Si label1.Left es menor que 0, mover A la derecha. Si Label1.Left es menor que 0

Si Label1.Left gt; Form1.Width - Label1.Width Then LOrR = True 'Si el lado izquierdo de label1 es mayor que el rango de la pantalla, muévase hacia la izquierda

Fin Sub