Dim oldrow As Integer Private Sub Form_Load() With MSHFlexGrid1 .Cols = 20 .Rows = 20 End With End SubPrivate Sub MSHFlexGrid1_Click() Dim row As Integer row = MSHFlexGrid1.MouseRow For i = 1 To 19 MSHFlexGrid1.Col = i MSHFlexGrid1.CellBackColor = vbRed Next MSHFlexGrid1.row = oldrow For i = 1 To 19 MSHFlexGrid1.Col = i MSHFlexGrid1.CellBackColor = vbWhite Next oldrow = row End Sub
Option Explicit Private Sub Form_Load() Dim i As Integer, j As Integer With MSFlexGrid1 .Rows = 10 .Cols = 4 For i = 1 To 9 .TextMatrix(i, 0) = "第 " & i & " 行" For j = 1 To 3 .TextMatrix(0, j) = "第 " & j & " 列" .TextMatrix(i, j) = i & "," & j Next Next .SelectionMode = flexSelectionByRow .BackColorSel = vbGreen .ForeColorSel = vbRed End With End Sub Private Sub MSFlexGrid1_Mousemove(Button As Integer, Shift As Integer, x As Single, y As Single) With MSFlexGrid1 .row = .MouseRow .Col = 0 .ColSel = .Cols - 1 End With End Sub
Private Sub Form_Load()
With MSHFlexGrid1
.Cols = 20
.Rows = 20
End With
End SubPrivate Sub MSHFlexGrid1_Click()
Dim row As Integer
row = MSHFlexGrid1.MouseRow
For i = 1 To 19
MSHFlexGrid1.Col = i
MSHFlexGrid1.CellBackColor = vbRed
Next
MSHFlexGrid1.row = oldrow
For i = 1 To 19
MSHFlexGrid1.Col = i
MSHFlexGrid1.CellBackColor = vbWhite
Next
oldrow = row
End Sub
Private Sub Form_Load()
Dim i As Integer, j As Integer
With MSFlexGrid1
.Rows = 10
.Cols = 4
For i = 1 To 9
.TextMatrix(i, 0) = "第 " & i & " 行"
For j = 1 To 3
.TextMatrix(0, j) = "第 " & j & " 列"
.TextMatrix(i, j) = i & "," & j
Next
Next
.SelectionMode = flexSelectionByRow
.BackColorSel = vbGreen
.ForeColorSel = vbRed
End With
End Sub
Private Sub MSFlexGrid1_Mousemove(Button As Integer, Shift As Integer, x As Single, y As Single)
With MSFlexGrid1
.row = .MouseRow
.Col = 0
.ColSel = .Cols - 1
End With
End Sub