Как считать в текстовом поле? - VB
Формулировка задачи:
Например пользователь написал текст в текстовом поле. В этом поле есть цифры и переменная x. Как подсчитать это выражение, если х определен?
Решение задачи: «Как считать в текстовом поле?»
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