常見改變MSHFLEXGRID的顏色的方法

如何將選中的MSHFlexGrid一行高亮顯示高亮顯示要設(shè)置顏色PrivateSubhflexgrid_EnterCell()'單擊某一單元時，改變該行顏色Dimi_ColAsIntegerDimc_colAsIntegerc_col=Hflexgrid.colIfc_col>0ThenFori_Col=0ToHflexgrid.Cols-1Hflexgrid.col=i_ColHflexgrid.CellBackColor=&HFFFFC0Nexti_ColHflexgrid.col=c_colEndIfEndSubPrivateSubhflexgrid_LeaveCell()'當(dāng)某一行失去焦點時，恢復(fù)該行顏色Dimi_ColAsIntegerDimc_colAsIntegerc_col=Hflexgrid.colFori_Col=0ToHflexgrid.Cols-1Hflexgrid.col=i_ColHflexgrid.CellBackColor=vbWhiteNexti_ColHflexgrid.col=c_colEndSubmshflexgrid怎么改變某一行的背景色和字體顏色？PrivateSubsetColor(msfgAsMSFlexGrid,rowAsLong,colorAsLong,bkcolorAsLong)Fori=1Tomsfg.Cols-1msfg.row=row

msfg.Col=imsfg.CellForeColor=color'前景色msfg.CellBackColor=bkcolor'背景色NextEndSubPrivateSubCommand1_Click()setColorMSFlexGrid1,3,&HFFFF&,&H8000000DEndSubPrivateSubForm_Load()MSFlexGrid1.Rows=5MSFlexGrid1.Cols=5Fori=1To4Forj=1To4MSFlexGrid1.TextMatrix(i,j)=jNextNextEndSub讓MSHFlexGrid只能被選中一行的另一方法1、 放置一個HSB1(HScrollBar),MSHFlexGrid1(MSHFlexGrid)2、 如下代碼:' PrivateSubForm_Load()IfMSHFlexGrid1.ColsthenHSB1.Min=1HSB1.Max=MSHFlexGrid1.ColsEndIfEndSub

PrivateSubHSB1_Change()IfMSHFlexGridl.ColsthenMSHFlexGridl.Row=HSB1.valueMSHFlexGrid1.ColSel=MSHFlexGrid1.Cols-1EndIfEndSub' PrivateSubMSHFlexGrid1_Click()IfMSHFlexGrid1.ColsthenHSB1.value=MSHFlexGrid1.RowEndIfEndSub怎么改變MSHFlexGrid某個單元格的顏色PublicFunctionFlexRedraw(FAsMSHFlexGrid)AsStringWithF.Redraw=False '禁止重畫，防止閃動.BackColorFixed= RGB(190, 218, 178) '標(biāo)題行背景色.Row=0 '設(shè)置標(biāo)題行文字的對其方式.Col= 0.ColSel=.Cols- 1.CellForeColor=vbBlue'標(biāo)題行文字顏色.CellAlignment=4 '對其方式為中間中間.ScrollTrack=True '移動滾動條的同時數(shù)據(jù)也滾動ForI=.FixedRowsTo.Rows- 1 '單雙行表格條紋背景色顯示.Row=I '選擇第I行.Col=.FixedColsTOC\o"1-5"\h\z.ColSel=.Cols- 1IfI/ 2 =Int(I/ 2)Then'判斷是單是雙.CellBackColor= RGB(224,248, 224)'雙行的底色Else.CellBackColor= RGB(240,248, 224)'單行的底色EndIfNextI.Row= 1.Col= 1.ColSel=.Cols- 1.Redraw=True'允許重畫，顯示表格EndWithEndFunction給第0列打鉤MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,0)="V"'改變行顏色Fori_Col=0ToMSFlexGridl.Cols-1MSFlexGridl.Col=i_ColMSFlexGrid1.CellBackColor=&H80C0FFNexti_ColPrivateSubCommand1_Click()MSFlexGrid1.BackColorBkg=vbGreenEndSubPrivateSubForm_Load()MSFlexGrid1.Cols=10MSFlexGrid1.Rows=10MSFlexGrid1.FixedCols=0MSFlexGrid1.FixedRows=0MSFlexGrid1.SelectionMode=flexSelectionByRowEndSubPrivateSubMSFlexGrid1_MouseDown(ButtonAsIntege,ShiftAsIntegerxAsSingle,yAsSingle)'OnErrorGoToErr_ProcDimintCurrColAsLongintCurrCol=MSFlexGrid1.Col'單擊選擇或不選擇IfMSFlexGrid1.TextMatrix(MSFlexGrid1.Row,0)="V"ThenMSFlexGrid1.TextMatrix(MSFlexGrid1.Row,0)=""'改變行顏色Fori_Col=0ToMSFlexGrid1.Cols-1MSFlexGrid1.Col=i_ColMSFlexGrid1.CellBackColor=vbWhiteNexti_ColElseMSFlexGrid1.TextMatrix(MSFlexGrid1.Row,0)="V”'改變行顏色Fori_Col=0ToMSFlexGrid1.Cols-1MSFlexGrid1.Col=i_ColMSFlexGrid1.CellBackColor=&H80C0FFNexti_Col

EndIfMSFlexGridl.Col=intCurrColExitSubEndSubPrivateSubMSFlexGrid1_MouseMove(ButtonAsIntegerShiftAsInteger,xAsSingle,yAsSingle)Me.Caption=MSFlexGridl.MouseRow&","&MSFlexGridl.MouseColEndSub我想實現(xiàn)的是當(dāng)我選點擊MSHFLEXGRID控件中某行的數(shù)據(jù)時，其顏色變?yōu)榕c原來的底色不同的顏色，但當(dāng)我點擊鼠標(biāo)又重新選中其他行時，剛才選中的那一行恢復(fù)原來的顏色，而剛剛重新選中的新行顯示不同的顏色。如何實現(xiàn)PrivateSubmfg1_Click()Dimrow,i,jAsIntegerrow=mfg1.rowmfg1.Redraw=FalseFori=1Tomfg1.Rows-1mfg1.row=iForj=0Tomfg1.Cols-1mfg1.Col=jmfg1.CellBackColor=&H80000005NextjNextimfg1.row=rowForj=0Tomfg1.Cols-1mfg1.Col=jmfg1.CellBackColor=vbGreenNextjmfg1.Redraw=TrueEndSub

按著ymshjg的方法選中行變色問題解決啦?？晌乙猰shflexgrid的click事件中又添加了下面的代碼，為的是實現(xiàn)添加數(shù)據(jù)行的功能?？商砩虾髏extl控件不動了?？傇谧詈笠涣?，并且mshflexgrid控件的數(shù)據(jù)顯示總從非第一列顯示（一） 、Dimrow,i,jAsIntegerrow=datadzh.rowdatadzh.Redraw=FalseFori=1Todatadzh.Rows-1datadzh.row=iForj=0Todatadzh.Cols-1datadzh.Col=jdatadzh.CellBackColor=&HC0FFFFNextjNextidatadzh.row=rowForj=0Todatadzh.Cols-1datadzh.Col=jdatadzh.CellBackColor=vbGreenNextjdatadzh.Redraw=True（二） 、WithdatadzhText1.Left=.CellLeft+datadzh.Left-10Text1.Top=.CellTop+datadzh.Top-10Text1.Width=.CellWidthText1.Height=.CellHeightText1.Text=datadzh.TextText1.Enabled=TrueText1.Visible=TrueTextI.BackColor=&HC0FFFFEndWithTextl.Visible=TrueText1.SetFocusendsub以上為mshflexgrid控件的click事件中全部的代碼，要是把（一、（二）兩部分代碼單獨放置到CLICK事件中就沒有問題，一同時放就有問題，不知道哪兒錯了。問題解決了，終于找到原因啦。唉，我在datazw這個控件的mousedown事件下把text定位了。唉。解決了。自己結(jié)貼了嘿嘿。在VB中，單擊MSHFlexGrid中的任何一個單元格即能實現(xiàn)選中該行，這個是怎么實現(xiàn)的？選中的這行變?yōu)槠渌伾?。請各位老師給予幫助。另外單擊列標(biāo)頭即能實現(xiàn)排列的互換，這又是怎么實現(xiàn)的呢？I.SelectionMode=1-ByROW2.MouseDown事件中如果Y為列頭則調(diào)用Sort方法MSHFlexGrid中單擊某一行變色VBcodePrivateSubHFlexgrid_EnterCell()'單擊某一單元時，改變該行顏色Dimi_ColAsIntegerDimc_colAsIntegerc_col=Hflexgrid.ColIfc_col>0ThenFori_Col=0ToHflexgrid.Cols-1Hflexgrid.Col=i_ColHflexgrid.CellBackColor=&HFFFFC0Nexti_ColHflexgrid.Col=c_colEndIfEndSubPrivateSubHFlexgrid_LeaveCell()'當(dāng)某一行失去焦點時，改變該行顏色Dimi_ColAsIntegerDimc_colAsIntegerc_col=Hflexgrid.ColFori_Col=0ToHflexgrid.Cols-1Hflexgrid.Col=i_ColHflexgrid.CellBackColor=vbWhiteNexti_ColHflexgrid.Col=c_colEndSub讓MSHFlexGrid只能被選中一行MSHFlexGrid控件點擊時可以選中多行，但有時我們需要僅僅選中一行，有一個小技巧:OptionExplicitDimCURRENTROWAsIntegerPrivateSubForm_Load()DimiAsIntegei,jAsIntegerWithMSHFlexGridl.Rows=10.Cols=4Fori=1To9.TextMatrix(i,0)='第"&i&"行”Forj=1To3.TextMatrix(0,j)="第"&j&"歹.TextMatrix(i,j)=i&","&jNextNextEndWithEndSubPrivateSubMSHFlexGrid1_MouseDown(ButtonAsIntegei,ShiftAsInteger,xAsSingle,yAsSingle)WithMSHFlexGridl.Row=.MouseRowCURRENTROW=.Row.Col=0.ColSel=.Cols-1EndWithEndSubPrivateSubMSHFlexGrid1_MouseUp(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)WithMSHFlexGridl.RowSel=CURRENTROW.ColSel=.Cols-1EndWith