как считать в текстовом поле? - VB

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

Например пользователь написал текст в текстовом поле. В этом поле есть цифры и переменная x. Как подсчитать это выражение, если х определен?

Код к задаче: «как считать в текстовом поле? - VB»

textual
Private Sub Command1_Click()
x = 3
Set objScript = CreateObject("MSScriptControl.ScriptControl")
objScript.Language = "VBScript"
On Error Resume Next
objScript.AddCode ("Function UserFunc(x)" & _
                ":UserFunc = " & Text1.Text & _
                ":End Function")
If Err Then MsgBox "Неверный синтаксис функции!": Exit Sub
MsgBox Text1.Text & " = " & objScript.Run("UserFunc", x) & " при Х=" & x
End Sub

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

15   голосов, оценка 3.933 из 5


СОХРАНИТЬ ССЫЛКУ