Question

vb中 如何使MSHFlexGrid的列数通过输入的数字所决定??

比如说我在MSHFlexGrid1.TextMatrix(1,0)内输入5，这个表格就变成了5列啊！！怎么写程序啊！！！

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

'在TEXT1输入数字后回车即可
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim K As Integer
If KeyAscii = 13 Then
If IsNumeric(Text1.Text) = True Then
MSHFlexGrid1.Cols = Val(Trim(Text1.Text))
End If
End If
End Sub

Private Sub Text1_Change()

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

Answer 2

MSHFlexGrid1.Cols=val(MSHFlexGrid1.TextMatrix(1,0))