Здравствуйте, black hermit, Вы писали:
BH>Из общедоступного MS FlexGrid, из экзотики VideoSoft vsFlexGrid
Да но во MSFlexGrid не получается вводить данные.
Здравствуйте, TolikLuzin, Вы писали:
TL>Здравствуйте, black hermit, Вы писали:
BH>>Из общедоступного MS FlexGrid, из экзотики VideoSoft vsFlexGrid
TL>Да но во MSFlexGrid не получается вводить данные.
Могу порекомендовать маленький изврат
Option Explicit
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub fg_DblClick()
With txt
.Left = fg.CellLeft
.Top = fg.CellTop
.Width = fg.CellWidth
.Height = fg.CellHeight
.Text = fg.Text
.Visible = True
.SetFocus
End With
End Sub
Private Sub Form_Load()
SetParent txt.hWnd, fg.hWnd
txt.Visible = False
End Sub
Private Sub txt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
fg.Text = txt.Text
txt.Visible = False
ElseIf KeyAscii = 27 Then
txt.Visible = False
End If
End Sub
Где
fg — FlexGrid,
txt — TextBox. Стиль вордюра у обоих
None
А всего-то и понадобилось, немного фантазии и 3 минуты кодинга