Как считать в текстовом поле? - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д