首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

关于MSHFlexGrid控件显示有关问题

2012-08-21 
关于MSHFlexGrid控件显示问题界面中有一MSHFlexGrid控件、一个textbox控件和一个cmd按钮,我想在textbox中输

关于MSHFlexGrid控件显示问题
界面中有一MSHFlexGrid控件、一个textbox控件和一个cmd按钮,我想在textbox中输入文字,然后在mshflexgrid中历遍所有单元格,若单元格中的值包含textbox内容的,则变色显示。
我现在只做了单元格内容与textbox完全相同才会变色显示,以下是代码,请个位大神帮忙出出点子,在此谢过了。
Private Sub Command2_Click()
 Dim a, b As Integer
  For a = 0 To msgtest2.Rows - 1
  For b = 0 To msgtest2.Cols - 1
  
  If msgtest2.TextMatrix(a, b) = Text1.Text Then
  msgtest2.Row = a
  msgtest2.Col = b
  msgtest2.CellBackColor = vbRed
  End If
  Next
  Next
  

End Sub

[解决办法]
if instr(text1.text,msgtest2.textmatrix(a,b)>0 then

热点排行