VSFLEXGRID控件的问题 - 编程论坛

#2

chen3bing2019-06-03 16:40

顶起来。现在第一个问题搞好了，找到了一个函数。
Public Sub SetRowColor(ByRef MSHFlexGrid As Object)
    Dim J, i, objName
    objName = TypeName(MSHFlexGrid)

    If StrConv(Trim(objName), vbUpperCase) <> "VSFLEXGRID" Then
        Exit Sub
    End If

    MSHFlexGrid.FillStyle = 1

    For i = 1 To MSHFlexGrid.Rows - 1
        MSHFlexGrid.Row = i

        If i Mod 2 = 0 Then
            MSHFlexGrid.Col = 0
            MSHFlexGrid.ColSel = MSHFlexGrid.Cols - 1
            MSHFlexGrid.CellBackColor = &H80000018
        End If

    Next i

    For i = 1 To MSHFlexGrid.Rows - 1
        MSHFlexGrid.Row = i
        MSHFlexGrid.Col = 0
        MSHFlexGrid.CellBackColor = &H8000000F

    Next i

    MSHFlexGrid.FillStyle = 0
    MSHFlexGrid.Row = 0
    MSHFlexGrid.Col = 0
End Sub
其他两个问题还没解决。

#3

wufuzhang2019-06-04 09:40

回复楼主 chen3bing

程序代码：

Option Explicit

Dim OldVSFRow As Integer
Dim OldVSFCol As Integer

Private Sub Form_Load()
  With VSFlexGrid1
       .Cols = 20
       .Rows = 20
       .ScrollBars = flexScrollBarVertical
       .BackColorAlternate = &HC0E0FF
       .AllowBigSelection = False
       .AllowSelection = False
  End With

  OldVSFRow = 1
  OldVSFCol = 1
End Sub

Private Sub VSFlexGrid1_Click()
  If OldVSFRow Mod 2 = 1 Then
     VSFlexGrid1.Cell(flexcpBackColor, OldVSFRow, OldVSFCol) = vbWhite
  Else
     VSFlexGrid1.Cell(flexcpBackColor, OldVSFRow, OldVSFCol) = &HC0E0FF
  End If
  VSFlexGrid1.CellBackColor = vbBlue
  OldVSFRow = VSFlexGrid1.RowSel
  OldVSFCol = VSFlexGrid1.ColSel
End Sub

#4

yzys2019-06-08 00:01

谢谢分享

[此贴子已经被作者于2019-6-8 00:02编辑过]

#5

dasdaa2021-11-20 15:51

谢谢分享！