易截截图软件、单文件、免安装、纯绿色、仅160KB

请教前辈们关于VB窗体焦点问题

  我想做一个简单的图片移动的程序
没添加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

建议你在AniGIF1_KeyDown事件里执行操作
'AppActivate Me.Caption
AppActivate "Form1"

引用
建议你在AniGIF1_KeyDown事件里执行操作
Anigif1 没有keydown事件额
引用
类似你所说的Anigif或WebBrowser会抢占焦点,导致窗体键盘事件无法响应

最简单的你先加一句 Me.KeyPreView = True

麻烦点 使用全局键盘检测, 再没有办法的话便得使用勾子了

'全局键盘检测
'按下 X 退出, 按下上下左右键 信息提示
Option Explicit '强制宣告定义变量
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Long
Const vbKeyAlt = vbKeyMenu 'VB很像把它给漏了,自己加上吧
Private Sub Form_Load()
  '将窗体居中显示 (屏幕


相关问答：

vb的成功之路 - 扩充话题 / 共享软件（走向海外）

在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！




没分了，楼主多来点分！

来接点分

......

VB 调用 vc 编写的dll - C/C++ / C++ 语言

用vc编写的dll在debug模式和release模式下启动vb的exe程序调用vc的dll可以得到正确结果，但是如果直接双击vb的exe程序调用dll报错，在dll内部添加messagebox后发现只要在函数内部声明std::string类型的变量就会出现� ......

关于VB DIM ds as new DataSet问题 - VB / 基础类

DIM ds as new DataSet
我这样声明 怎老是报 用户定义类型未定义？ 这个需要引用什么吗？？
前提是DataSet对象要存在,就是对象浏览器中有它.没有就要引用.

dataset是ADO.NET对象
如果你用的是vb.net，那么在� ......

vb自动发送邮件 - VB / 基础类

为什么我想循环自动发送邮件的时候,就只有第一封能自动发送,其它后面的邮件都只能创建,不能自动发送
Private Sub send_mail_Click() '发送邮件通知
  Do While Not TDBG_Dept.EOF
  If A> ......

vb - VB / 基础类

在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。

不知道怎么实现的不要说话

这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号