VB6按键上的动态图像更改

Question

因此，我试图在VB6中仅使用一张图片制作此表格，每当您按“ Q”键时，图片就会更改，如果您按“ E”，它将更改为上一张。 简单的东西。

这是我所拥有的：

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 81 Then Image.Picture = LoadPicture("E:\Imagenes\Avatars\4.jpg")
If KeyAscii = 69 Then Image.Picture = LoadPicture("E:\Imagenes\Avatars\3.gif")
End Sub

好吧，那是行不通的。 我该怎么做才能使其正常工作？ 谢谢！

Answer 1

在阅读评论时，您说的是使用的是默认图像控件，没有默认图像控件，您不需要将其实例添加到窗体中或仅使用窗体图片属性。

这些示例对我有用：

Private Sub Form_KeyPress(KeyAscii As Integer)
    If (Chr(KeyAscii) = "Q" Or Chr(KeyAscii) = "q") Then Form1.Picture = LoadPicture("E:\Imagenes\Avatars\4.jpg")
    If (Chr(KeyAscii) = "E" Or Chr(KeyAscii) = "e") Then Form1.Picture = LoadPicture("E:\Imagenes\Avatars\3.gif")
End Sub

和

Private Sub Form_KeyPress(KeyAscii As Integer)
    If (Chr(KeyAscii) = "Q" Or Chr(KeyAscii) = "q") Then Image1.Picture = LoadPicture("E:\Imagenes\Avatars\4.jpg")
    If (Chr(KeyAscii) = "E" Or Chr(KeyAscii) = "e") Then Image1.Picture = LoadPicture("E:\Imagenes\Avatars\3.gif")
End Sub