数据库

本类阅读TOP10

·SQL语句导入导出大全
·SQL Server日期计算
·SQL语句导入导出大全
·SQL to Excel 的应用
·Oracle中password file的作用及说明
·MS SQLServer OLEDB分布式事务无法启动的一般解决方案
·sqlserver2000数据库置疑的解决方法
·一个比较实用的大数据量分页存储过程
·如何在正运行 SQL Server 7.0 的服务器之间传输登录和密码
·SQL中两台服务器间使用连接服务器

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
在PB中实现热键的方法

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

如果你能在你的应用程序中添加一些热键,就可以加快用户的操作速度,特别是对那些熟练的操作人员,他们特别欢迎快捷键的操作方式。在不少大型应用软件中,用户可以通过使用Ctrl+Alt+F5之类的组合键来方便地进行功能切换和处理。那么,我们在用PowerBuilder开发应用程序时,怎样在其中实现需要的热键功能呢?下面笔者就根据自身的经验,介绍两种实用的方法。

第一种方法:
该方法可以实现:无论何时,只要用户按下热键,都将触发窗口中的事件。
1.声明 API的外部函数
FUNCTION Integer GlobalAddAtom(ref string lpString) LIBRARY "kernel32.dll" ALIAS FOR "GlobalAddAtomA"
FUNCTION ulong RegisterHotKey(ulong hwnd,ulong id,ulong fsModifiers,ulong vk) LIBRARY "user32.dll"
//hwnd参数用于指定使用本热键的窗口句柄,id参数用于指定一个惟一的ID,fsModifiers参数指明辅助键值(Alt、Ctrl、Shift等),vk参数指明虚拟键的ASCII码。
2.对常量赋初值
Public:
constant integer MOD-ALT = 1
constant integer MOD-CONTROL = 2
constant integer MOD-SHIFT = 4
3.利用代码在系统中注册要使用的热键
//在窗口的Open事件中
long ll-RC
string ls-str
ls-str = "My atom ID"
atomid = GlobalAddAtom(ls-str) //得到惟一的ID,保证不和其他应用程序发生冲突
ll-RC = RegisterHotKey(Handle(this), atomid, MOD-ALT + MOD-CONTROL, 65)
// 65为‘A’,注册的热键为Ctrl+Alt+A
if ll-RC = 0 then
messagebox("错误","错误信息")
end if
4.编写按下热键时的处理程序
//在窗口的Other事件中
IF wparam = atomid THEN
//在这里编写处理程序
END IF

第二种方法:
1.声明 API的外部函数
function long SendMessageA(long lhWnd,uint uiMsg,long lwMsg,long lwParam) library ′user32.dll′
2.对常量赋初值
Public:
Constant Long WM-SETHOTKEY=50//设置热键信息值
Constant Long HK-MYHOTKEY=1648 //热键参数值
Constant Long SC-HOTKEY=61776//PB中的热键信息
其中,HK-MYHOTKEY不是固定的,它根据用户的需要而定。它的具体值的确定方法是:高8位字节与低8位字节组成16位字节,然后将它换算成十进制数,即得到所需的HK-MYHOTKEY值。高8位字节值为一些辅助键(Control、Alt、Shift等),低8位字节为使用键的ASCII码。如果我们要使用Ctrl+Alt+A作为热键,则A=65,转换成十六进制为41,Ctrl+Alt=2+4=6,转换成十六进制仍然是6,两则组合即为641,再重新转换回十进制得到1601;同样,如果我们用Ctrl+Alt+F1作为热键,F1=112,可以得到HK-MYHOTKEY值应为1648。
3.利用代码告诉窗口我们的热键
//在窗口的Open事件中
long ll-RC
ll-RC = SendMessageA(Handle(this), WM-SETHOTKEY, HK-MYHOTKEY, 0)
if ll-RC <> 1 then
messagebox("错误","错误信息")
end if
4.编写按下热键时的处理程序
//在窗口的Other事件中
IF wparam = SC-HOTKEY THEN
//在这里编写处理程序
END IF




相关文章

相关软件