Question

我正在使用visual basic 6中的方程式grapher，但我在运行程序时遇到错误。我已将错误缩小到下面的代码块。

$sql = "DELETE FROM character_tbl WHERE character_player= '".$_SESSION["user"]."' ";

我检查了组件：

Microsoft Windows公共控件6.0
Microsoft Windows常用控件 - 2 6.0
Microsoft脚本控件1.0

所以我认为问题不在于组件。

突出显示的代码是：

Option Explicit

Private Sub cmdGraph_Click()
Dim script_control As MSScriptControlCtl.ScriptControl
Dim x As Single
Dim y1 As Single
Dim y2 As Single

' Make a script control.
Set script_control = New MSScriptControl.ScriptControl
script_control.Language = "VBScript"

' Define the function.
script_control.AddCode _
    "Function TheFunction(X)" & vbCrLf & _
    "    TheFunction = " & txtExpression.Text & vbCrLf & _
    "End Function"

' Graph the equation.
y1 = script_control.Eval("TheFunction(" & xmin & ")")
For x = xmin + Dx To xmax Step Dx
    ' Evaluate the next value.
    y2 = script_control.Eval("TheFunction(" & x & ")")

    ' Draw the next line.
    picGraph.Line (x - Dx, y1)-(x, y2)

    ' Save the current Y value.
    y1 = y2
Next x

End Sub

在线号码我提供的代码块中有10个。任何有关问题的帮助都将不胜感激，谢谢。

编辑：我将代码块的第4行更改为：

New MSScriptControl.ScriptControl

反对：

Dim script_control As MSScriptControl.ScriptControl

突出显示的文本现在是代码块的第4行。

Answer 1

MSScriptControlCtl是一个控件（组件）。

MSScriptControl是一个可引用的对象。

使用MSScriptControl并实例化它：

Set script_control = New MSScriptControl.ScriptControl

您需要通过Project-References选择Microsoft Script Control，而不是组件中的Microsoft Script Control。

VB6编译错误：未定义用户定义的类型

1 个答案: