Контрольная работа: Работа с диалоговыми окнами

cdlCCShowHelp

&H8

Добавляет в диалоговое окно кнопку Справка

cdlCCPreventFullOpen

&H4

Скрывает кнопку Добавить в набор

cdlCCRGBInit

&H1

Восстанавливает в диалоговом окне исходный набор цветов

Решение задачи №1

Private Sub Открыть_Click()

CommonDialog1.DialogTitle = "открыть"

CommonDialog1.Filter = "текстовые документы RTF|*.rtf|рисунки|*.bmp"

CommonDialog1.ShowOpen

If CommonDialog1.FilterIndex = 1 Then

RichTextBox1.LoadFile (CommonDialog1.FileName)

ElseIf CommonDialog1.FilterIndex = 2 Then

Image1.Picture=LoadPicture(CommonDialog1.FileName)

End If

End Sub

Private Sub Шрифт_Click()

CommonDialog1.Flags = 1

CommonDialog1.ShowFont

RichTextBox1.SelBold = CommonDialog1.FontBold

End Sub