Private Sub MSFlexGrid1_entercell()
Dim X As String, y As String, p As String
If MSFlexGrid1.CellWidth <= 0 Or MSFlexGrid1.CellHeight <= 0 Then Exit Sub
X = MSFlexGrid1.TextMatrix(MSFlexGrid1.FixedRows, MSFlexGrid1.Col)
y = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)
If y <> "" Then
If MSFlexGrid1.Col - MSFlexGrid1.LeftCol <= 3 Then
MSFlexGrid1.LeftCol = MSFlexGrid1.LeftCol + 1
End If
If MSFlexGrid1.CellWidth > 0 And MSFlexGrid1.CellHeight > 0 Then
text1.Width = MSFlexGrid1.CellWidth
text1.Height = MSFlexGrid1.CellHeight
text1.Left = MSFlexGrid1.CellLeft + MSFlexGrid1.Left
text1.Top = MSFlexGrid1.CellTop + MSFlexGrid1.Top
End If
X = MSFlexGrid1.TextMatrix(MSFlexGrid1.FixedRows, MSFlexGrid1.Col)
y = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)
p = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, MSFlexGrid1.Col)
text1.Text = MSFlexGrid1.Text
text1.SelStart = 0
text1.SelLength = Len(text1.Text)
End If
End Sub
1、这段代码起什么作用？
2、X、Y的值是什么？
3、红色的那个IF判断在这个代码中起什么作用？
谢谢！

这段代码是对MSFlexGrid1中的文本进行编辑时使用的
用来调整文本框的坐标处于鼠标选中的那个格上
text1.Text = MSFlexGrid1.Text
这个语句的意思是把选中的那个隔的文本复制到文本框里
text1.SelStart = 0
text1.SelLength = Len(text1.Text)
选中文本框里的所有文本

在这个函数中的 X,Y,P都可以不要的
If y <> "" Then
可以替换为
If MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0) <> "" Then