Шаг 106 - Запускаем скрипт из файла

Мы поместим кнопку, по нажатию на которую будет производится запуск скрипта.

gif/106_1.gif (2810 b)

И код напишем для этого:

Private Sub Command1_Click()
	Dim LineString As String
	Dim SubName As String

	Open "c:\1.vb" For Input As #1
	Input #1, SubName
	Do While Not EOF(1)
		Input #1, LineString
		strCode = strCode + LineString
	Loop
	Close #1
	ScriptControl1.AddCode strCode
	ScriptControl1.Run SubName
End Sub

Открываем и читаем файл. Только первой строкой будет название функции, которую вызываем.

Hello
Sub Hello()
MsgBox "Hello VB"
End Sub

Запускаем, смотрим:

gif/106_2.gif (2763 b)


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.