我想做一个简单的图片移动的程序 没添加AniGif1的时候 窗体可以正常响应 keydown事件 加入了控件 form1 就失去了焦点不能正常响应了 想问下各位大侠 怎么才能让form1 一直获得焦点？ VB code: Private Sub form_keydown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyUp AniGif1.FileName = App.Path & "\image\上跑.gif" Case vbKeyDown AniGif1.FileName = App.Path & "\image\下跑.gif" Case vbKeyLeft AniGif1.FileName = App.Path & "\image\左跑.gif" Case vbKeyRight AniGif1.FileName = App.Path & "\image\右跑.gif" End Select End Sub
帮我改改 我总觉得有问题 Type ID number As Single score As Integer name As String * 6 End Type Dim personl As ID, i% Private Sub Command1_Click() i = 0 &nbs ......
