Question

VB中MSFlexGrid怎么添加内容

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

Answer 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

追问

百度hi加下 还有点不懂的

追答

IISHENG@126.COM,请邮件

Answer 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

Answer 3

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