• На форуме с 9 декабря 2005г.
  • Сообщений: 80
  • Спасибо: 0

Тема: Набор текста в ячейках MsFlexGriD

Добрый день уважаемая Публика!
Каким свойством можно набрать текст в ячейки MSFlexGrid?
Попробывал такой код:

Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
MSFlexGrid1.Text = "Привет!"
End Sub

,
но он годится только если текст заранее известен.
Т.е при нажатие на ячейку , в ней появляется надпись "Привет!".  Как можно вбивать текст в ячейку?

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Набор текста в ячейках MsFlexGriD

> Василий
Посмотри здесь

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: Набор текста в ячейках MsFlexGriD

> Василий
MSFlexGrid1.TextMatrix
либо
  MSFlexGrid1.AddItem

  • На форуме с 9 декабря 2005г.
  • Сообщений: 80
  • Спасибо: 0

Re: Набор текста в ячейках MsFlexGriD

Спасибо посмотрел, нашёл упоминание о том что msflexgrid не поддерживает данного ввода.
Однако видел приложения, где работает. Применять TextBox, для набора в режиме run-time информации не хотелось бы.
По поводу MSFlexGrid1.AddItem, данный метод добавляет строку в таблицу.
Метод MSFlexGrid1.TextMatrix добавляет текст в определённую ячейку, но не позволяет это сделать в режиме run-time.

  • На форуме с 9 декабря 2005г.
  • Сообщений: 80
  • Спасибо: 0

Re: Набор текста в ячейках MsFlexGriD

Примерно вот так вот можно извратиться с MSFlexGrid при помощи TextBox.
Логика такая : при выборе ячейки перемещаем
textbox в данное место, вбиваем текст и присваеваем значение textbox ячейки таблицы.

Private Sub UserForm_Activate()
s$ = "<Nomer |<Yklon |<Otmetka |<Rasstoinie "
MSFlexGrid1.FormatString = s$
 Text1.Visible = False
End Sub
Private Sub MSFlexGrid1_Click()
Call MSFlexGrid1_RowColChange
End Sub
Private Sub MSFlexGrid1_RowColChange()
With MSFlexGrid1
    Text1.Left = .Left + .CellLeft
    Text1.top = .top + .CellTop
    Text1.Width = .CellWidth
    Text1.Height = .CellHeight
    Text1.Text = .Text
    Text1.Visible = True
    Text1.SetFocus
End With
End Sub
Private Sub Text1_Change()
MSFlexGrid1.Text = Text1.Text
End Sub