Как создать MSFlexGrid во время выполнения программы?

[#set]

Ребята подкиньте пример или ссылку: как программно содать несколько MsFlexGrid'ов со определенными параметрами во время выполнения программы?

[Viper]

Смотреть справку по Load и Unload, читать правила и догадаться зачем Поиск вверху и красный...

[#set]

Смотреть справку по Load и Unload, читать правила и догадаться зачем Поиск вверху и красный...

Смотрел Load Unload поиском пользовался и если бы получилось то не спрашивал!!!

[alibek]

А что у тебя не получилось с Load?

[#set]

А что у тебя не получилось с Load?

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

Public Sub GridInitialize()
Load MSFlexGrid1(1)
MSFlexGrid1.Left = 400
MSFlexGrid1.Top = 400
MSFlexGrid1.Visible = True
S$ = "<Сотрудник|^00:00|^00:30|^01:00|^01:30|^02:30"
MSFlexGrid1.FormatString = S$
End Sub


Не пашет

[Konst_One]

Index=0 поставил для своего начальнтого контрола

[#set]

Index=0 поставил для своего начальнтого контрола

т.е?

[Viper]

Чтобы создать контрол во время выполнения необходимо иметь исходный контрол с Index = 0. Если такового нет, то создать контрол во время выполнения не получится

[#set]

Ок. Скажу смысл затеи. Мне нужно что бы На мэйнформе динамически создавались Grid'ы по кол-ву записей в таблице SQL. И по хорошему создать класс который будет их рожать но не получается даже самое простейшее.

Как мне создать этот нулевой контрол?

[Blame!]

Брось на форму контрол, а затем параметр index установи в 0

[CodeName33]

Можно без массивов:

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

Dim Grid As MSFlexGrid
Set Grid = Me.Controls.Add("MSFlexGridLib.MSFlexGrid", "Grid1")
Grid.Visible = True

Если нужны собития, то в классах можно объявить объект Grid WithEvents и в нём же обрабатывать.

[Konst_One]

CodeName33
в таком варианте надо еще перед этим вызвовом в коллекцию лицензий добавить соответствующую лицензию на данный контрол, пример в MSDN