Титульный лист в программе

@SpLaT · Регистрация: 09.05.2008

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

День добрый! Имеется код, который сделал через Exel 2003 в VBA:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub CommandButton1_Click()
 
MsgBox "Ïðîãðàììà îïðåäåëåíèÿ ïðàâèëüíîãî ïîñòðîåíèÿ ôîðìóëû èñ÷èñëåíèÿ âûñêàçûâàíèé"
End Sub
 
Private Sub CommandButton2_Click()
 
End Sub
 
Private Sub CommandButton3_Click()
Dim Enter
Enter = InputBox("Ââåäèòå ôîðìóëó âûñêàçûâàíèÿ")
If (InStr(1, Enter, "=>") > 0) Or (InStr(1, Enter, "<=>") > 0) Or (InStr(1, Enter, "V") > 0) Or (InStr(1, Enter, "Ë") > 0) Then
    MsgBox "Ôîðìóëà âûñêàçûâàíèÿ " + Enter + " ïîñòðîåíà ïðàâèëüíî"
Else
    MsgBox "Ôîðìóëà âûñêàçûâàíèÿ " + Enter + " ïîñòðîåíà íå ïðàâèëüíî", vbCritical
End If
End Sub
 
Private Sub CommandButton4_Click()
   End
End Sub
 
Private Sub UserForm_Click()
 
End Sub

Так вот по нажатию на кнопку CommandButton2_Click() мне нужно сделать чтобы выскакивал титульный лист! Через msgbox у меня получается выносить всю информацию но только в одну строчку, а нужно чтобы на разном уровне, ну т.е. там фамилию, препода ( как обычный титульник ) но не через графику! подскажите как сделать!

@Abu · 23.12.2009, 22:00

Вместо

Сообщение от SpLaT

... + Enter + ...

Code
1
... & vbCrLf & ...

@SpLaT · 23.12.2009, 23:07 **[ТС]**

Сообщение от Abu

Вместо

Code
1
... & vbCrLf & ...

Enter у меня просто формулу которую человек вбил выводит в середине предложения! за команду спасибо, она выполняет ф-цию ентера в ворде! теперь как провеб поставить в msgbox ?

@Владимир_Сар · 24.12.2009, 10:50

Сообщение от SpLaT

как провеб поставить в msgbox

& " " &

Добавлено через 1 минуту

Visual Basic
1
 & " " &

@SpLaT · 25.12.2009, 17:44 **[ТС]**

Нашёл у себя ошибку, помогите решить! Вообщем после ввода условных знаков у меня проверяется формула исчисления высказываний! Если этих знаков нету, формула не правильна! НО: если ввести нужный знак + неправильный знак у меня все равно формула правильной считается! И если ввести 2 буквы подряд и нужный знак, тоже правильной считается! Т.е. если будет хотя бы 1 правильный знак - формула определяется как правильно записанная! Так вот как мне сделать чтобы после каждой буквы проверялся нужный знак? Т.е. A^B<=>C приавильно составленная а A^BC уже неправильна!!! Жду наводку!!!

И ещё: сначала формулы не могут тоже знаки стоять, кроме одного!

MsgBox оказывается имеет ограничение по записыванию в него символов! есть какая нибудь другая альтернатива???

Добавлено через 22 часа 34 минуты
мдааа помощи ждать не от кого (((

@Abu · 26.12.2009, 11:52

Сообщение от SpLaT

Жду наводку!!!

Обрати внимание на оператор Like - очень клёвая штука, помоему в самый раз под твою ситуацию сделан

.

Сообщение от SpLaT

MsgBox оказывается имеет ограничение по записыванию в него символов! есть какая нибудь другая альтернатива???

Сделать ещё одну форму, на форме Label и в нём написать текст, на форме кнопка Ok, форму выводить по запросу, и прятать по нажатию на Ok.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@SpLaT 0 / 0 / 0 Регистрация: 09.05.2008 Сообщений: 5
	25.12.2009, 17:44 [ТС]
	Нашёл у себя ошибку, помогите решить! Вообщем после ввода условных знаков у меня проверяется формула исчисления высказываний! Если этих знаков нету, формула не правильна! НО: если ввести нужный знак + неправильный знак у меня все равно формула правильной считается! И если ввести 2 буквы подряд и нужный знак, тоже правильной считается! Т.е. если будет хотя бы 1 правильный знак - формула определяется как правильно записанная! Так вот как мне сделать чтобы после каждой буквы проверялся нужный знак? Т.е. A^B<=>C приавильно составленная а A^BC уже неправильна!!! Жду наводку!!! И ещё: сначала формулы не могут тоже знаки стоять, кроме одного! MsgBox оказывается имеет ограничение по записыванию в него символов! есть какая нибудь другая альтернатива??? Добавлено через 22 часа 34 минуты мдааа помощи ждать не от кого ((( 0