Eval в Басике 6.0 есть ли что нибудь подобное?? - VB

Формулировка задачи:

У экселя есть метод Evaluate, которому можно скормить любое вычисляемое выражение. Evaluate('4+2') вернет 6 Так вот есть ли что нибудь подобное в ВБ6.0?

Решение задачи: «Eval в Басике 6.0 есть ли что нибудь подобное??»

textual
                            Листинг программы 
                        

                            Option Explicit
 
' Having ScriptControl1, Text1
 
Private Sub Form_Click()
 With ScriptControl1
  Me.Caption= .Eval(Text1.Text)
 End With
End Sub
 
Private Sub Form_Load()
 With ScriptControl1
  .AddObject 'Me', Me, True
  .AddCode 'Function IIf(v, v1, v2)' & vbCrLf & _
       ' If CBool(v) Then' & vbCrLf & _
       '  IIf = v1' & vbCrLf & _
       ' Else' & vbCrLf & _
       '  IIf = v2' & vbCrLf & _
       ' End If' & vbCrLf & _
       'End Function' & vbCrLf
 End With
 Text1.Text = 'IIf(5>4,5,4)'
End Sub
                        

Оцени полезность:

7 голосов , оценка 3.571 из 5

Похожие ответы