如何才能让ＴＥＸＴ控件随着Ｍsflexgird的滚动跟着动

birdcwd 2003-03-04 09:53:51

用普通的方法给Ｍsflexgird加了编辑的功能，在Ｍsflexgird的Scroll事件里加了如下代码：

text.Top = msflesgird.CellTop + Ｍsflexgird.Top
text.Left = Ｍsflexgird.CellLeft + Ｍsflexgird.Left

执行的情况确是文本框移到Ｍsflexgird顶部或底部时Ｍsflexgird行就拖不动了，
我是不是用错方法了？！望赐教！

...全文

115 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

northwolves 2003-03-05

打赏
举报

编辑时必须点击相应单元格啊。

birdcwd 2003-03-05

打赏
举报

我想让它像ＥＸＣＥＬ那样，双击进入编辑状态后，拖滚动条，ＴＥＸＴ跟着走

birdcwd 2003-03-04

打赏
举报

两位的方法都不行，
拉滚动条的时候，ＴＥＸＴ不动

wsbn 2003-03-04

打赏
举报

楼上的方法可行，

也可以用下面的方法试试。
Private Sub MSFlexGrid1_Click()
Text1.Visible = True
Text1.Move MSFlexGrid1.CellLeft + MSFlexGrid1.Left, MSFlexGrid1.CellTop + MSFlexGrid1.Top, MSFlexGrid1.CellWidth, MSFlexGrid1.CellHeight
End Sub
Private Sub MSFlexGrid1_Scroll()
Text1.Visible = False
End Sub

northwolves 2003-03-04

打赏
举报

写在以下事件中：

Private Sub MSFlexGrid1_RowColChange()
Text1.Move MSFlexGrid1.CellLeft + MSFlexGrid1.Left, MSFlexGrid1.CellTop + MSFlexGrid1.Top, MSFlexGrid1.CellWidth, MSFlexGrid1.CellHeight
End Sub