Народ, помогите!
Как на событие EnterCell у MSFlexGrid-a повесить позиционирование на ячейку TextBox-a и передать ему Фокус?
Я вешаю на событие следующий обработчик:

Private Sub Grid_EnterCell()
Text1 = ""
Text1.Left = Grid.CellLeft + Grid.Left

Text1.Top = Grid.CellTop + Grid.Top

Text1.Width = Grid.CellWidth

Text1.Height = Grid.CellHeight

Text1.Visible = True

Text1.SetFocus

End Sub

Компилятор выдает мне сообщение об ошибке на строке Text1.SetFocus. Пишет что недостаточно параметров для вызова функции или ее неправильное использование.
Что делать?

Заранее Спасибо!

Hello, Norren!

N> Text1.SetFocus

N> Компилятор выдает мне сообщение об ошибке на строке Text1.SetFocus.
N> Пишет что недостаточно параметров для вызова функции или ее неправильное
N> использование. Что делать?

А так
Text1.SetFocus()
или так
Call Text1.SetFocus

Давненько я не брал шашек (VB6) в руки. Так что не пинайте больно

WBR, Igor Evgrafov.

Здравствуйте, GarryIV, Вы писали:

GIV>А так
GIV>Text1.SetFocus()
GIV>или так
GIV>Call Text1.SetFocus

К сожалению и так, и так не получается

Здравствуйте, Norren, Вы писали:

N>Народ, помогите!
N>Как на событие EnterCell у MSFlexGrid-a повесить позиционирование на ячейку TextBox-a и передать ему Фокус?
N>Я вешаю на событие следующий обработчик:

N>Private Sub Grid_EnterCell()
N> Text1 = ""
N> Text1.Left = Grid.CellLeft + Grid.Left

N> Text1.Top = Grid.CellTop + Grid.Top

N> Text1.Width = Grid.CellWidth

N> Text1.Height = Grid.CellHeight

N> Text1.Visible = True

N> Text1.SetFocus

N>End Sub

N>Компилятор выдает мне сообщение об ошибке на строке Text1.SetFocus. Пишет что недостаточно параметров для вызова функции или ее неправильное использование.
N>Что делать?

Я делал похожую вещь, нужно было редактировать ячейки, делал это через ТекстБокс.
В принципе, то же самое, что у тебя написано, только у меня сначала идет
Text1.SetFocus
А потом Text1 = ""

Не уверен, но попробуй эти строки поменять местами.


N>Заранее Спасибо!