Question

如何用vb6.0保存嵌入vsflexgrid控件中的文本框

Answer 1

Private Function YiDongTXT(Table As MSHFlexGrid, kongJian As TextBox, RowNum As Integer, ColNum As Integer)
  If Table.Col <= ColNum And Table.Row <= RowNum Then
     kongJian.Left = Table.Left + Table.ColPos(Table.Col)
     kongJian.Top = Table.Top + Table.RowPos(Table.Row)
     If Table.Col = 1 Then
     kongJian.Width = 1330
     Else
     kongJian.Width = 1050
     End If
     kongJian.Height = Table.RowHeight(Table.Row)
     kongJian.Text = Table.Text
     kongJian.Visible = True
     If MSHF1.Col = 9 Then kongJian.Text = ""
     kongJian.SetFocus
     End If
End Function
 Call YiDongTXT(MSHF1, txt, MSHF1.Rows, MSHF1.Cols)

和mshf的方法一样，只能移动文本框到上去，单击按钮触发事件，修改后内容给vs