Свежие темы форума
○ Ключи к 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 [2016]

Как поменять почту в World of Tanks в 2016-ом году? Смена почты в WoT уже давно была невозможной, так как Warg

Как активировать Windows 7, 8, 10 в 2016 году?

В данной статье мы вам расскажем о том, как бесплатно произвести активацию Windows версий 7, 8, 10. В статье в

Как бесплатно получить стикеры Вконтакте от WWF (Р...

В социальной сети "Вконтакте" появилась возможность получить бесплатно красивые и оригинальные стикеры, в кото

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

Урок #2.2 - Блокнот с изменением шрифта, цвета, размера

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

Урок #2.2 - Блокнот с изменением шрифта, цвета, размера (+ открытие сохранёных файлов)

RingoBarbos

Автор темы

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

2 уровень

Сообщений: 73

Репутация: 7

Подарки: 0

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

Постоянные

1) Открываем наш проект, который мы создавали в прошлом уроке
2) Добавляем кнопки "Открыть", "Цвет", "Шрифт"
Окно должно быть примерно таким:
3) Нажимаем два раза на кнопку "Открыть"
и пишем

Код

Dim dlg As OpenFileDialog = New OpenFileDialog
           dlg.Title = "Open"
           dlg.Filter = "Rich Text Files (*.txt)|*.txt"
           If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
               RichTextBox1.LoadFile(dlg.FileName)
           End If

4) Нажимаем на кнопку "Цвет" и пишем:

Код

Try
               Dim dlg As ColorDialog = New ColorDialog
               dlg.Color = RichTextBox1.ForeColor
               If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
                   RichTextBox1.ForeColor = dlg.Color
               End If
           Catch ex As Exception : End Try

5) Нажимаем два раза на кнопку "Шрифт" и пишем:

Код

Try
               Dim dlg As FontDialog = New FontDialog
               dlg.Font = RichTextBox1.Font
               If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
                   RichTextBox1.Font = dlg.Font
               End If
           Catch ex As Exception : End Try

Вот и всё, теперь у нас Блокнот v0.2.9 Beta
Скачать готовый проект: http://rghost.ru/49702820

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

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