常见改变MSHFLEXGRID的颜色的方法.docx

常见改变MSHFLEXGRID的颜色的方法.docx

《常见改变MSHFLEXGRID的颜色的方法.docx》由会员分享，可在线阅读，更多相关《常见改变MSHFLEXGRID的颜色的方法.docx（10页珍藏版）》请在冰豆网上搜索。

常见改变MSHFLEXGRID的颜色的方法

如何将选中的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 

                  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 

    Dim   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   Sub

mshflexgrid怎么改变某一行的背景色和字体颜色？

PrivateSubsetColor（msfgAsMSFlexGrid,rowAsLong,colorAsLong,bkcolorAsLong）

Fori=1Tomsfg.Cols-1

msfg.row=row

msfg.Col=i

msfg.CellForeColor=color'前景色

msfg.CellBackColor=bkcolor'背景色

Next

EndSub

PrivateSubCommand1_Click（）

setColorMSFlexGrid1,3,&HFFFF&,&H8000000D

EndSub

PrivateSubForm_Load（）

MSFlexGrid1.Rows=5

MSFlexGrid1.Cols=5

Fori=1To4

Forj=1To4

MSFlexGrid1.TextMatrix（i,j）=j

Next

Next

EndSub

让MSHFlexGrid只能被选中一行的另一方法

1、放置一个 HSB1 （HScrollBar） ,MSHFlexGrid1（MSHFlexGrid） 

2、如下代码:

'--------------------------------------------------------- 

Private Sub Form_Load（） 

    If MSHFlexGrid1.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 = 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 FlexRedraw（F As MSHFlexGrid） As String  

     With F  

         .Redraw = False  '禁止重画,防止闪动  

         .BackColorFixed = RGB（190, 218, 178）  '标题行背景色  

         .Row = 0         '设置标题行文字的对其方式  

         .Col = 0  

         .ColSel = .Cols - 1  

         .CellForeColor = vbBlue '标题行文字颜色  

         .CellAlignment = 4   '对其方式为中间中间  

         .ScrollTrack = True  '移动滚动条的同时数据也滚动  

         For I = .FixedRows To .Rows - 1 '单双行表格条纹背景色显示  

             .Row = I          '选择第I行  

             .Col = .FixedCols  

             .ColSel = .Cols - 1  

             If I / 2 = Int（I / 2） Then '判断是单是双  

                 .CellBackColor = RGB（224, 248, 224）   '双行的底色  

             Else  

                 .CellBackColor = RGB（240, 248, 224）    '单行的底色  

             End If  

         Next I  

         .Row = 1  

         .Col = 1  

         .ColSel = .Cols - 1  

         .Redraw = True '允许重画,显示表格  

     End With  

 End Function

给第0列打钩

MSFlexGrid1.TextMatrix（MSFlexGrid1.Row,0）="√"

      '改变行颜色

      Fori_Col=0ToMSFlexGrid1.Cols-1

        MSFlexGrid1.Col=i_Col

        MSFlexGrid1.CellBackColor=&H80C0FF

      Nexti_Col

PrivateSubCommand1_Click（）

MSFlexGrid1.BackColorBkg=vbGreen

EndSub

PrivateSubForm_Load（）

MSFlexGrid1.Cols=10

MSFlexGrid1.Rows=10

MSFlexGrid1.FixedCols=0

MSFlexGrid1.FixedRows=0

MSFlexGrid1.SelectionMode=flexSelectionByRow

EndSub

PrivateSubMSFlexGrid1_MouseDown（ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle）

'OnErrorGoToErr_Proc

  DimintCurrCol    AsLong

  intCurrCol=MSFlexGrid1.Col

  '单击选择或不选择

    IfMSFlexGrid1.TextMatrix（MSFlexGrid1.Row,0）="√"Then

      MSFlexGrid1.TextMatrix（MSFlexGrid1.Row,0）=""

      '改变行颜色

      Fori_Col=0ToMSFlexGrid1.Cols-1

        MSFlexGrid1.Col=i_Col

        MSFlexGrid1.CellBackColor=vbWhite

      Nexti_Col

  Else

      MSFlexGrid1.TextMatrix（MSFlexGrid1.Row,0）="√"

      '改变行颜色

      Fori_Col=0ToMSFlexGrid1.Cols-1

        MSFlexGrid1.Col=i_Col

        MSFlexGrid1.CellBackColor=&H80C0FF

      Nexti_Col

  EndIf

  MSFlexGrid1.Col=intCurrCol

  ExitSub

EndSub

PrivateSubMSFlexGrid1_MouseMove（ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle）

  Me.Caption=MSFlexGrid1.MouseRow&","&MSFlexGrid1.MouseCol

EndSub

我想实现的是当我选点击MSHFLEXGRID控件中某行的数据时，其颜色变为与原来的底色不同的颜色，但当我点击鼠标又重新选中其他行时，刚才选中的那一行恢复原来的颜色，而刚刚重新选中的新行显示不同的颜色。

如何实现

1.PrivateSubmfg1_Click（）

2.Dimrow,i,jAsInteger

3.row=mfg1.row

4.mfg1.Redraw=False

5.Fori=1Tomfg1.Rows-1

6.  mfg1.row=i

7.  Forj=0Tomfg1.Cols-1

8.      mfg1.Col=j

9.      mfg1.CellBackColor=&H80000005

10.  Nextj

11.Nexti

12.mfg1.row=row

13.Forj=0Tomfg1.Cols-1

14.  mfg1.Col=j

15.  mfg1.CellBackColor=vbGreen

16.Nextj

17.mfg1.Redraw=True

18.EndSub

按着ymshjg的方法选中行变色问题解决啦。

可我要mshflexgrid的click事件中又添加了下面的代码，为的是实现添加数据行的功能。

可添上后text1控件不动了。

总在最后一列，并且mshflexgrid控件的数据显示总从非第一列显示

（一）、Dimrow,i,jAsInteger

row=datadzh.row

datadzh.Redraw=False

Fori=1Todatadzh.Rows-1

  datadzh.row=i

  Forj=0Todatadzh.Cols-1

      datadzh.Col=j

      datadzh.CellBackColor=&HC0FFFF

  Nextj

Nexti

datadzh.row=row

Forj=0Todatadzh.Cols-1

  datadzh.Col=j

  datadzh.CellBackColor=vbGreen

Nextj

datadzh.Redraw=True

（二）、Withdatadzh

        Text1.Left=.CellLeft+datadzh.Left-10

        Text1.Top=.CellTop+datadzh.Top-10

        Text1.Width=.CellWidth

        Text1.Height=.CellHeight

        Text1.Text=datadzh.Text

        Text1.Enabled=True

        Text1.Visible=True

        Text1.BackColor=&HC0FFFF

EndWith

      Text1.Visible=True

      Text1.SetFocus

endsub

以上为mshflexgrid控件的click事件中全部的代码，要是把

（一）、

（二）两部分代码单独放置到CLICK事件中就没有问题，一同时放就有问题，不知道哪儿错了。

问题解决了，终于找到原因啦。

唉，我在datazw这个控件的mousedown事件下把text定位了。

唉。

解决了。

自己结贴了嘿嘿。

在VB中，单击MSHFlexGrid中的任何一个单元格即能实现选中该行，这个是怎么实现的？

选中的这行变为其它颜色。

请各位老师给予帮助。

另外单击列标头即能实现排列的互换，这又是怎么实现的呢？

1.SelectionMode=1-ByROW

2.MouseDown事件中如果Y为列头则调用Sort方法

MSHFlexGrid中单击某一行变色

VB codePrivate 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

            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

    Dim 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 Sub

让MSHFlexGrid只能被选中一行

MSHFlexGrid控件点击时可以选中多行，但有时我们需要仅仅选中一行，有一个小技巧：

OptionExplicit

DimCURRENTROWAsInteger

PrivateSubForm_Load（）

DimiAsInteger,jAsInteger

WithMSHFlexGrid1

.Rows=10

.Cols=4

Fori=1To9

.TextMatrix（i,0）="第"&i&"行"

Forj=1To3

.TextMatrix（0,j）="第"&j&"列"

.TextMatrix（i,j）=i&","&j

Next

Next

EndWith

EndSub

PrivateSubMSHFlexGrid1_MouseDown（ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle）

   WithMSHFlexGrid1

    .Row=.MouseRow

         CURRENTROW=.Row

     .Col=0

       .ColSel=.Cols-1

   EndWith

EndSub

PrivateSubMSHFlexGrid1_MouseUp（ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle）

WithMSHFlexGrid1

.RowSel=CURRENTROW

.ColSel=.Cols-1

EndWith

EndSub

如何让MSHFlexGrid只能被选中一行]

OptionExplicit

DimCURRENTROWAsInteger

PrivateSubForm_Load（）

DimiAsInteger,jAsInteger

WithMSHFlexGrid1

.Rows=10

.Cols=4

Fori=1To9

.TextMatrix（i,0）="第"&i&"行"

Forj=1To3

.TextMatrix（0,j）="第"&j&"列"

.TextMatrix（i,j）=i&","&j

Next

Next

EndWith

EndSub

PrivateSubMSHFlexGrid1_MouseDown（ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle）

WithMSHFlexGrid1

.Row=.MouseRow

CURRENTROW=.Row

.Col=0

.ColSel=.Cols-1

EndWith

EndSub

PrivateSubMSHFlexGrid1_MouseUp（ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle）

WithMSHFlexGrid1

.RowSel=CURRENTROW

.ColSel=.Cols-1

EndWith

EndSub