Una pregunta de programación de VB, ¿cómo diseñar una imagen para que se mueva hacia arriba, abajo, izquierda y derecha con las barras de desplazamiento horizontal y vertical? ¿Por favor proporcione el código específico?

¡Esto es simple~! Primero tienes que poner el PictureBox en un contenedor. Se recomienda encarecidamente utilizar PictureBox como contenedor. Es decir, dibuje un PictureBox secundario en PictureBox. Esto es más fácil de operar. ¡También le resultará más fácil lidiar con él en el futuro! ~No más tonterías.

Supongamos que Imagen2 es el contenedor de Imagen1, el nombre de la barra de desplazamiento horizontal es HSX y el nombre de la barra de desplazamiento vertical es VSY. Entonces el código se puede escribir así:

Private Sub Form_Load()

Picture1.AutoSize = True

Picture1.Picture = LoadPicture("Cargar la ubicación usted especifica aquí Imagen")

Si Imagen1.Width gt; Imagen2.Width Entonces

HSX.Enabled = True

HSX.Max = Imagen1.Width - Imagen2.Ancho

Else

HSX.Enabled = False

Fin

Si Imagen1.Altura gt; Imagen2.Altura Entonces

VSY.Enabled = True

VSY.Max = Imagen1.Height - Imagen2.Height

Else

VSY.Enabled = False

Fin si

End Sub

Sub privado HSX_Change()

Imagen1.Left = (-1) * HSX.Value

Fin Sub

Sub privado HSX_Scroll()

Llamar a HSX_Change

Fin Sub

Sub privado VSY_Change()

Imagen1.Top = (-1) * VSY.Value

End Sub

Sub privado VSY_Scroll()

Llamar a VSY_Change

Fin del subtítulo