Red de conocimiento informático - Conocimiento sistemático - En busca de orientación experta, el movimiento de letras de programación VB puede ajustar la velocidad de desplazamiento a través de la barra de desplazamiento, y los dos botones de opción controlan la dirección del movimiento hacia la izquierda y hacia la derecha. ¡Muchas gracias!

En busca de orientación experta, el movimiento de letras de programación VB puede ajustar la velocidad de desplazamiento a través de la barra de desplazamiento, y los dos botones de opción controlan la dirección del movimiento hacia la izquierda y hacia la derecha. ¡Muchas gracias!

Dim x As Long

Sub Form_Load() privado

Option1.Value = 1

HScroll1.Max = 500

HScroll1.Min = 0

HScroll1.SmallChange = 10

HScroll1.LargeChange = 50

Timer1.Interval = 100

Label1.Caption = "A"

End Sub

Private Sub HScroll1_Change()

Atenuar s como entero

s = IIf(x = 0, 1, Sgn(x))

x = HScroll1.Value * s

End Sub

Subopción privada1_Click()

x = Abs(x)

End Sub

Subopción privada2_Click()

x = -x

End Sub

Sub privado Timer1_Timer()

Label1.Left = Label1.Left + x

Si Label1.Left <= 0 Entonces x = Abs(x )

Si Etiqueta1.Izquierda + Etiqueta1.Ancho > Me.Ancho Entonces x = -x

Fin Sub

上篇: Camping sin conductor en China Travel Service (Zhuhai) Haiquan Bay Resort 下篇: ¿Qué tal la inteligencia artificial en la Universidad Técnica y Vocacional de Software de Hunan?