UC知道VB6.0中ScriptControl控件的用法
来源：百度知道 编辑：UC知道 时间：2024/05/24 13:16:30
Form1中有Text1 ScriptControl1控件
Dim strX As String
strX = "Sub Msg" & vbCrLf & _
"MsgBox" & Text1.Text & vbCrLf & _
"End Sub"
ScriptControl1.AddCode strX
ScriptControl1.Run "Msg"
请问为什么不行。如果我想让消息的内容为Text1.Text中的文本该怎么写？
Dim strX As String
strX = "Sub Msg" & vbCrLf & _
"MsgBox" & Text1.Text & vbCrLf & _
"End Sub"
ScriptControl1.AddCode strX
ScriptControl1.Run "Msg"
请问为什么不行。如果我想让消息的内容为Text1.Text中的文本该怎么写？
strX = "Sub Msg(str)" & vbCrLf & "msgbox str" & vbCrLf & "End Sub"
ScriptControl1.AddCode strX
Me.Caption = ScriptControl1.Run("msg", Text1.Text)
或者写成下面也可以：
ScriptControl1.AddObject "Text1", Form1.Text1
strX = "Sub Msg()" & vbCrLf & "msgbox Text1.text" & vbCrLf & "End Sub"
ScriptControl1.AddCode strX
ScriptControl1.Run ("msg")