首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > PB >

datawindow中的文本列不响应鼠标中键,怎么使其响应

2012-02-15 
datawindow中的文本列不响应鼠标中键,如何使其响应?如题[解决办法]以下代码在winxp+pb9下测试通过~~//函数

datawindow中的文本列不响应鼠标中键,如何使其响应?
如题


[解决办法]
以下代码在winxp+pb9下测试通过~~

//函数声明
Subroutine keybd_event(int bVk , int bScan,int dwFlags, long dwExtraInfo) LIBRARY "user32" Alias FOR "keybd_event" 
//在数据窗口的other事件中写入下面的代码

Constant ulong VK_UP = 38 //&H26
Constant ulong VK_DOWN = 40 //&H28

int li_key
if message.number = 522 then
if IntHigh(message.wordparm)=120 then
li_key = VK_UP
else
li_key = VK_DOWN
end if
keybd_event(li_key , 0,0, 0)
keybd_event(li_key , 0,2, 0)
end if

热点排行