ввод данных с клавиатуры в MSFlexGrid

[НиколайП]

ввод готовых данных в ячейку MSFlexGrid можно реализовать так:

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

Debug.Print MSFlexGrid1.Text
MSFlexGrid1.Text = "5"
'или
MSFlexGrid1.Text = Text1.Text


а возможно ли вводить данные в ячейку непосредственно с клавиатуры ? , если возможно тогда хотелось бы узнать как это сделать.

[Twister]

Кажись этот грид не поддерживает редактирование. Юзай другой...

[vvs_adm]

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

Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
    MSFlexGrid1.Text = MSFlexGrid1.Text & Chr$(KeyAscii)
End Sub


[Twister]

Ну не знаю насколько рабочий это способ, конечно...
Но метода EditCell там точно нет...

[alibek]

Эмулируешь поле ввода TextBox-ом, который отображается и активируется при получении гридом фокуса и становится невидимым при потере фокуса.

[Twister]

Эмулируешь поле ввода TextBox-ом, который отображается и активируется при получении гридом фокуса и становится невидимым при потере фокуса.

Да-да. Я так раньше и делал, а потом стал юзать другие гриды...

[НиколайП]

Эмулируешь поле ввода TextBox-ом, который отображается и активируется при получении гридом фокуса и становится невидимым при потере фокуса.

такой вариант я и пытаюсь использовать , но думал что есть более практичный способ ...
но всё равно всем спасибо !

[alibek]

такой вариант я и пытаюсь использовать , но думал что есть более практичный способ ...

Есть -- использовать другие гриды.

[НиколайП]

найден вариант решения задачи: ввод данных в таблицу MSFlexGrid непосредственно с клавиатуры

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

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