TextBox - VB

Узнай цену своей работы

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

Всем привет. Мне нужно чтобы значение с textbox переносилось в функцию f, чтобы в коде его не менять постоянно. По коду ниже не работает. Подскажите что делать

Решение задачи: «TextBox»

textual
Листинг программы
Function F(x As Double) As Double
    On Error Resume Next
    Dim SC: Set SC = CreateObject("ScriptControl")
    SC.Language = "VBScript"
    SC.ExecuteStatement ("x=" & Replace$(CStr(x), ",", "."))
    F = SC.Eval(TextBox5.Text)
End Function

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

6   голосов , оценка 3.667 из 5