VB6中對MSHFlexGrid控件編程模擬實現滾動條與鼠標滾輪動作

郝西成

（蘭州資源環境職業學院，甘肅 蘭州 730000）

VB6中對MSHFlexGrid控件編程模擬實現滾動條與鼠標滾輪動作

郝西成

（蘭州資源環境職業學院，甘肅 蘭州 730000）

MSHFlexGrid控件；美化效果；模擬鼠標動作；VB編程

MSHFlexGrid控件用于對表格數據進行顯示和操作，可以將文本或圖片，或者文本和圖片放在MSHFlexGrid的任意單元中。程序員可以在代碼中指定當前單元，也可以在運行時使用鼠標或者方向鍵對其進行修改。在對包含字符串和圖片的表格進行分類、合并以及格式化時，使用MSHFlexGrid控件具有很大的靈活性。

然而MSHFlexGrid控件不能響應鼠標滾輪動作（即就是為VB6打上支持鼠標滾輪的補丁后），這就給使用者在操作時造成了不便，與此同時，該控件的滾動條顏色也未提供屬性進行設置，這也給使用者在考慮程序界面的美觀與統一時造成了影響。雖然可以使用標準Windows滾動條FlatScrollBar控件加上一些自編代碼代替MSHFlexGrid控件自身的滾動條使效果有所改善，亦或在VB“部件”下選擇Microsoft Forms Object Library來使用它提供的可以設置顏色的滾動條加上一些自編代碼來代替MSHFlexGrid控件自身的滾動條，但效果仍差強人意。針對上述問題，在不借助第三方控件的前提下完全可以通過編程來模擬實現。

1 建立工程

在窗體上先放置一個PictureBox控件(Picture1)，再在其中放置1個MSHFlexGrid和1個PictureBox控件(Picture2)，最后在Picture2中放置4個Image控件（見圖1，其中Picture2內從左到右依次為Image1、Image2、Image3和Image4。為保證顯示效果，在用工具制作這4個圖像時，應讓其水平、寬度、像素保持一致，并注意Image1、Image2和Image3圖像的大小即高度、像素比例保持協調）。

圖1 Picture2中放置4個Image控件示意圖

2 添加模塊

輸入以下代碼（截取發送到窗體的Windows消息，實現鼠標滾輪的事件檢測）。

3 為窗體輸入以下代碼

4 效果驗證

運行程序后單擊Image3、Image2、Image4或拖動Image2，將發現此時與滾動條操作效果完全一致，不論鼠標指針位置在何處，在當窗體處于活動狀態時，只要滾動鼠標滾輪，MSHFlex-Grid中數據與Image2都會同步移動，看看是否與“千千靜聽”的播放列表窗口操作很相似。

如果對MSHFlexGrid控件的選中行配合使用其CellPicture屬性，則可以將圖片放在MSHFlexGrid的對應單元格中，同時，也只需要再增加幾行簡單的代碼，便可以使模擬的滾動條在需要的時候出現，而在不需要的時候就隱藏起來，當然，我們還可以為Image1、Image2和Image3再分別制作一個圖像，并調用API函數（GetCursorPos）繼續編程，來獲取鼠標指針在屏幕像素坐標中的位置，從而測算出鼠標指針是否移入或移出Image1、Image2和Image3對象，進而實現Image1、Image2和Image3對象圖像的即時更換（在VB中，雖然Image控件支持鼠標的移入事件，但卻未提供移出事件，盡管在當其他對象發生鼠標的移入事件時，事實上也就是鼠標指針從Image控件上移出，但基于這樣一個思路的編程實際效果有相當的局限性），這樣就可以使我們模擬的滾動條顯示效果更加美觀、生動，當然，也別忘記給窗體“化妝”（此時即與“千千靜聽”的播放列表窗口操作效果完全一致了。見圖2。這是自編的影音播放程序中在使用MSHFlexGrid控件顯示播放列表時，代碼中常數p2取值6并且在鼠標指針指向Image2對象時的顯示效果情況）。

圖2 自編影音播放程序的顯示效果

上述代碼中，MSHFlexGrid控件的ScrollBars屬性值被設置為FlexScrollBarNone，此時，改變其TopRow屬性值就不能實現數據行的滾動，雖然可以將MSHFlexGrid控件的ScrollBars屬性值設置為FlexScrollBarBoth或FlexScrollBarVertical，并利用PictureBox控件的容器特性將MSHFlexGrid控件的Width屬性設置超過PictureBox控件的Width屬性值后，使MSHFlexGrid控件自身的滾動條不被看到，但由于Windows外觀設置的不同，MSHFlexGrid控件的滾動條顯示寬度也隨之變化。當然，我們可以將MSHFlexGrid控件的Width屬性值設置的足夠大，并且測算出其存放數據的最右一列的寬度，使其達到模擬滾動條所用的PictureBox控件（Picture2對象）的左側邊界來解決，而如果要求精確設置MSHFlexGrid控件的Width屬性，就需要額外編程檢測Windows的版本及外觀設置，為簡化代碼，并多一種解決問題的思路，同時又使代碼更具有通用性（其實利用上述代碼的架構也可以實現Picture1對象內其他內容的滾動顯示），筆者沒有使用MSHFlexGrid控件的TopRow屬性值去實現數據行滾動。在程序中，由于對MSHFlexGrid控件設置了RowHeight（0）= 0，并且VB系統中又默認MSHFlexGrid控件的Row屬性是從0開始計數的，故在尚未增加檢測模擬滾動條是否根據MSHFlexGrid控件中數據行數是顯示或隱藏的代碼之前，應保證常數p3的值比p2至少大2。

G420

A

1671-1246（2010）24-0155-04