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