Не получается разобраться с кодом .

@OVSite · Регистрация: 22.08.2010

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

Пишу программу текстовый редактор , программа почти готова но не хватает печати , недавно нашол пример печати ( спасибо медведю Вини-Пуху Pooh ) но не знаю как добавить эту печать в мою программу .
Вот код программы

VB.NET
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
ublic Class Form1
    Private WithEvents docToPrint As New Printing.PrintDocument
    Dim Файл As String
 
    Private Sub document_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles docToPrint.PrintPage
        Dim text As String = RichTextBox1.Text
        Dim printFont = RichTextBox1.SelectionFont
        e.Graphics.DrawString(text, printFont, System.Drawing.Brushes.Black, 10, 10)
    End Sub
    Public Sub АссоциацияФайлов(ByVal Расширение As String, ByVal ПутьКФайлу As String)
        Dim Our_SubKey As String = (Strings.Left(My.Computer.Registry.Users.GetSubKeyNames(6), Len(My.Computer.Registry.Users.GetSubKeyNames(6)) - 8))
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\." & Расширение, "", Расширение & "file")
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\" & Расширение & "file\DefaultIcon", "", ПутьКФайлу & ", 0")
    End Sub
    Private Sub СохранитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СохранитьToolStripMenuItem.Click
        Dim Блокнот As New SaveFileDialog
        Блокнот.Filter = "RTF-файлы|*.RTF|Текстовые файлы|*.txt"
        If Блокнот.ShowDialog() = DialogResult.Cancel Then Exit Sub
        Файл = Блокнот.FileName
        If Файл.EndsWith(".RTF") Or Файл.EndsWith(".rtf") Then
            RichTextBox1.SaveFile(Файл)
        ElseIf Файл.EndsWith(".TXT") Or Файл.EndsWith(".txt") Then
            RichTextBox1.SaveFile(Файл, RichTextBoxStreamType.PlainText)
        End If
 
    End Sub
 
    Private Sub ОткрытьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОткрытьToolStripMenuItem.Click
        Dim Блокнот1 As New OpenFileDialog
        Блокнот1.Filter = "RTF-файлы|*.RTF|Текстовые файлы|*.txt|"
        Блокнот1.Title = "Сохранить файл "
        Блокнот1.CheckPathExists = True
        If Блокнот1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Файл = Блокнот1.FileName
            If Файл.EndsWith(".RTF") Or Файл.EndsWith(".rtf") Then
                RichTextBox1.LoadFile(Файл)
            ElseIf Файл.EndsWith(".TXT") Or Файл.EndsWith(".txt") Then
                RichTextBox1.LoadFile(Файл, RichTextBoxStreamType.PlainText)
            Else
                MsgBox("Не могу открыть файл такого формата")
            End If
        End If
 
    End Sub
 
    Private Sub ОчиститьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОчиститьToolStripMenuItem.Click
        RichTextBox1.Text = Nothing
 
    End Sub
 
    Private Sub ШрифтToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ШрифтToolStripMenuItem.Click
        If FontDialog1.ShowDialog() = DialogResult.OK Then
            RichTextBox1.SelectionFont = FontDialog1.Font
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        АссоциацияФайлов("rtf", My.Application.Info.DirectoryPath & "\" & My.Application.Info.AssemblyName & ".exe")
        Try
            Файл = Strings.Mid(Command(), 2, Len(Command()) - 2)
            If Файл.EndsWith(".RTF") Or Файл.EndsWith(".rtf") Then
                RichTextBox1.LoadFile(Файл)
            ElseIf Файл.EndsWith(".TXT") Or Файл.EndsWith(".txt") Then
                RichTextBox1.LoadFile(Файл, RichTextBoxStreamType.PlainText)
            End If
        Catch ex As Exception
        End Try
    End Sub
 
    Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click
        Application.Exit()
    End Sub
 
 
    Private Sub КопироватьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КопироватьToolStripMenuItem.Click
        RichTextBox1.Copy()
 
    End Sub
 
    Private Sub ВырезатьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВырезатьToolStripMenuItem.Click
        RichTextBox1.Cut()
    End Sub
 
    Private Sub ВставитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВставитьToolStripMenuItem.Click
        RichTextBox1.Paste()
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PrintDialog1.AllowSomePages = True
        PrintDialog1.ShowHelp = True
        PrintDialog1.Document = docToPrint
        Dim result As DialogResult = PrintDialog1.ShowDialog()
        If (result = DialogResult.OK) Then
            docToPrint.Print()
        End If
 
    End Sub
End Class

и вот вложение " Печать " .

Памирыч · 29.09.2010, 14:24

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

ты же имел ввиду то что...

Да нет, ничего такого я не говорил. Я не ставил целью написать программу, я просто натыкал кнопок, одна из которых даже не нужна, чтобы проверить параметры печати.
Контрол конечно хорош, но я бы не стал разводить этот сыр-бор в программе для обычного блокнота.

@OVSite · 29.09.2010, 14:25 **[ТС]**

А тогда про какие поля ты говорил ?

Памирыч · 29.09.2010, 14:27

А, понял. Я говорил о расположении печатного текста на бумаге.
Там левое поле великовато, я знаю, что в документе оно как надо сделано.
Видимо где-то надо еще и поля указывать. ИМХО.

@OVSite · 29.09.2010, 14:28 **[ТС]**

Ну главное что печать наконец то есть нормальная а с размером разобраться не трудно будет .

Памирыч · 29.09.2010, 14:29

Тогда тебе придется использовать экземпляр класса ЭкстендедРича, а свой удалять.
Создавать класс, а в остальном, вроде, нормально должно быть

@OVSite · 29.09.2010, 14:31 **[ТС]**

Сообщение от Памирыч

Тогда тебе придется использовать экземпляр класса ЭкстендедРича, а свой удалять.
Создавать класс, а в остальном, вроде, нормально должно быть

Я это уже почти сделал .

Памирыч · 29.09.2010, 14:31

Тогда вуа-ля, пробуй.

@OVSite · 29.09.2010, 14:40 **[ТС]**

Пытался добавить ExtendedRixhTextBox1.vb в элементы управления но не получилось .
Сделал вроде всё правильно . Создал компонент , скопировал туда код , потом проект-> существующий элемент -> выбираю component1.vb и нечего не происходит

Памирыч · 29.09.2010, 14:41

Я с этим не стал морочаться, сделал ручками, т.е. копипастом

Добавлено через 26 секунд
Сначала тоже пытался, но не получалось и я забил

@OVSite · 29.09.2010, 14:41 **[ТС]**

Это как ?

Памирыч · 29.09.2010, 14:44

Добавил в решение класс. Открыл Рич этот блокнотом, все скопировал и все это вставил в класс.
А в форме уже создал экземпляр.

Добавлено через 2 минуты
Пуху кстати, спасибо за контролл, вещь эта еще пригодится, а OVSite'у уже пригодилась.

@OVSite · 29.09.2010, 14:51 **[ТС]**

Памирыч вот открыл я класс блокнотом скопировал оттуда всё в класс в моей программе .
Что теперь нужно сделать чтобы ExtendedRichTextBox отображался в панели элементов .

Памирыч · 29.09.2010, 14:55

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

Что теперь нужно сделать чтобы ExtendedRichTextBox отображался в панели элементов

Мы для того его в класс и добавили, что не смогли на панель поместить. Как его туда засунуть, я не в курсе. В проекте ПУХа я просто перетащил этот класс в панель инструментов, а в моем так не канает.
Я не знаю, как это сделать, и не вижу смысла это делать.

@OVSite · 29.09.2010, 14:58 **[ТС]**

О всё нашол как сделать просто построил проект и само там появилось

Памирыч · 29.09.2010, 14:59

OVSite, Молодца!

@OVSite · 29.09.2010, 15:12 **[ТС]**

Кстати Памирыч я немного исправил код чтоб все кнопки и меню не закрывали ExtendedRichTextBox .

VB.NET
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
27
28
29
30
  Dim Файл As String
    Private checkPrint As Integer
    Sub PrintDocument1BeginPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument1.BeginPrint
        checkPrint = 0
    End Sub
    Sub PrintDocument1PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        checkPrint = Me.ExtendedRichTextBox1.Print(checkPrint, Me.ExtendedRichTextBox1.TextLength, e)
        If checkPrint < Me.ExtendedRichTextBox1.TextLength Then
            e.HasMorePages = True
        Else
            e.HasMorePages = False
        End If
    End Sub
    Public Sub АссоциацияФайлов(ByVal Расширение As String, ByVal ПутьКФайлу As String)
        Dim Our_SubKey As String = (Strings.Left(My.Computer.Registry.Users.GetSubKeyNames(6), Len(My.Computer.Registry.Users.GetSubKeyNames(6)) - 8))
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\." & Расширение, "", Расширение & "file")
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\" & Расширение & "file\DefaultIcon", "", ПутьКФайлу & ", 0")
    End Sub
    Private Sub СохранитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СохранитьToolStripMenuItem.Click
        Dim Блокнот As New SaveFileDialog
        Блокнот.Filter = "RTF-файлы|*.RTF|Текстовые файлы|*.txt"
        If Блокнот.ShowDialog() = DialogResult.Cancel Then Exit Sub
        Файл = Блокнот.FileName
        If Файл.EndsWith(".RTF") Or Файл.EndsWith(".rtf") Then
            ExtendedRichTextBox1.SaveFile(Файл)
        ElseIf Файл.EndsWith(".TXT") Or Файл.EndsWith(".txt") Then
            ExtendedRichTextBox1.SaveFile(Файл, RichTextBoxStreamType.PlainText)
        End If
 
    End Sub

Памирыч · 29.09.2010, 18:00

Дак кнопок -то как таковых и быть не должно. Только меню

@OVSite · 29.09.2010, 19:06 **[ТС]**

Но меню всё равно закрывает часть ExtendedRichTextBox

Памирыч · 29.09.2010, 20:03

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

@OVSite · 30.09.2010, 16:08 **[ТС]**

Памирыч я просто добавил ExtendedRichTextBox1 и немного поменял код

Так легче .

Добавлено через 19 часов 47 минут
Опять возникла непонятная проблема
Перенёс весь код в новую программу но теперь не открывает RTF файлы на рабочем столе просто открывает их в WordPad и иконка не меняется
Вот код

VB.NET
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
Public Class Form1
 
    Dim Файл As String
 
    Private checkPrint As Integer
    Sub PrintDocument1BeginPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument1.BeginPrint
        checkPrint = 0
    End Sub
    Sub PrintDocument1PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        checkPrint = Me.ExtendedRichTextBox1.Print(checkPrint, Me.ExtendedRichTextBox1.TextLength, e)
        If checkPrint < Me.ExtendedRichTextBox1.TextLength Then
            e.HasMorePages = True
        Else
            e.HasMorePages = False
        End If
    End Sub
    Public Sub АссоциацияФайлов(ByVal Расширение As String, ByVal ПутьКФайлу As String)
        Dim Our_SubKey As String = (Strings.Left(My.Computer.Registry.Users.GetSubKeyNames(6), Len(My.Computer.Registry.Users.GetSubKeyNames(6)) - 8))
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\." & Расширение, "", Расширение & "file")
        My.Computer.Registry.SetValue("HKEY_USERS\" & Our_SubKey & "\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\." & Расширение, "Application", ПутьКФайлу)
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\" & Расширение & "file\DefaultIcon", "", ПутьКФайлу & ", 0")
    End Sub
    Private Sub ОткрытьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОткрытьToolStripMenuItem.Click
        Dim Блокнот1 As New OpenFileDialog
        Блокнот1.Filter = "RTF-файлы|*.RTF|Текстовые файлы|*.txt"
        Блокнот1.Title = "Сохранить файл "
        Блокнот1.CheckPathExists = True
        If Блокнот1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Файл = Блокнот1.FileName
            If Файл.EndsWith(".RTF") Or Файл.EndsWith(".rtf") Then
                ExtendedRichTextBox1.LoadFile(Файл)
            ElseIf Файл.EndsWith(".TXT") Or Файл.EndsWith(".txt") Then
                ExtendedRichTextBox1.LoadFile(Файл, RichTextBoxStreamType.PlainText)
            Else
                MsgBox("Не могу открыть файл такого формата")
            End If
        End If
    End Sub
 
    Private Sub СохранитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СохранитьToolStripMenuItem.Click
        Dim Блокнот As New SaveFileDialog
        Блокнот.Filter = "RTF-файлы|*.RTF|Текстовые файлы|*.txt"
        If Блокнот.ShowDialog() = DialogResult.Cancel Then Exit Sub
        Файл = Блокнот.FileName
        If Файл.EndsWith(".RTF") Or Файл.EndsWith(".rtf") Then
            ExtendedRichTextBox1.SaveFile(Файл)
        ElseIf Файл.EndsWith(".TXT") Or Файл.EndsWith(".txt") Then
            ExtendedRichTextBox1.SaveFile(Файл, RichTextBoxStreamType.PlainText)
        End If
    End Sub
 
    Private Sub ПечатьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПечатьToolStripMenuItem.Click
        If PrintDialog1.ShowDialog() = DialogResult.OK Then
            Me.PrintDocument1.Print()
        End If
    End Sub
 
    Private Sub ПредварительныйПросмотрToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПредварительныйПросмотрToolStripMenuItem.Click
        PrintPreviewDialog1.ShowDialog()
    End Sub
 
    Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click
        Application.Exit()
    End Sub
 
    Private Sub ПовторитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПовторитьToolStripMenuItem.Click
        ExtendedRichTextBox1.Undo()
    End Sub
 
    Private Sub ОтменитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОтменитьToolStripMenuItem.Click
        ExtendedRichTextBox1.Redo()
    End Sub
 
    Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
        ExtendedRichTextBox1.Text = Nothing
    End Sub
 
    Private Sub ВыделитьВсёToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыделитьВсёToolStripMenuItem.Click
        ExtendedRichTextBox1.SelectAll()
    End Sub
 
    Private Sub ШрифтToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ШрифтToolStripMenuItem.Click
        If FontDialog1.ShowDialog() = DialogResult.OK Then
            ExtendedRichTextBox1.SelectionFont = FontDialog1.Font
        End If
    End Sub
 
   
    Private Sub ЦветToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЦветToolStripMenuItem.Click
        If ColorDialog1.ShowDialog = DialogResult.OK Then
            ExtendedRichTextBox1.SelectionColor = ColorDialog1.Color
        End If
    End Sub
 
    Private Sub КопироватьToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles КопироватьToolStripMenuItem.Click
        ExtendedRichTextBox1.Copy()
    End Sub
 
    Private Sub ВставитьToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ВставитьToolStripMenuItem.Click
        ExtendedRichTextBox1.Cut()
    End Sub
 
    Private Sub ВырезатьToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ВырезатьToolStripMenuItem.Click
        ExtendedRichTextBox1.Paste()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        АссоциацияФайлов("rtf", My.Application.Info.DirectoryPath & "\" & My.Application.Info.AssemblyName & ".exe")
        Try
            Файл = Strings.Mid(Command(), 2, Len(Command()) - 2)
            If Файл.EndsWith(".RTF") Or Файл.EndsWith(".rtf") Then
                ExtendedRichTextBox1.LoadFile(Файл)
            ElseIf Файл.EndsWith(".TXT") Or Файл.EndsWith(".txt") Then
                ExtendedRichTextBox1.LoadFile(Файл, RichTextBoxStreamType.PlainText)
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class

Добавлено через 17 минут
Даже в выберите программу для открытия этого файла не показывает мою программу .

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@OVSite 171 / 169 / 1 Регистрация: 22.08.2010 Сообщений: 1,251
	29.09.2010, 14:25 [ТС]
	А тогда про какие поля ты говорил ? 0

Памирыч Почетный модератор 23253 / 9167 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	29.09.2010, 14:27
	А, понял. Я говорил о расположении печатного текста на бумаге. Там левое поле великовато, я знаю, что в документе оно как надо сделано. Видимо где-то надо еще и поля указывать. ИМХО. 1

@OVSite 171 / 169 / 1 Регистрация: 22.08.2010 Сообщений: 1,251
	29.09.2010, 14:28 [ТС]
	Ну главное что печать наконец то есть нормальная а с размером разобраться не трудно будет . 0

Памирыч Почетный модератор 23253 / 9167 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	29.09.2010, 14:29
	Тогда тебе придется использовать экземпляр класса ЭкстендедРича, а свой удалять. Создавать класс, а в остальном, вроде, нормально должно быть 1

Памирыч Почетный модератор 23253 / 9167 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	29.09.2010, 14:31
	Тогда вуа-ля, пробуй. 1

@OVSite 171 / 169 / 1 Регистрация: 22.08.2010 Сообщений: 1,251
	29.09.2010, 14:40 [ТС]
	Пытался добавить ExtendedRixhTextBox1.vb в элементы управления но не получилось . Сделал вроде всё правильно . Создал компонент , скопировал туда код , потом проект-> существующий элемент -> выбираю component1.vb и нечего не происходит 0

Памирыч Почетный модератор 23253 / 9167 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	29.09.2010, 14:41
	Я с этим не стал морочаться, сделал ручками, т.е. копипастом Добавлено через 26 секунд Сначала тоже пытался, но не получалось и я забил 0

@OVSite 171 / 169 / 1 Регистрация: 22.08.2010 Сообщений: 1,251
	29.09.2010, 14:41 [ТС]
	Это как ? 0

Памирыч Почетный модератор 23253 / 9167 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	29.09.2010, 14:44
	Добавил в решение класс. Открыл Рич этот блокнотом, все скопировал и все это вставил в класс. А в форме уже создал экземпляр. Добавлено через 2 минуты Пуху кстати, спасибо за контролл, вещь эта еще пригодится, а OVSite'у уже пригодилась. 1

@OVSite 171 / 169 / 1 Регистрация: 22.08.2010 Сообщений: 1,251
	29.09.2010, 14:51 [ТС]
	Памирыч вот открыл я класс блокнотом скопировал оттуда всё в класс в моей программе . Что теперь нужно сделать чтобы ExtendedRichTextBox отображался в панели элементов . 0

@OVSite 171 / 169 / 1 Регистрация: 22.08.2010 Сообщений: 1,251
	29.09.2010, 14:58 [ТС]
	О всё нашол как сделать просто построил проект и само там появилось 1

Памирыч Почетный модератор 23253 / 9167 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	29.09.2010, 14:59
	OVSite, Молодца! 1

Памирыч Почетный модератор 23253 / 9167 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	29.09.2010, 18:00
	Дак кнопок -то как таковых и быть не должно. Только меню 1

@OVSite 171 / 169 / 1 Регистрация: 22.08.2010 Сообщений: 1,251
	29.09.2010, 19:06 [ТС]
	Но меню всё равно закрывает часть ExtendedRichTextBox 0

Памирыч Почетный модератор 23253 / 9167 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	29.09.2010, 20:03
	Выставляй размеры рича вручную в коде и используй свойство Dock. А я седня забухал, так что сам понимаешь... 1