VB6.0 msflexgrid控件
本人在学习MSFLEXGRID表单录入数据时遇到以下问题:
1、msflexgrid1
-----1列------2列-------3列--------4列------5列-------6列------7列--
1行
------------------------------------------------------------------
2行
------------------------------------------------------------------
3行
------------------------------------------------------------------
当我输入msflexgrid1的3列时有一个跟随选择。
例如:当我在msflexgrid1的3列里输入123时,弹出一个(Frame1 + msflexgrid2)显示与123相关的所有信息供选择。
现在问题就是(Frame1 + msflexgrid2)与msflexgrid1的3列不能跟随。当我在msflexgrid1的其它行的3列输入时就会出现看不见我在msflexgrid1输入的内容。
-------------------------------------------------------------------------------
我想要的效果是:
1、当我在msflexgrid1的某行3列时,弹出的(Frame1 + msflexgrid2)就跟随在msflexgrid1的某行3列的下面。
请各位大侠帮忙,谢谢!

解决方案 »

  1.   


    Option ExplicitPrivate Sub Form_Load()
        Dim i As Integer
        Dim j As Integer
        With MSFlexGrid1
            .Cols = 10
            .Rows = 20
            For i = 0 To .Rows - 1
                For j = 0 To .Cols - 1
                    .TextMatrix(i, j) = i & "_" & j
                Next
            Next
        End With
    End SubPrivate Sub MSFlexGrid1_DblClick()
        On Error Resume Next
        With MSFlexGrid1
            Frame1.Move .CellLeft + .Left + 20, .CellTop + .Top + 200
        End With
    End Sub