Question

VB中mshflexgrid怎样与TEXTBOX结合实现输入

我的表格为4行4列，固定行1行，固定列1列，即还有9个单元格。怎样实现这9个单元格的输入呢，与TEXTBOX结合的，谁能给出代码啊，感激不尽啊~~~
另外，mshflexgrid创建的表格怎样实现从文档文件input.text中输入9个数据分别到这9个单元格中呢？即当文件input.text存在且其中有数时将数据加载到mshflexgrid表格中，同时也可用TEXTBOX进行输入，输入完毕后再将输入后的数据保存回input.text文件。
谢谢啦，回答有帮助的话我还会追加的！

Answer 1

Private Sub MSFlexGrid1_Click()
If MSFlexGrid1.Col <> 0 And MSFlexGrid1.Row <> 0 Then '首列不用编
Text1.Visible = True
Text1.Left = MSFlexGrid1.CellLeft + MSFlexGrid1.Left
Text1.Top = MSFlexGrid1.CellTop + MSFlexGrid1.Top
Text1.Width = MSFlexGrid1.CellWidth
Text1.Height = MSFlexGrid1.CellHeight
Text1.Text = MSFlexGrid1.Text
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = 255
End If

End Sub

Private Sub text1_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = 13 Then
MSFlexGrid1.Text = Text1.Text
If MSFlexGrid1.Row = MSFlexGrid1.Rows - 1 Then '到底
MSFlexGrid1.Row = 1
MSFlexGrid1_Click
Else
MSFlexGrid1.Row = MSFlexGrid1.Row + 1
MSFlexGrid1_Click
End If
End If

End Sub

以上是文本框与表格结合使用的例子,点击表格的单元格,文本框就会出现在表格的单元格上方,输入后按回车,文本框内的内容会填入表格中,适当对文本框的外观进行微调(如去掉边框,设置大小),就会好象是直接在表格中进行输入的,
您先在窗体上建一个表格控件,再加一个文本框,设置为不可见,再把代码贴上就可试用了.
致于保存到文本,您可以用FOR语句一个个单元格地读取,存入到文本中