Оцените, пожалуйста, мою первую программу - текстовый редактор

@Birdy · Регистрация: 11.03.2013

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

Вот написал свою первую программу, хотя не раз ее совершенствовал. В ней, конечно, есть недоработки, но как говорят - совершенству нет предела. Мне интересно ваше мнение.

@Birdy · 24.04.2013, 17:23 **[ТС]**

Сообщение от Монфрид

при нажатии на кнопку печати выскакивает окно выбора принтера, жму в этом окне Отмену, и он начинает печатать..
При нажатии на кнопку Найти, окошко поиска выскакивает где то в верхнем левом углу
И во всех диалоговых окнах установи CancelButton для формы, так форма буде закрываться по Esc

Добавлено через 7 минут
Открыть файл кнопка показывает диалог, жму отмену, выкидывает исключение (путь не должен быть пустой). Вы похоже нигде не обрабатываете что юзер может Отмену нажать..

Спасибо за найденные ошибки!

Проблему с кнопкой Отмена в окне выбора принтера устранил.

Окно поиска тоже исправил, теперь оно появляется в центре и закрывается по Esc.

Последнее мне не понятно. У меня при нажатии Отмена или Esc окно закрывается без проблем. Вот код:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim Open As New OpenFileDialog
Open.Filter = "Текстовые документы(*.txt)|*.txt|Файлы RTF(*.rtf)|*.rtf|Все файлы(*.*)|*.*"
Open.Title = "Открыть"
Open.InitialDirectory = "C:\"
Open.CheckPathExists = True
Open.ShowDialog(Me)
 
        Try
            If Open.FilterIndex = 1 Then
                Dim ReadText As New System.IO.StreamReader(Open.FileName)
                RichTextBox1.Text = ReadText.ReadToEnd
            ElseIf Open.FilterIndex = 2 Then
                Dim OpenName = Open.FileName
                RichTextBox1.LoadFile(OpenName, RichTextBoxStreamType.RichText)
            End If
        Catch ex As Exception
 
        End Try
        Open.Dispose()
        Open = Nothing

@Монфрид · 24.04.2013, 17:34

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

Open.ShowDialog(Me)

ну вот же у вас.
ShowDialog возвращает DialogResult или что-то такое.
и надо делать так:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
If Open.ShowDialog(Me)=System.Windows.Forms.DialogResult.Ok
        Try
            If Open.FilterIndex = 1 Then
                Dim ReadText As New System.IO.StreamReader(Open.FileName)
                RichTextBox1.Text = ReadText.ReadToEnd
            ElseIf Open.FilterIndex = 2 Then
                Dim OpenName = Open.FileName
                RichTextBox1.LoadFile(OpenName, RichTextBoxStreamType.RichText)
            End If
        Catch ex As Exception
 
        End Try
        Open.Dispose()
        Open = Nothing
End If

@Birdy · 24.04.2013, 18:34 **[ТС]**

Сообщение от Монфрид

ну вот же у вас.
ShowDialog возвращает DialogResult или что-то такое.
и надо делать так:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
If Open.ShowDialog(Me)=System.Windows.Forms.DialogResult.Ok
        Try
            If Open.FilterIndex = 1 Then
                Dim ReadText As New System.IO.StreamReader(Open.FileName)
                RichTextBox1.Text = ReadText.ReadToEnd
            ElseIf Open.FilterIndex = 2 Then
                Dim OpenName = Open.FileName
                RichTextBox1.LoadFile(OpenName, RichTextBoxStreamType.RichText)
            End If
        Catch ex As Exception
 
        End Try
        Open.Dispose()
        Open = Nothing
End If

Благодарю! Исправил.

Новые блоги и статьи Все статьи Все блоги /
Вступаем в новую фазу генерации favicons, векторную. russiannick 02.11.2026 Теперь нет нужды скрывать что используется простой svg. Исходный код изображения помещаем в поле и жмем кнопку. Исходник преобразуется в вид корректный для помещения в favicon или в url(). Нажатие. . .	Генератор паролей (вариант №4) Maks 01.11.2026 После публикации 3-го варианта генератора паролей, разослал его своим коллегам (с целью оценки), в итоге были получены следующие рекомендации: 1. Вернуть возможность использования знаков \| 1 l I;. . .	Генератор паролей (вариант №3) Maks 30.10.2026 Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .	Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени) zorxor 30.10.2026 Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .
За какое время ИИ может подобрать пароль по хешу (рассказывает Джемени ИИ) zorxor 30.10.2026 Расскажи, Джемени, если известен хэш МД5, например, за сколько ИИ сможет подобрать соответствующий пароль? Искусственный интеллект (ИИ) может подобрать простой или средний по сложности пароль по. . .	Кто убил Suno? Почему наше солнышко погасло? (диалог с ИИ Джемени) zorxor 30.10.2026 Как убивали Suno. Хронология. «Убийство» музыкальной нейросети Suno — это затяжной процесс, в котором технологический хайп стартапа разбился о жесткую реальность судебных исков от гигантов. . .	Генератор паролей (вариант №2) Maks 30.10.2026 Обновленная версия ранее созданной обработки. Добавлены следующие реквизиты типа Булево: - Буквы; - Цифры; - Символы. Изменена логика команды "Сгенерировать" и процедуры "ПриОткрытии":. . .	Генератор паролей (вариант №1) Maks 29.10.2026 Реализация из решения ниже выполнена исключительно по моей инициативе, дабы облегчить себе работу в создании паролей для администрируемых мною сервисов и пользователей. Самым главным критерием для. . .