Flex Grid Ввод значений

[--=GAMER=--]

Есть ли возможность ввода данных в ячейки Flex Grid (без учёта заголовков естественно), напрямую (как в TextBox)?
Если да - то как эту функцию включить, ибо в настройках контролла не нашёл...

[dr.MIG]

У данного контрола такой возможности нет.

[--=GAMER=--]

Тогда второй вопрос - у какого контролла такая возможность есть?)

[Debugger]

Можно добавить при помощи TextBox'а: показывать его над активной ячейкой.

[--=GAMER=--]

Ещё варианты?

[alex77755]

если программно:
MSFlexGrid1.TextMatrix(1,1) = "X"
А вручную тоже можно. Где-то был пример щас поищу

[alex77755]

Вот. Нашел. Редактируй:

Код: Выделить всё

Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then
    MSFlexGrid1.Text = Empty
End If
End Sub
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer) 
    If KeyAscii = 8 Then
        If Len(Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel))) > 0 Then
            MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel) = Mid(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel), 1, Len(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel)) - 1)
            Exit Sub
        Else
        Exit Sub
        End If
    ElseIf KeyAscii = 13 Then
        If MSFlexGrid1.Col <= 2 Then
            SendKeys "{right}"
            Exit Sub
        ElseIf MSFlexGrid1.Col = 3 Then
            MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
            SendKeys "{home}" + "{down}"
            Exit Sub
        End If
    Else
       
        If MSFlexGrid1.Col = 0 Then
               ElseIf MSFlexGrid1.Col = 1 Then
               ElseIf MSFlexGrid1.Col = 2 Then
               End If
    End If
    MSFlexGrid1.Text = MSFlexGrid1.Text + Chr(KeyAscii)
End Sub

[--=GAMER=--]

Вот. Нашел. Редактируй:

Код: Выделить всё

Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then
    MSFlexGrid1.Text = Empty
End If
End Sub
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer) 
    If KeyAscii = 8 Then
        If Len(Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel))) > 0 Then
            MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel) = Mid(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel), 1, Len(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel)) - 1)
            Exit Sub
        Else
        Exit Sub
        End If
    ElseIf KeyAscii = 13 Then
        If MSFlexGrid1.Col <= 2 Then
            SendKeys "{right}"
            Exit Sub
        ElseIf MSFlexGrid1.Col = 3 Then
            MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
            SendKeys "{home}" + "{down}"
            Exit Sub
        End If
    Else
       
        If MSFlexGrid1.Col = 0 Then
               ElseIf MSFlexGrid1.Col = 1 Then
               ElseIf MSFlexGrid1.Col = 2 Then
               End If
    End If
    MSFlexGrid1.Text = MSFlexGrid1.Text + Chr(KeyAscii)
End Sub

Спасибо, то что нужно)