VB中MsFlexGrid控制項的使用細則

2021-04-02 22:24:28 字數 2482 閱讀 2229

vb中msflexgrid控制項的使用細則(收集)

>> 將文字賦值給msflexgrid的單元格

msflexgrid.textmatrix(3,1)=」hello」

>> 在msflexgrid控制項單元格中插入背景圖形

set msflexgrid.cellpicture=loadpicture(「c:/temp/1.bmp」)

>>選中某個單元

msflexgrid.row=1

msflexgrid.col=1

>>用粗體格式化當前選中單元

msflexgrid.cellfontbold=true

>> 新增新的一行

使用additem方法,用tab字元分開不同單元格的內容

dim row as string

row=」aaa」&vbtab&」bbb」

msflexfrid1.additem row

>>怎樣來實現msflexgrid控制項單數行背景為白色,雙數的行背景為藍色?

dim i as integer

with msflexgrid1

.allowbigselection = true   』 設定網格樣式

.fillstyle = flexfillrepeat

for i = 0 to .rows - 1

.row = i: .col = .fixedcols

.colsel = .cols() - .fixedcols - 1

if i mod 2 = 0 then

.cellbackcolor = &hc0c0c0   』 淺灰

else

.cellbackcolor = vbblue 』 蘭色

end if

next i

end with

>> msflexgrid控制項如何移到最後一行

msflexgrid1.toprow = msflexgrid1.rows – 1

>>如何判斷msflexgrid有無滾動條

declare function getscrollrange lib "user32" (byval hwnd as long, byval nbar as long, lpminpos as long, lpmaxpos as long) as long

public const sb_horz = &h0

public const sb_vert = &h1

public function vsscroll(mshgrid as mshflexgrid) as boolean          』判斷水平滾動條的可見性

dim i as long

vsscroll = false

i = getscrollrange(mshgrid.hwnd, sb_horz, lpminpos, lpmaxpos)

if lpmaxpos <> lpminpos then vsscroll = true

end function

public function hescroll(mshgrid as mshflexgrid) as boolean          』判斷垂直滾動條的可見性

dim i as long

hescroll = false

i = getscrollrange(mshgrid.hwnd, sb_vert, lpminpos, lpmaxpos)

if lpmaxpos <> lpminpos then hescroll = true

end function

>>程式執行時,想動態增加msflexgrid的列數

在第2列後插入一列:

private sub form_load()

me.mshflexgrid1.cols = 5

mshflexgrid1.rows = 2

for i = 0 to me.mshflexgrid1.cols - 1

me.mshflexgrid1.textmatrix(0, i) = i

me.mshflexgrid1.textmatrix(1, i) = i

next

end sub

private sub command1_click()

me.mshflexgrid1.cols = me.mshflexgrid1.cols + 1

me.mshflexgrid1.colposition(5) = 3

end sub

>> 請教msflexgrid中的對齊功能的使用

設定msflexgrid1.colalignment(index)=n

>>得到msflexgrid控制項中當前選中的一行

msflexgrid1.row sel就是當前選中行

>> 如何通過**調節列寬度

msflexgrid1.colwidth(i)=4000

VB版機房收費 MSFlexGrid控制項

一 在機房中遇到的問題 問題一 用msflexgrid控制項的時候,設定click事件以達到查詢的目的,並且將查詢內容顯示在控制項中,需要刪除上一次查詢的內容,有兩種方法。第一種方法是,在第二次顯示內容的時候先判斷控制項的第二行是否有內容,有的話則刪除,用迴圈語句來判斷,直到第二行 除了第一行的表頭...

MSFlexGrid控制項

在做學生管理系統時在查詢這個模組中,將查詢的內容顯示給使用者。用的是msflexgrid控制項。首先在使用前在工程 部件進行控制項的新增。新增的是microsofy flexgrid control 6.0。功能 msflexgrid控制項可以顯示網格資料,也可以對其進行操作。提供了靈活的網路排序 ...

MFC 使用MSFlexGrid6 0控制項經驗

在做專案的時候使用到了額外引用了msflexgrid控制項,因為專案是unicode環境,支援多語言,其中包括中文 簡體,gb2312 和中文 繁體,big5 winxp作業系統語言是簡體中文時,軟體選擇不同的語言環境,msflexgrid上的控制項的語言能正常顯示 winxp作業系統選擇語言為正體...