2016-01-09 27 views
0

我想製作一個超級基本程序,每次點擊F4時都會彈出一個圖片和聲音。我將程序的背景設置爲綠色,因爲我將用它作爲圖片的綠色屏幕。我對VB沒有多少經驗,但是因爲我無法在網絡上找到這樣的程序,所以我決定採取措施並嘗試自己製作。 (失敗......)無論如何,這是我到目前爲止。如何加載圖像以通過keydown從文件形成?

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

注意:「目錄」不是我在loadpicture()中所擁有的。

+0

那麼你正在尋找幫助加載圖片? –

回答

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 
+0

完美!我將添加最終代碼以供參考。 – RockGuitarist1

0

這是最後的代碼,還包括音頻剪輯時按下按鍵以及播放!

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