VB中MSFlexGrid怎么添加内容

就是创建一个MSFlexGrid怎么添加内容加一行或者加一列

2025-04-13 05:44:18

推荐回答（3个）

回答（1）：

'MSHFlexGrid1是不能输入的，只有通过一个text来输入
Private Sub MSHFlexGrid1_Click()
Dim i As Long
With MSHFlexGrid1
If .Col = 1 Then
Text1.Text = Trim(.Text)
Text1.Left = .CellLeft - 10
Text1.Top = .CellTop - 10
Text1.Height = .CellHeight
Text1.Width = .CellWidth
Text1.Visible = True
Text1.SetFocus
Else
Text1.Visible = False
End If
End With
End Sub

Private Sub Text1_Change()
With MSHFlexGrid1
.Text = Trim(Text1.Text)
End With
End Sub

回答（2）：

Private Sub Form_Load()
MSFlexGrid1.Rows = 15
MSFlexGrid1.Cols = 15
MSFlexGrid1.FixedRows = 0
MSFlexGrid1.FixedCols = 0
For i = 0 To MSFlexGrid1.Rows - 1
MSFlexGrid1.Row = i
For j = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = j
MSFlexGrid1.Text = j + i
Next j
Next i
End Sub

回答（3）：

不能添加的mSFLEXGRID就是显示数据库之中的数据的它本身无法更改记的