Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.94
Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.94

RichTextBoxl.Copy() End Sub

Вставить

Данный код осуществляет вставку содержимого буфера обмена.

Private Sub MenuItem9_Click(ByVal sender As System.Object,_ ByVal e As System.EventArgs) Handles Menultem9.Click

RichTextBoxl.Paste() End Sub

Выделить ace

Представленный ниже код выделяет все содержимое текстового поля.

Private Sub MenuItemlCLClick(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MenuItemlO.Click

RichTextBoxl.SelectAll() End Sub

Отменить

Код отменяет последнее действие.

Private Sub MenuIteml6_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Menulteml6.Click

RichTextBoxl.Undo() End Sub

Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста

Коды для пункта меню Сервис

Очистить

Этим кодом удаляется все содержимое текстового ПОЛЯ.

Private Sub MenuItem21_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Menultem21.Click

RichTextBoxl.Clear() End Sub

Коды для пункта меню Сервис

Статистика

Данный код открывает диалоговое окно, в котором отражается количество символов вместе с пробелами.

Private Sub MenuIteml2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Menulteml2.Click Dim txt As Single txt = RichTextBoxl.TextLength

MsgBox(txt, MsgBoxStyle.DefaultButtonl, "символов с пробелами") End Sub

Интернет

Представленный код открывает браузер Internet Explorer.

Private Sub MenuIteml3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Menulteml3.Click

RichTextBoxl.DetectUrls = True

Dim a As System.Diagnostics.Process

a = New System.Diagnostics.Process

a.Start("Iexplore.exe", "http://www.ya.ru") End Sub

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


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta