【请教】VB6的哪个表格控件可是实现在表格内直接修改内容？

[newnazi]

VB6如何实现在表格控件内可以内直接修改内容，而且可以有下拉列表框选择内容。

[贝隆]

MSFlexGrid+TextBox

[chinaboyzyq]

datagrid+list

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
    List1.Visible = False
End Sub
 
Private Sub list1_Click()
    List1.Visible = False
    DataGrid1.Text = List1.Text
End Sub

Private Sub DataGrid1_ButtonClick(ByVal ColIndex As Integer)
    With DataGrid1
        List1.Left = .Left + .Columns(ColIndex).Left
        List1.Top = .Top + .RowHeight * (.Row + 2)
        List1.Width = .Columns(ColIndex).Width
        List1.Visible = True
    End With
    
End Sub

Private Sub Form_Load()
    With List1
       .Appearance = 0
       .Height = 450
       .AddItem "真"
       .AddItem "假"
       .Visible = False
    End With
    
End Sub

[帝企鹅已被占用]

[Quote=引用 3 楼 ameken 的回复:]
vsflexgrid
[/Quote]
这个可以，价值不菲

[Dision LI]

vsflexgrid

[xuggzu]

无。

1、自己做个自定义控件实现；
2、用第三方控件，比如：farpoint spread等；

[嗷嗷叫的老马]

试试这个控件.

http://topic.csdn.net/u/20100809/16/dbdd4923-89e4-40f9-beef-ae3a71d59da1.html?68352

[newnazi]

希望大家集思广益

[jhone99]

1。datagride + 其他控件

Dim intRow As Integer
Dim intCol As Integer

Private Sub Combo1_Click()
    Combo1.Visible = False
    DataGrid1.Row = intRow
    DataGrid1.Col = intCol
    DataGrid1.Text = Combo1.Text
End Sub

Private Sub DataGrid1_ButtonClick(ByVal ColIndex As Integer)
    With DataGrid1
        intRow = .Row
        intCol = ColIndex
        Combo1.Left = .Left + .Columns(ColIndex).Left
        Combo1.Top = .Top + .RowHeight * (.Row + 1)
        Combo1.Width = .Columns(ColIndex).Width
        Combo1.Visible = True
    End With
    
End Sub

Private Sub Form_Load()
    Dim i As Integer
    
    For i = 1 To 10
        Combo1.AddItem i
    Next i
    
    Combo1.Visible = False
    
End Sub

2。自定义控件
把1封装

3。第三方控件
spread比较方便

[jhj2002]

farpoint是最好的选择，还可以绑定到数据库。

[newnazi]

继续关注求解！

[guyehanxinlei]

vsflexgrid