Свежие темы форума
○ Ключи к Norton/Symantec Антивирус №3 (Продолжение)	в 16:13
○ [Vn5socks.net] Service Seller Socks Good	в 06:45
○ Генератор паролей по маске	в 00:02
○ Как вы попали на Free-Pass.Ru?	в 07:27
○ Как возник ваш ник? [истории возникновения ваших ников]	в 07:26
○ Тема для киноманов! (Обсуждение фильмов, сериалов и др.)	в 07:26
○ Продажа аккаунтов - соц сети, почтовые, фрихостинг	в 18:59
○ Генератор прямых ссылок	в 20:29
○ Раздача аккаунтов,ключей,cookies,JavaScript на ФО	в 10:38
○ Раздача аккаунтов от лучших Онлайн казино.	в 20:33

Популярные темы форума
○ Ключи к Norton/Symantec Антивирус	9999
○ Ключи к Norton/Symantec Антивирус №2 (Продолжение)	9734
○ [Dichvusocks.us] Service Seller Socks Good	7010
○ [Vn5socks.net] Service Seller Socks Good	6838
○ Ключи к Norton/Symantec Антивирус №3 (Продолжение)	2436
○ Ключи для Windows 8.1	1901
○ CS:GO сайты с халявой (UPD 52 сайтa)	1833
○ Раздача игровых ключей на gleam.io Free(,бесплатно )	1205
○ Раздача аккаунтов,ключей,cookies,JavaScript на ФО	1186
○ Промо-акции: различные полезные программы	1050

Интересные статьи и лайфхаки

Как не получить бан за мат в чате World of Tanks?

Как не получить бан за мат в чате World of Tanks? - в последнее время, над этим вопросом бьются множество игро

Как и где безопасно хранить свои пароли?

Как и где безопасно хранить свои пароли? - этот вопрос задает сам себе практически каждый пользователь компьют

Как бесплатно получить стикеры вконтакте "Ход...

Как бесплатно получить стикеры вконтакте "Ходим в гости" от Jacobs Monarch? - очень просто. Кстати говоря, они

Сейчас вы просматриваете тему

Урок #2.1 - MsgBox и делаем не большой текстовый редактор

Страница 1 из 1
1

RingoBarbos

Автор темы

Дата: Четверг, 24.10.2013, 16:45 | Сообщение # 1

2 уровень

Сообщений: 73

Репутация: 7

Подарки: 0

Замечания: 0%

Постоянные

В этом уроке не будет много скриншотов, так как всё понятно.
1) Делаем наше окно большого размера (Например 939; 584)
2) Добавляем кнопку и ставим в левый верхний угол и делаем текст "О программе"
3) Добавляем RichTextBox и у нас должно получиться примерно такое окно
[spoiler=Спойлер][/spoiler]4) Нажимаем два раза на MsgBox и пишем

Код

msgbox("ТУТ ВАШ ТЕКСТ")

5) Добавляем ещё одну кнопку под названием "Сохранить"
6) Два раза нажимаем на нашу кнопку "Сохранить" и пишем

Код

Dim dlg As SaveFileDialog = New SaveFileDialog
          dlg.Title = "Save"
          dlg.Filter = "Rich Text Files (*.rtf)|*.rtf"
          If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
              RichTextBox2.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)
          End If

*P.S в строчке

Код

dlg.Filter = "Rich Text Files (*.rtf)|*.rtf"

Можно изменить формат сохраняемого текста
!!Не поддерживаются форматы .pdf .doc и другие.
Поддерживаются только простые форматы ".txt .rtf и прочие"
**P.P.S в строчке

Код

dlg.Title = "Save"

Можно заменить заголовок окна, которое будет открываться
КОНЕЦ
Скачать готовый проект: http://rghost.ru/49696208

Сообщение отредактировал EBUN - Суббота, 01.02.2020, 21:01

Поделиться этой темой: