Visual Basic 6.0 ......MS scriptControl

Når du skriver

  ScriptControl1.Eval(minFunktion(5))

så betyder det at funktionen Eval beregner ud fra den værdi som minFunktion(5) returner. Hvis minFunktion(5) = 6 så bliver den oversat til

  ScriptControl1.Eval(6)

hmm Jeg vil gerne lave en funktion som f.eks. sin() ....altså den skal beregne tallet mellem de to "()" ud fra nogle fastlagt regler

Lad mig spørge på en anden måde...hvor dan får jeg tallet til at være en variable ?????

minFunktion(Variable)=Variable+5

Her er et eksempel på hvordan du kan kalde din egendefinerede
subrutine vba ScriptControl.

Private Sub Command1_Click()
  res.Text = myScript.Run("Plus", CDbl(x.Text), CDbl(y.Text))
End Sub


Private Sub Form_Load()
Set myScript = New ScriptControl
myScript.Language = "VBScript"   
myScript.AddCode "Function Plus(x,y) Plus = x+y end Function"
End Sub

miknil

Bemærk at strengen inden i kaldet til AddCode er en 'normal' VB script, som den ville være udformet i fx et ASP program.

Hvis det er en stor funktion kan den strække sig over flere linier, fx

code_string = "function test(x,y)" & vbCrLf _
        & "x = y*2" & vbCrLf _
        & "x = x+y*(x+2)" & vbCrLf _
        & "test = x" & vbCrLf _
        & end function

myScript.AddCode code_string


Du kan tilføje ligeså mange funktioner som du har lyst til!

Hvis det ikke generer dig det er på engelsk, så er der en udemærket beskrivelse af ScriptingControl'en incl objekt model her:

http://www.microsoft.com/mind/0799/script/script.asp


miknil

Ku du få det til at spille ?

ja tak.......sorry for ikke at give points før nu

hmmm miknil du har kun lavet en kommentar

Det er okay! Gem dine points til en anden gang, opret selv et svar og luk spørgsmålet :-)>