代码部分:
Public Sub entercell()
Dim x, y, p As String
If Text1.Text = "1" Then Set myform = main_rcyw_rk
If Text1.Text = "2" Then Set myform = main_rcyw_rktd
If Text1.Text = "3" Then Set myform = main_rcyw_xs
If Text1.Text = "4" Then Set myform = main_rcyw_xstd
If myform.mf1.CellWidth <= 0 Or myform.mf1.CellHeight <= 0 Then Exit Sub
x = myform.mf1.TextMatrix(myform.mf1.FixedRows, myform.mf1.Col)
y = myform.mf1.TextMatrix(myform.mf1.Row, 0)
If y <> "" Then
If myform.mf1.Col - myform.mf1.LeftCol <= 3 Then
myform.mf1.LeftCol = myform.mf1.LeftCol + 1
End If
If myform.mf1.CellWidth > 0 And myform.mf1.CellHeight > 0 Then
myform.Text1.Width = myform.mf1.CellWidth
myform.Text1.Height = myform.mf1.CellHeight
myform.Text1.Left = myform.mf1.CellLeft + myform.mf1.Left
myform.Text1.Top = myform.mf1.CellTop + myform.mf1.Top
End If
x = myform.mf1.TextMatrix(myform.mf1.FixedRows, myform.mf1.Col)
y = myform.mf1.TextMatrix(myform.mf1.Row, 0)
p = myform.mf1.TextMatrix(myform.mf1.Row, myform.mf1.Col)
myform.Text1.Text = myform.mf1.Text
myform.Text1.SelStart = 0
myform.Text1.SelLength = Len(myform.Text1.Text)
End If
End Sub
//这段子程序是为了响应MSFlexGrid的entercell事件,mfl是MSFlexGrid控件,Text1是TextBox控件
//疑问:
// 1.(myform.mf1.CellWidth <= 0 Or myform.mf1.CellHeight <= 0)这段代码判断什么条件?
// 2.变量x,y,p指示什么?有什么用?
// 3.(If myform.mf1.Col - myform.mf1.LeftCol <= 3 Then
// myform.mf1.LeftCol = myform.mf1.LeftCol + 1)这段代码又怎么理解?