如何在msflexgrid 两行之间 画条线 求教

Question

我已经将gridcolor设置成跟背景一个颜色了  就看起来没有网格线了  现在我需要在两行之间画线  列之间不需要线  有没有大侠知道该怎么做？   谢谢

Answer 1

为什么要搞成这样。要加line就行么？

Answer 2

可以用一个高度为15的PictureBox控件当做线

Answer 3

谁让你把gridcolor设置成跟背景一个颜色，本来就是自找麻烦

Answer 4

先放好一个picture，把它的index设0
然后
Private Sub Form_Load()
    Dim i As Integer
    Dim j As Integer
    
    MSFlexGrid1.Rows = 39
    MSFlexGrid1.Cols = 7
    
    For i = 1 To 38
        For j = 1 To 6
            MSFlexGrid1.TextMatrix(i, j) = i & " " & j
        Next j
    Next i
    
    For i = 1 To 25
        Load Picture1(i)
        Picture1(i).Left = Picture1(0).Left
        Picture1(i).Top = Picture1(0).Top + i * (MSFlexGrid1.CellHeight + 15)
        Picture1(i).Visible = True
        Picture1(i).ZOrder (0)
    Next i
    
End Sub

Answer 5

Private Sub Form_Load()
    Dim i As Integer
    Dim j As Integer
    
    MSFlexGrid1.Rows = 39
    MSFlexGrid1.Cols = 7
    
    For i = 1 To 38
        For j = 1 To 6
            MSFlexGrid1.TextMatrix(i, j) = i & " " & j
        Next j
    Next i
    
    For i = 1 To 25   '要根据你显示的行数来确定
        Load Picture1(i)
        Picture1(i).Left = Picture1(0).Left
        Picture1(i).Top = Picture1(0).Top + i * (MSFlexGrid1.CellHeight + 15)
        Picture1(i).Visible = True
        Picture1(i).ZOrder (0)
    Next i
    
End Sub

Answer 6

隔行变色
With MS1
  .FillStyle = 1    For I = 1 To .Rows-1
      .Row = I
      .Col = 0
      .ColSel = .Cols-1
      If I Mod 2 = 0 Then '偶数行
        .CellForeColor = "&H" & Hex(XXX)
       .CellBackColor = "&H" & Hex(XXX)
      Else    '奇数行
        .CellForeColor = "&H" & Hex(XXX)
       .CellBackColor = "&H" & Hex(XXX)
      End If
    Next I  .FillStyle = 0
  .Row = 0
  .Col = 0
End With

Answer 7

自动化程度高一些
Private Sub Form_Load()
    Dim i As Integer
    Dim j As Integer
    
    MSFlexGrid1.Rows = 39
    MSFlexGrid1.Cols = 7
    
    For i = 1 To 38
        For j = 1 To 6
            MSFlexGrid1.TextMatrix(i, j) = i & " " & j
        Next j
    Next i
    
    Picture1(0).Left = MSFlexGrid1.Left + 45
    Picture1(0).Top = MSFlexGrid1.Top + MSFlexGrid1.CellHeight + 45
    Picture1(0).Width = MSFlexGrid1.Width - 500
    Picture1(0).Height = 15
    Picture1(0).BackColor = vbRed
    
    i = 0
    Do
        i = i + 1
        Load Picture1(i)
        Picture1(i).Left = Picture1(0).Left
        Picture1(i).Top = Picture1(0).Top + i * (MSFlexGrid1.CellHeight + 15)
        Picture1(i).Visible = True
        Picture1(i).ZOrder (0)
    Loop Until 60 + (i + 2) * (MSFlexGrid1.CellHeight + 15) >= MSFlexGrid1.Height
    
End Sub