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

07.08.2009, 21:25. **Показов** 789. **Ответов** 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

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

Larisa

	Помогите найти ошибку в коде. 07.08.2009, 21:25. Показов 789. Ответов 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