标题:[求助]一段 MSFlexGrid代码看不懂
只看楼主
royro
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2006-1-12
 问题点数:0 回复次数:1 
[求助]一段 MSFlexGrid代码看不懂
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判断在这个代码中起什么作用?
谢谢!
搜索更多相关主题的帖子: MSFlexGrid 代码 
2006-01-12 22:24
moshen62
Rank: 1
等 级:新手上路
帖 子:72
专家分:0
注 册:2006-1-12
得分:0 

这段代码是对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


2006-01-13 09:31



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-42707-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.070791 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved