Re: Динамическое добавление контрола на UserForm в VBA.
От: par  
Дата: 03.07.04 10:05
Оценка:
Здравствуйте, Tamago41, Вы писали:

T>Помогите пожалуйста разобраться...

используй методы VB Environment(VBE)

Sub AddFormNax() ' :)
VBE.ActiveVBProject.VbComponents.Add(vbext_ct_MSForm) 
' ета строчка добавит тебе в проект форму с именем UserForm1,далее
Static MyForm as object
Set MyForm=UserFrom1
'Ето привяжет  MyForm к свежесозданной форме,а дальше самое хитрое ;) 
MyForm.Controls.Add("Forms.ListBox.1","xz",true)
'ессно вместо ЛистБокс можно какой угодно компонент из стандартных вписать
MyForm.Show 0
End Sub


в общем как то так ето так делается , на память пишу , поколупайся
там посмотришь

ааа самое главное как ето стереть
сам бы ни в жисть не догадался если б не РСДН
VBE.ActiveVBProject.VbComponents.Remove VBE.ActiveVBProject.VbComponents("UserForm1")


VbComponents по идее коллекция , только ссылку типа "MyForm" оно не принимает
в качестве параметра при удалении, а только путь к обекту в дереве ВБЕ,
так что имей ввиду
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.