| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何选中窗口后，按键盘上的方向键调整窗口在屏幕上的位置 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161615) |
| -- 作者：237756360 -- 发布时间：2021/3/24 13:20:00 -- 如何选中窗口后，按键盘上的方向键调整窗口在屏幕上的位置 如何选中窗口后，按键盘上的方向键调整窗口在屏幕上的位置 |
| -- 作者：237756360 -- 发布时间：2021/3/24 13:46:00 -- 研究出来了 KeyDown 事件下代码： If e.Control = True AndAlso e.KeyCode = Keys.UP Then forms("标尺").baseform.top = forms("标尺").baseform.top - 1 Else If e.Control = True AndAlso e.KeyCode = Keys.Down Then forms("标尺").baseform.top = forms("标尺").baseform.top + 1 Else If e.Control = True AndAlso e.KeyCode = Keys.Left Then forms("标尺").baseform.left = forms("标尺").baseform.left - 1 Else If e.Control = True AndAlso e.KeyCode = Keys.Right Then forms("标尺").baseform.left = forms("标尺").baseform.left + 1 End If |