設定mshflexgrid每行的顏色
public sub setrowcolor(byref mshflexgrid as object)
dim j, i, objname
objname = typename(mshflexgrid)
if strconv(trim(objname), vbuppercase) <> "mshflexgrid" then
exit sub
end if
mshflexgrid.fillstyle = 1
for i = 1 to mshflexgrid.rows - 1
mshflexgrid.row = i
if i mod 2 = 0 then
mshflexgrid.col = 0
mshflexgrid.colsel = mshflexgrid.cols - 1
mshflexgrid.cellbackcolor = &h80ffff
end if
next i
mshflexgrid.fillstyle = 0
mshflexgrid.row = 0
mshflexgrid.col = 0
end sub
eclispse設定每行字元數
在使用eclipse的時候經常會使用eclipse的格式化，但是eclipse的格式化經常都很難看，因為它是按照每80個字元乙個換行，換不了的時候更難看，所以我想要改變這樣的情況，只能修改它的配置 首先new 乙個 style，可以命名為mystyle 修改一下 maximun line width...
TileList 動態設定每行顯示的數目
動態設定每行顯示的數目的關鍵是計算出每個label的最大長度。得到資料來源後，對資料來源進行處理 private function setlistdata isfirst boolean void if isfirst ac.setitemat item,i 找到最大的字串長度 var column...
使MSHFlexGrid支援滑鼠滾動
以下程式放在乙個公共模組中，在窗體中的form load事件中 寫 hookwheel me.hwnd 在窗體中的form unload事件中 寫 unhookwheel me.hwnd 在 的gotfocus事件中 set ctlwheel msflexgrid1 名稱，根據具體情況，修改這個名稱...