Question

VB左右移动图像代码

VB左右移动图像代码

Answer 1

将图像放在图像框内，更改图像框的left属性的值就行了。
Private Sub Command1_Click()
Image1.Left = Image1.Left + 200 '向右移动
End Sub
Private Sub Command2_Click()
Image1.Left = Image1.Left - 200 '向左移动
End Sub

Answer 2

image1.left=image1.left+20,image1是放图片的图像框name

Answer 3

Dim x As Long, y As Long
Private Sub Form_Load()
x = Me.ScaleWidth
y = Me.ScaleWidth + Picture1.Width + 1200
Timer1.Interval = 200
End Sub

Private Sub Timer1_Timer()
x = x - 200
y = y - 200
If x <= 0 - Picture1.Width Then x = Me.ScaleWidth
If y <= 0 - Picture1.Width Then y = Me.ScaleWidth
Picture1.Move x, Me.ScaleHeight / 2, Me.ScaleWidth / 8, Me.ScaleHeight / 8
Picture2.Move y, Me.ScaleHeight / 2, Me.ScaleWidth / 8, Me.ScaleHeight / 8
End Sub

Answer 4

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
picture1.Left = picture1.Left - 10
If picture1.Left + picture1.Width <= 0 Then picture1.Left = Me.Width
End Sub

Answer 5

怎么左右移动了 说清楚点