常见改变mshflexgrid的颜色的方法

《常见改变mshflexgrid的颜色的方法》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、如何将选中的MSHFlexGrid一行高亮显示高亮显示要设置颜色Private   Sub   hflexgrid_EnterCell()     '单击某一单元时，改变该行颜色     Dim   i_Col   As   Integer     Dim   c_col   As   Integer     c_col   =   Hflexgrid.col     If   c_col   >   0   Then           For   i_Col   =   0   To   Hflexgrid.Cols   -   1     

2、              Hflexgrid.col   =   i_Col                   Hflexgrid.CellBackColor   =   &HFFFFC0           Next   i_Col           Hflexgrid.col   =   c_col     End   If End   Sub Private   Sub   hflexgrid_LeaveCell()     '当某一行失去焦点时，恢复该行颜色     Dim   i_Col   As   Integer     Di

3、m   c_col   As   Integer     c_col   =   Hflexgrid.col     For   i_Col   =   0   To   Hflexgrid.Cols   -   1             Hflexgrid.col   =   i_Col             Hflexgrid.CellBackColor   =   vbWhite     Next   i_Col     Hflexgrid.col   =   c_col End   Submshflexgrid怎么改变某一行的背景色和

4、字体颜色？PrivateSubsetColor(msfgAsMSFlexGrid,rowAsLong,colorAsLong,bkcolorAsLong)Fori=1Tomsfg.Cols-1msfg.row=rowmsfg.Col=imsfg.CellForeColor=color'前景色msfg.CellBackColor=bkcolor'背景色NextEndSubPrivateSubCommand1_Click()setColorMSFlexGrid1,3,&HFFFF&,&H8000000DEndSubPrivateSubForm_Loa

5、d()MSFlexGrid1.Rows=5MSFlexGrid1.Cols=5Fori=1To4Forj=1To4MSFlexGrid1.TextMatrix(i,j)=jNextNextEndSub让MSHFlexGrid只能被选中一行的另一方法1、放置一个 HSB1 (HScrollBar) ,MSHFlexGrid1(MSHFlexGrid) 2、如下代码: '--------------------------------------------------------- Private Sub Form_Load()     If MS

6、HFlexGrid1.Cols then         HSB1.Min=1         HSB1.Max=MSHFlexGrid1.Cols     End If End Sub '--------------------------------------------------------- Private Sub HSB1 _Change()     If MSHFlexGrid1.Cols then         MSHFlexGrid1.Row = HSB1 .value         MSHFlexGrid1.ColSel

7、 = MSHFlexGrid1.Cols - 1     End If End Sub '--------------------------------------------------------- Private Sub MSHFlexGrid1_Click()      If MSHFlexGrid1.Cols then            HSB1 .value = MSHFlexGrid1.Row     End If End Sub 怎么改变MSHFlexGrid某个单元格的颜色 Public Function FlexRedr

8、aw(F As MSHFlexGrid) As String       With F           .Redraw = Fals