Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Как вызвать процедуру имя которой нах. в переменно

Автор: valex13 15.1.2004, 09:17

Как вызвать процедуру имя которой нах. в переменной?
Вот пример:

Код


 dlgOpenFile.Show vbModal
 If bCancel = True Then Exit Sub
 Dim sTemp As String
 sTemp = "LoadCardFile" + Trim(Str(dlgOpenFile.cmbNameReport.ListIndex))
 Call sTemp

и есть процедуры типа...

Код


Public Sub LoadCardFile1
  'Что-то делаю
End Sub

Автор: Vach 15.1.2004, 09:40

Есть такая возможность.
CallByName(Object as Object, ProcName as String, CallType as VbCallType, Arg() as Variant)

Код

Private Sub Form_Load()
CallByName Form1, "LoadCardFile1", VbMethod, "sIn"
End Sub

Public Sub LoadCardFile1(sIn As String)
'Что-то делаю
End Sub

Автор: Black_Star 24.1.2004, 01:08

Клево!
Наберу 100 очков, добавлю рейтинг, если не забуду

))