当我鼠标点MSHFlexGrid控件某单元格时，该单元格变色

当我鼠标点MSHFlexGrid控件某单元格时，该单元格变成其他颜色.  
  谢谢各位帮忙！ 问题点数：20、回复次数：3Top

1 楼zyguyue（何必何苦）回复于 2005-05-18 16:01:44 得分 5

grid.CellBackColor   =   &H800000  
                          grid.CellForeColor   =   &HFFFFFF  
  这是白底蓝色，方法类似Top

2 楼leolan（史留香）回复于 2005-05-18 17:40:57 得分 5

Private   Sub   MSHFlexGrid1_EnterCell()  
          MSHFlexGrid1.CellForeColor   =   vbBlue    
  End   Sub  
   
  Private   Sub   MSHFlexGrid1_LeaveCell()  
          MSHFlexGrid1.CellForeColor   =   vbBlack  
  End   SubTop

3 楼22wolf（绝地孤狼）回复于 2005-05-19 11:26:58 得分 10

Option   Explicit  
  Dim   j   As   Integer  
  Dim   k   As   Integer  
   
  Private   Sub   MSHFlexGrid1_Click()  
          Call   Color(Me.MSHFlexGrid1.Row,   Me.MSHFlexGrid1.Col,   j,   k)  
  End   Sub  
   
  Private   Sub   Color(i   As   Integer,   n   As   Integer,   j   As   Integer,   k   As   Integer)  
      'i代表行  
      'n代表列  
   
        With   Me.MSHFlexGrid1  
                        .Row   =   i  
                        .Col   =   n  
                        .CellBackColor   =   &HC0FFFF         '变成黄色  
                         
                         
                        If   (j   >   0   And   i   <>   j)   Or   (k   >   0   And   n   <>   k)   Then  
                        .Row   =   j  
                        .Col   =   k  
                        .CellBackColor   =   &HFFFFFF         '变成白色  
                        End   If  
                      j   =   i  
                      k   =   n  
        End   With  
  End   SubTop

相关问题

• me
• 单元格
• mshflexgrid1
• cellforecolor
• cellbackcolor
• 变成
• sub
• col
• row
• as integer

• 帖主：sunnyxieQUN
• zyguyue
• leolan
• 22wolf

• Visual Basic类图书
• Visual Basic类源码下载