про гриды
От: TolikLuzin  
Дата: 26.12.03 03:05
Оценка:
Мне надо сделать следующее
таблица (компонент)
3 — стоблца
N- строк
И что бы в эту таблицу можно было писать как программо, так и пользователь из работы приложения.
Т.е. у меня
в первой строке будет наименование (которое я вывожу программно)
а во второй цена (которую вводит пользователь)
Как грид лучше использовать и желательно пример.
Re: про гриды
От: black hermit Россия  
Дата: 26.12.03 08:43
Оценка:
Здравствуйте, TolikLuzin, Вы писали:

TL>Мне надо сделать следующее

TL>таблица (компонент)
TL>3 — стоблца
TL>N- строк
TL>И что бы в эту таблицу можно было писать как программо, так и пользователь из работы приложения.
TL>Т.е. у меня
TL>в первой строке будет наименование (которое я вывожу программно)
TL> а во второй цена (которую вводит пользователь)
TL>Как грид лучше использовать и желательно пример.

Из общедоступного MS FlexGrid, из экзотики VideoSoft vsFlexGrid
The darkness around me
Shores of solar sea
Oh how i wish to go down with the sun....
Re[2]: про гриды
От: TolikLuzin  
Дата: 26.12.03 10:33
Оценка:
Здравствуйте, black hermit, Вы писали:
BH>Из общедоступного MS FlexGrid, из экзотики VideoSoft vsFlexGrid
Да но во MSFlexGrid не получается вводить данные.
Re[3]: про гриды
От: black hermit Россия  
Дата: 26.12.03 13:38
Оценка:
Здравствуйте, 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 минуты кодинга

The darkness around me
Shores of solar sea
Oh how i wish to go down with the sun....
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.