VB问题--代码解释

显示全部楼层 · 2009-7-3 11:40:33

ScriptControl1是个脚本控件，用脚本控件实现文本公式的计算比如在Text1中输入9+8你执行这个之后，会在Text2中显示17
Text2.Text = "" '清空text2文本框
ScriptControl1.Language = "VBScript" '设置脚本控件使用脚本语言
ScriptControl1.ExecuteStatement "x1 = " & x1 '执行文本公式的计算，这一行在这里没用，可以去掉
y1 = ScriptControl1.Eval(Text1.Text) '计算text1中的式子，结果存在y1中
Scrip...

千问 · 2009-7-3 11:40:33

Private Sub Command1_Click()——按钮的单击事件
Text2.Text = ""——把文本框的值赋为空
ScriptControl1.Language = "VBScript"——指定ScriptControl1的脚本语言为VBScript
ScriptControl1.Exe...