将Keyboard Focus移到下一个控制项

作者: cww　

　　其实，这使用SendKeys ""便可以成功，而Move到上一个控制项则使用
SendKeys "+"便可以了，但是SendKeys也可以将键盘的讯息送到其他的Process
所以我一直害怕如果在SendKeys之前其他的程式取得Foucs那不知会如何。
所以才想要使用API来做，而原本这也很简单，只要使用PostMessage 传入WM_NEXTDLGCTL
便可以了，不过VB似乎不理这个讯息，可能在某个地方该讯息被吃掉了，所以转而使用
以下的方式来做：或许，有人也认为这就不会有问题了吗？说真的我不知道，不过至少
它不是用SendKeys来做(万一有个文书处理的Program得Focus那会在文章中加入一个Tab
，那可能不太好)。
注：不要被"Dlg" 的字眼迷糊掉，这几个API在Form中都可以Work的

Private Declare Function GetNextDlgTabItem Lib "user32" (ByVal hDlg As Long, _
ByVal hCtl As Long, ByVal bPrevious As Long) As Long
Private Declare Function SetDlgFocus Lib "user32" Alias "SetFocus" _
(ByVal hwnd As Long) As Long

注释：移到下一个可Focus的Control
Private Sub NextDlg()
Dim hwnd5 As Long
hwnd5 = GetNextDlgTabItem(Me.hwnd, Screen.ActiveControl.hwnd, 1)
Call SetDlgFocus(hwnd5)
End Sub

注释：移到上一个可Focus的Control
Private Sub PrevDlg()
Dim hwnd5 As Long
hwnd5 = GetNextDlgTabItem(Me.hwnd, Screen.ActiveControl.hwnd, 0)
Call SetDlgFocus(hwnd5)
End Sub

（出处：清风网络学院）

上一篇:键盘幽灵VB版

下一篇:将listview中显示出来的记录拖到treeview中去

将Keyboard Focus移到下一个控制项相关文章：

·开机提示:Keyboard error or no keyboard present

·变变变 Focus Magic让模糊的照片变清晰

·asp.net 2.0下一个标准GRIDVIEW功能的实现（不用datasource控件）

·有Focus效果的提交信息表单（DIV+CSS）

·远程接入RAS软件——软件行业的下一个金矿

·鼠标移到图片给图片加边框的CSS代码

·ActivateKeyboardLayout

·Windows XP系统迁移到Vista全过程

·中国门户网站的下一个十年

·无线互联网期待下一个兴奋点

将Keyboard Focus移到下一个控制项相关软件：

·Focus MagicV3.0.1 汉化版

·大学英语听力FocusListening5(3)

·大学英语听力FocusListening6(2)

·大学英语听力FocusListening4(4)

·大学英语听力FocusListening2(5)

·大学英语听力FocusListening3(3)

·大学英语听力FocusListening4(5)

·大学英语听力FocusListening5(2)

·鼠标移到链接弹出警告

·大学英语听力FocusListening1(3)

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
[打印本页] [关闭窗口] 转载请注明来源：http://www.vipcn.net

	\| 帮助(？) \| 版权声明 \| 友情连接 \| 关于我们 \| 信息发布
Copyright 2007 www.vipcn.net All Rights Reserved.	鄂ICP备05000083号Powered by:viphot