UC知道vb scriptcontrol
来源：百度知道 编辑：UC知道 时间：2024/09/22 12:49:55
这是位高手帮我写的这段代码,能用,现在我不知道这段代码是什么意思?能否有人帮我把它标注一下??要注意先把每个函数的意思写出来,再把每一段代码所要表达的意思写出来在后面,我很菜!所以要清楚一点!!谢谢!!
Dim spt
Private Sub Command1_Click()
Text2.Text = spt.Eval(Text1.Text)
End Sub
Private Sub Form_Load()
Set spt = CreateObject("scriptcontrol")
spt.Languaeg = "vbscript"
End Sub
Dim spt
Private Sub Command1_Click()
Text2.Text = spt.Eval(Text1.Text)
End Sub
Private Sub Form_Load()
Set spt = CreateObject("scriptcontrol")
spt.Languaeg = "vbscript"
End Sub
Dim spt
Private Sub Command1_Click()
'这个过程是直接双击窗体上的按钮command1后系统会自动生成这个过程的定义
'该过程由系统自动调用,即按钮的单击事件
Text2.Text = spt.Eval(Text1.Text)'计算text1中输入的表达式(应该是指定语言的合法表达式,如1+2,并将计算结果显示在text2中
End Sub
Private Sub Form_Load()
'本过程一般是直接双击窗体后VB会自动生成定义
'这个过程由系统自动调用,即当窗体被加载时会触发此过程
Set spt = CreateObject("scriptcontrol")'创建一个scriptcontrol对象
spt.Languaeg = "vbscript" '将创建的scriptcontrol对象所用的脚本语言设置为 vbscript,如果脚本要使用JScript则可以设置为jscript
End Sub