2016-02-26 77 views

回答

1

可以聯播按鈕的KeyDown Event這樣的:

Public Sub DesignPane_KeyDown(sender As Object, e As KeyEventArgs) 
    If e.KeyCode = Keys.Down Then 
    txtBox.Location.Y += 1 
    ElseIf e.KeyCode = Keys.Right Then 
    txtBox.Location.X += 1 
    ElseIf e.KeyCode = Keys.Up Then 
    txtBox.Location.Y -= 1 
    ElseIf e.KeyCode = Keys.Left Then 
    txtBox.Location.X -= 1 
    End If 
End Sub 
+0

謝謝你的答覆。它沒有發射箭頭鍵事件。 –

+0

你是怎麼掛鉤'KeyDown'事件的?你需要在動態創建按鈕時添加這樣的內容'Button1.KeyDown = AddressOf DesignPane_KeyDown' – Olivarsham

+0

這是我的代碼。 ___對於Jcount = 0至DvAllTableM.Count - 1 BtnName =新建按鈕 BtnName .Height = 100 BtnName.Width = 100 BtnName請將.Name = DvAllTableM(Jcount)( 「表名」) BtnName.Tag = DvAllTableM(Jcount )( 「UID」) BtnName。文本= DvAllTableM(Jcount)( 「表名」) TableBasePanel.Controls.Add(BtnName) 接着 的AddHandler BtnName.KeyDown,AddressOf的buttonDown –