代码如下:
intLeft = DGNews.Left + DGNews.Columns.Item(DGNews.Col).Left
        intTop = DGNews.Top + DGNews.Columns.Item(DGNews.Col).Top + DGNews.RowHeight * DGNews.Row
        
        CboData.Move intLeft, intTop, DGNews.Columns.Item(DGNews.Col).Width              ', DGNews.Height
        
开始俩行看着位置是正确的,但是越往下点(row越大),combox的位置就越偏上,将datagrid的高度改成与combox一样了也不行,真怀疑这两个高度用的是不是一个单位,请各位大虾帮忙看看。

解决方案 »

  1.   

    '这是在MSFlexGrid网格中控制文本框,你对照改一下应该可以 If MSFlexGrid1.row > 0 Then
            m_ActiveCell.row = MSFlexGrid1.row
            m_ActiveCell.col = MSFlexGrid1.col
            With txtEdit
                .Top = MSFlexGrid1.CellTop + MSFlexGrid1.Top
                .Left = MSFlexGrid1.CellLeft + MSFlexGrid1.Left
                .Width = MSFlexGrid1.CellWidth
                .Text = MSFlexGrid1.Text
                .Visible = True
                .ZOrder
                .SetFocus
            End With
        End If