Открыть форму по наименованию из Text - VB
Формулировка задачи:
Всем привет!
Подскажите, как открыть форму (метод Show), если имя формы указан в Text1, а метод (то есть Show) указано в Text2?
То есть, на форме расположены два ТекстБокса Text1 и Text2 + 1 кнопка.
В Text1 указываю name формы, а в Text2 указываю метод, что делать с этой формой. Далее нажимаю на кнопку "Выполнить" и должен выполниться тот метод, который указан в Text2 для формы, которая указана в Text1.
В прикрепленном файле показан пример, где после нажатия на кнопку должна открыться форма frmListUser.
Дело в том, что напрямую написать frmListUser.Show можно, но у меня формы и его методы будут находиться в базе данных. Идея в том, что пользователь указывает код транзакции и нажимает Enter или на кнопку. Данные считываются из базы данных и в зависимости от того, какая форма привязана к транзакции, та и будет открываться, при этом для этой формы могут быть настроены и другие свойства. Всё будет храниться в базе данных. Напрямую привязать свойства и методы не получится, так как формы и операции\свойства с ними будут настраиваться индивидуально для каждого пользователя.
Не знаю как написать правильный рабочий код, не получается. Помогите пожалуйста.
Всем спасибо!
Решение задачи: «Открыть форму по наименованию из Text»
textual
Листинг программы
Dim SC Private Sub Command1_Click() SC.ExecuteStatement Text1.Text & "." & Text2.Text End Sub Private Sub Form_Load() Set SC = CreateObject("ScriptControl") SC.Language = "VBScript" 'Добавляем все формы SC.AddObject Form2.Name, Form2 SC.AddObject Form3.Name, Form3 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д