powerbuilder的TrackBar和ScrollBar對於滑鼠滾輪的處理

powerbuilder 的 TrackBar (vTrackbar / hTrackBar) 與 ScrollBar (vScrollbar / hScrollbar) 的控制上一直以來都少了一根筋，那就是 Mouse Wheel 滑鼠滾輪的事件。

雖然，Trackbar/Scrollbar 在使用時，滑鼠滾輪都可以控制標桿的移動，但是因為沒有對應的事件與通知，所以沒辦法處理滾輪滾動之後的定位值

你可以在 Trackbar/Scrollbar 找到下面事件

moved - 標桿移動後的觸發，但是只限於使用滑鼠按住標桿的移動才會發生。
pageup/pagedown - 當使用滑鼠點擊標桿 兩側 時，標竿會移動一個距離的事件。
lineup/linedown - 當使用鍵盤方向鍵(Arrow Key)控制標桿移動時，會觸發的事件。

但就缺少滑鼠滾輪事件！

此時就可以利用攔截 Windows Message ID 方式處理：

滑鼠滾輪事件 WM_MOUSEWHEEL = 522
此事件會帶 Word 參數 → 0 =向下滾動、1=向上滾動

在 Trackbar/Scrollbar 裡面有個 Other Event，在裡面下判斷，即可以處理


if message.number = 522 then
if message.wordparm < 0 then
//mouse wheel down
st_pos.text = string(vtb_1.position)
else
//mouse wheel up
st_pos.text = string(vtb_1.position)
end if
end if

那如果要防止使用者使用滑鼠滾動(禁用)，就可以在事件返迴 1 ，以防止事件執行：


if message.number = 522 then
return 1
end if

相對的這個在 DataWindow Control 物件上也適用喔！