柔性网格不可编辑列

Question

我不想编辑柔性网格中的某些列。

Flex Grid 

column1, column2, .... column35 

我想只从第1列...第10列进行编辑，其余列我不想编辑或键入。

如何在vb6中做。

Answer 1

我相信MS Flex Grid是专为显示数据而不是编辑而设计的。如果您需要编辑单元格数据，则可以使用Flex Grid使用在运行时叠加文本框的方法捕获用户数据条目并在代码中设置单元格的“文本”属性。否则，您可以选择使用不同的控件。

以下是上述方法的一些例子：

http://support.microsoft.com/kb/241355

http://www.vb-helper.com/howto_edit_flexgrid_control.html

Answer 2

我做了VB6中一个特殊的用户控件可编辑网格。如果你想我可以给你发一份。

我用，可以编辑一个单元的代码是如下：

Private Sub fg_KeyDown(KeyCode As Integer, Shift As Integer) 
    Dim Cancel As Boolean 
    Dim Idc As Long 
    Dim x 

    If KeyCode = vbKeyEscape And Shift = 0 Then 
     If Not fgLocked Then 
      If fgRowChanged Then 
       RaiseEvent BeforeRestoreBuffer 
       For Idc = 1 To UBound(fgBuffer) 
        x = fgBuffer(Idc) 
        fgValues(Idc, fg.Row) = x 
        If fgColFormat(Idc) = "*" And fgBuffer(Idc) <> "" Then 
         fg.TextMatrix(fg.Row, Idc) = "*******" 
        ElseIf fgColFormat(Idc) = "RTF" Then 
         fg.TextMatrix(fg.Row, Idc) = Format(fgBuffer(Idc), "") 
        Else 
         fg.TextMatrix(fg.Row, Idc) = Format(fgBuffer(Idc), fgColFormat(Idc)) 
        End If 
       Next 
       fgRowChanged = False 
       RaiseEvent RestoreBuffer 
      End If 
     End If 
    ElseIf KeyCode = vbKeyReturn And Shift = 0 Then 
     NextCell 
    ElseIf KeyCode = vbKeyF2 And Shift = 0 Then 
     If Not fgLocked Then 
      If fgColFormat(fg.Col) = "RTF" Then 
       CellEditBig fgValues(fg.Col, fg.Row) 
      Else 
       CellEdit fgValues(fg.Col, fg.Row) 
      End If 
     End If 
    ElseIf KeyCode = vbKeyF2 And Shift = vbShiftMask Then 
     If Not fgLocked Then 
      CellEditBig fgValues(fg.Col, fg.Row) 
     End If 
    ElseIf KeyCode = vbKeyDelete And Shift = 0 Then 
     If Not fgLocked Then 
      RaiseEvent BeforeDelete(Cancel) 
      If Not Cancel Then 
       If fg.Rows = fg.FixedRows + 1 Then 
        fg.AddItem "" 
        If fgRowNumber Then fg.TextMatrix(fg.Rows - 1, 0) = fg.Rows - 1 
        fgValues_AddItem "" 
       End If 
       fg.RemoveItem fg.Row 
       If fgRowNumber Then Renumera 
       fgValues_RemoveItem fg.Row 
       LoadBuffer fg.Row 
       RaiseEvent AfterDelete 
      End If 
     End If 
    ElseIf KeyCode = vbKeyInsert And Shift = 0 Then 
     If Not fgLocked Then 
      RaiseEvent BeforeInsert(Cancel) 
      If Not Cancel Then 
       fg.AddItem "", fg.Row 
       If fgRowNumber Then Renumera 
       fgValues_AddItem "", fg.Row 
       RaiseEvent AfterInsert 
      End If 
     End If 
    Else 
     RaiseEvent KeyDown(KeyCode, Shift) 
    End If 
End Sub