1 / 10
文档名称:

常见改变mshflexgrid的颜色的方法.doc

格式:doc   大小:54KB   页数:10页
下载后只包含 1 个 DOC 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

常见改变mshflexgrid的颜色的方法.doc

上传人:endfrs 2017/6/30 文件大小:54 KB

下载得到文件列表

常见改变mshflexgrid的颜色的方法.doc

相关文档

文档介绍

文档介绍:如何将选中的MSHFlexGrid一行高亮显示
高亮显示要设置颜色
Private   Sub   hflexgrid_EnterCell() 
    '单击某一单元时,改变该行颜色 
    Dim   i_Col   As   Integer 
    Dim   c_col   As   Integer 
    c_col   =    
    If   c_col   >   0   Then 
          For   i_Col   =   0   To      -   1 
                     =   i_Col 
                     =   &HFFFFC0 
          Next   i_Col 
             =   c_col 
    End   If 
End   Sub 
Private   Sub   hflexgrid_LeaveCell() 
    '当某一行失去焦点时,恢复该行颜色 
    Dim   i_Col   As   Integer 
    Dim   c_col   As   Integer 
    c_col   =    
    For   i_Col   =   0   To      -   1 
               =   i_Col 
               =   vbWhite 
    Next   i_Col 
       =   c_col 
End   Sub
mshflexgrid怎么改变某一行的背景色和字体颜色?
Private Sub setColor(msfg As MSFlexGrid, row As Long, color As Long, bkcolor As Long)
For i = 1 To - 1
= row
= i
= color '前景色
= bkcolor '背景色
Next
End Sub
Private mand1_Click()
setColor MSFlexGrid1, 3, &HFFFF&, &H8000000D
End Sub
Private Sub Form_Load()
= 5
= 5
For i = 1 To 4
For j = 1 To 4
(i, j) = j
Next
Next
End Sub
让MSHFlexGrid只能被选中