Помогите найти ошибку в коде.

07.08.2009, 21:25. **Показов** 813. **Ответов** 1

Студворк — интернет-сервис помощи студентам

Option Compare Text
Option Explicit

Private Declare Function EbExecuteLine Lib 'vba6.dll'
_(ByVal pc As Long, ByVal f1 As Long, f2 As Long, ByVal fy As Long) As Long

Private Sub Command1_Click()
If Len(Form1.Text1.Text) <> 0 Then
Dim result As Boolean, code As String
code = Form1.Text1.Text
code = Replace(code, vbCrLf, ':')
code = Replace(code, 'Сообщ', 'MsgBox', , , 2)
result = EbExecuteLine(StrPtr(code), 0&, False) = 0
If result = False Then MsgBox ('Синтаксис хато')
End If
End Sub

09.08.2009, 11:11

замени
result = EbExecuteLine(StrPtr(code), 0&, False) = 0
на
result = EbExecuteLine(StrPtr(code), 0&, 0&, 0&) = 0
а для проверки синтаксиса используй 1 в последнем параметре
result = EbExecuteLine(StrPtr(code), 0&, 0&, 1&) = 0

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

Larisa

	Помогите найти ошибку в коде. 07.08.2009, 21:25. Показов 813. Ответов 1 Метки нет (Все метки) Option Compare Text Option Explicit Private Declare Function EbExecuteLine Lib 'vba6.dll' _(ByVal pc As Long, ByVal f1 As Long, f2 As Long, ByVal fy As Long) As Long Private Sub Command1_Click() If Len(Form1.Text1.Text) <> 0 Then Dim result As Boolean, code As String code = Form1.Text1.Text code = Replace(code, vbCrLf, ':') code = Replace(code, 'Сообщ', 'MsgBox', , , 2) result = EbExecuteLine(StrPtr(code), 0&, False) = 0 If result = False Then MsgBox ('Синтаксис хато') End If End Sub

Irokez
	09.08.2009, 11:11
	замени result = EbExecuteLine(StrPtr(code), 0&, False) = 0 на result = EbExecuteLine(StrPtr(code), 0&, 0&, 0&) = 0 а для проверки синтаксиса используй 1 в последнем параметре result = EbExecuteLine(StrPtr(code), 0&, 0&, 1&) = 0