1,451
社区成员
发帖
与我相关
我的任务
分享
Private Sub DoTestScript2()
On Error GoTo DoTestScript2
'On Error GoTo 0
mScript.WAIT 200
Dim script_control As ScriptControl ' Object
Dim sMod26 As String, sMod27 As String
Dim strLine As String
'Text1.Text = strLine
sMod26 = "26"
sMod27 = "27"
Dim vals As Integer
Dim oModule As Module
vals = 4
Set script_control = CreateObject("MSScriptControl.ScriptControl")
script_control.Language = "VBScript"
'script_control.AddCode strLine
Set oModule = script_control.Modules.Add("mdl" & sMod27)
oModule.AddCode ReadTxtFile(App.Path & "\" & sMod27 & ".csq")
script_control.AddObject sMod27, oModule
Set oModule = script_control.Modules.Add("mdl" & sMod26)
oModule.AddCode ReadTxtFile(App.Path & "\" & sMod26 & ".csq")
script_control.AddObject "list", List1
script_control.AddObject "Text", Text1
script_control.AddObject "scrobj", mScript
'script_control.Run "main"
script_control.Modules(sMod26).Run "main"
'script_control.Modules(sMod27).Run "MSG"
Exit Sub
DoTestScript2:
If Err <> 0 Then
MsgBox "错误 " & Err.Number & " (" & Err.Description & ") in procedure Command1_Click of Form Form1"
End If
End Sub
dim t
set t = new test
call msgbox(t.prop1)
class test
property get prop1()
prop1 = "This is a test."
end property
public sub class_initialize()
end sub
public sub class_terminate()
end sub
end class