如何加载图像以通过keydown从文件形成？

Question

我想制作一个超级基本程序，每次点击F4时都会弹出一个图片和声音。我将程序的背景设置为绿色，因为我将用它作为图片的绿色屏幕。我对VB没有多少经验，但是因为我无法在网络上找到这样的程序，所以我决定采取措施并尝试自己制作。 （失败......）无论如何，这是我到目前为止。

Public Class Form1 
Private Sub Form1_KeyPress(KeyAscii As Integer) 
    If (Chr(KeyAscii) = "115") Then Form1.Picture = loadpicture("directory") 
End Sub 
End Class 

注意：“目录”不是我在loadpicture（）中所拥有的。

Answer 1

试试这个：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    Me.KeyPreview = True 'This enable the key event on the form (me). 
End Sub 

Private Sub Form1_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp 
    If e.KeyCode = Keys.F4 Then Me.BackgroundImage = Image.FromFile("C:\image.jpg") 
End Sub 

Answer 2

这是最后的代码，还包括音频剪辑时按下按键以及播放！

Public Class Form1 
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    Me.KeyPreview = True 'This enable the key event on the form (me). 
End Sub 

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown 
    If e.KeyCode = Keys.F4 Then Me.BackgroundImage = Image.FromFile("C:\image.jpg") 
    If e.KeyCode = Keys.F4 Then My.Computer.Audio.Play("C:\audio.wav", AudioPlayMode.Background) 
End Sub 

Private Sub Form1_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp 
    If e.KeyCode = Keys.F4 Then Me.BackgroundImage = Nothing 
End Sub 
End Class