0

だから私はこのフォームを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

まあ、それはうまくいきません。それを機能させるにはどうすればよいですか？ありがとう！

4

1 に答える 1

0

あなたのコメントを読んで、あなたはデフォルトのイメージコントロールを使用していると言います.フォームにインスタンスを追加するか、単にフォームの画像プロパティを使用する必要があるデフォルトのイメージコントロールはありません.

これらの例は私のために働きます：

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
于 2012-11-22T05:58:49.323 に答える