Открыть форму по наименованию из 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4 из 5
Похожие ответы