【PB】如何捕捉DropDownDW列的上下键事件

朱雀 2022-03-28 12:16 390阅读 0赞

DDDW 事件概述  
　　1、所有对DDDW的操作都通过触发pbm\_command事件完成  
　　1)、在PB的用户事件中，大多数事件对应的Windows 事件都有两个参数：lparam 和 wparam，而在PB中,pbm\_command没有参数，但可以通过message对象的两个属性取得Windows事件对应的Event ID，这两个属性就是: LongParm 和 WordParm。  
　　LongParm 包含DDDW的Handle，用intLow()可取得其Handle  
　　WordParm 包含对DDDW的操作，用intHigh()可取得其Event ID  
　　2)、在PB中，pbm\_command带3个参数，其中hwndchild(long)与notificationcode(unsignedinteger)即DDDW的Handle和Event ID。  
  
　　2、DDDW 的Event ID 列表：

<table> 
 <tbody> 
 <tr> 
 <td>Event</td> 
 <td>Event ID</td> 
 <td>备注</td> 
 </tr> 
 <tr> 
 <td>Clicked</td> 
 <td>1281</td> 
 <td>　</td> 
 </tr> 
 <tr> 
 <td>RowFocusChanged</td> 
 <td>2048</td> 
 <td>　</td> 
 </tr> 
 <tr> 
 <td>RightMouseButtonDown</td> 
 <td>2314</td> 
 <td>　</td> 
 </tr> 
 <tr> 
 <td>Left Button Up</td> 
 <td>2313</td> 
 <td>　</td> 
 </tr> 
 <tr> 
 <td>Retreive End</td> 
 <td>769</td> 
 <td>　</td> 
 </tr> 
 <tr> 
 <td>MouseMove</td> 
 <td>2311</td> 
 <td>　</td> 
 </tr> 
 <tr> 
 <td>RowFocusChanged</td> 
 <td>2048</td> 
 <td>至于问题中的上下滚动，倘为键盘，将导致行焦点改变(此外，还导致一个ID=2049的事件)</td> 
 </tr> 
 <tr> 
 <td>PageUp/PageDown</td> 
 <td>2339</td> 
 <td>鼠标点击滚动条上下按钮</td> 
 </tr> 
 </tbody> 
</table>

3、根据上述列表，就可以在 pbm\_command 事件中判断对DDDW做了何种操作: 
　　DataWindowChild ldwc\_Child 
　　GetChild( "Column", ldwc\_Child ) 
　　IF IntLow( Message.Longparm ) = Handle( ldwc\_Child ) THEN  
　　　 CHOOSE CASE IntHigh( Message.Wordparm ) 
　　　　　　　CASE 2048 // RowFocusChanged on DDDW 
　　　　　　　CASE 1281 // Clicked 
　　　　　　　CASE 2314 // Right Mouse Button Clicked 
　　　　　　　CASE 2311 // MouseMove 
　　　 END CHOOSE 
　　END IF 
 
　　PB可以直接使用其参数hwndchild、notificationcode代替其中的intLow(Message.LongParm)和intHigh(Message.WordParm)。 
　　一个简单例子 -- 自动选择DDDW  
　　DataWindowChild ldwc\_Child 
　　String ls\_Pointer 
　　Long ll\_Row, ll\_Lparam, ll\_Lparam 
　　ll\_Lparam = Message.LongParm 
　　ll\_Lparam = Message.WordParm 
　　GetChild( "status", ldwc\_Child ) // Replace the column name "status" as you needed 
　　IF IntLow( ll\_Lparam) = Handle( ldwc\_Child ) THEN 
　　　CHOOSE CASE IntHigh( ll\_Lparam )  
　　　　　　 CASE 2311 // MouseMove 
　　　　　　　　　// Get the object at pointer and parse out the Row \# 
　　　　　　　　　ls\_Pointer = ldwc\_Child.GetObjectAtPointer() 
　　　　　　　　　ll\_Row=Long( Mid( ls\_Pointer, Pos( ls\_Pointer, "~t" ) + 1 )) 
　　　　　　　　　// If the Row is different then highlight it 
　　　　　　　　　IF ldwc\_Child.GetRow() <> ll\_Row AND ll\_Row > 0 THEN 
　　　　　　　　　　ldwc\_Child.ScrollToRow( ll\_Row ) 
　　　　　　　　　END IF 
　　　END CHOOSE 
　　END IF