Интернет-журнал "Домашняя лаборатория", 2007 №4 - Тен
� ����� ������ RichTextBox ����������� ���������� ������� DataSource � DataField. ��� ���� � ���� ������ ������� MS Access, � ������� ����������� ������ RichTextBox, ������ ���� Binary ��� Memo. ���� ������������ ������ ������, �� ���� ������ ���� ������� ������� (��������, ���� Text � ���� ������ Microsoft SQL Server).
�� ��������� RichTextBox ���������� �� ������ ������������ Visual Basic. �������� ��� � ������ ����� �������� ������� ���� Project->Components � ������� ����������� ��������� Microsoft Rich ������ Control � ���� �������� ���������� (Controls). ����� ����� �� ������ ������������ �������� ��� ����������� ~
�������� � ������� ���������� VisData ���� ������ RICH.MDB, ������������ ������� TEXTS ������� �������� ��� ���� Id (���� Integer) � Textl (���� Memo).
� ���������������� ���������� ������������ ����������� �������������� ������ ���������� ��������� ���������� ������� ������� RichTextBox: SelBold, Selltalic, SelUnderline � SelStrikeThru. ��������� ��������� ���� ������� ��������� � �������.
�������. ��������� �������� ����������� ���������� ����.
�������� ∙ ��������
SelBold ∙ ���� ����������� True, �� ���������� ����� ������������ ���������� ������.
Selltalic ∙ ���� ����������� True, �� ���������� ����� ������������ ��������.
SelUnderline ∙ ���� ����������� True, �� ���������� ����� ��������������.
SelStrikeThru ∙ ���� ����������� True, �� ���������� ����� ���������������.
�������� ����� ������ � ����������� �� �������� ����� ������ ���������� �������, ��������� ����, ���������� ��������� ���� � ���� ��������� ������, ��� �������� �� ���.�9.3. ������� ��������� ���� �������� �������, ��� ������������ ����� ����� � ������� RTF.
���.�9.3. ������������ ��������� ���������� �� �������� �����
���������� �������� ������� ���������� ������� DataBaseName � RecordSource ��� �C: WORKRICH.MDB� � �Texts�, ��������������. �������� ��������� ��������, ������������� �� ����� ���������� ��������� �������:
Command1.Caption=����������
Command2.Caption=������
Command3.Caption=������������
Command4.Caption=�������������
Command5.Caption=��������
Text1.DataSource=Data1
Text1.DataField=Textl
RichTextBox1.DataSource=Data1
RichTextBox1.DataField=Text1
� ��������� ��������� ������� ������� ��������� ������ �������� ��������� ���:
Private Sub Command1_Click()
If RichTextBox1.SelBold = Fulse Then
������� RichTextBox1.SelBold = True
Else
������� RichTextBox1.SelBold = Fulse
End If
End Sub
Private Sub Command2_Click()
If RichTextBox1.Selltalic = Fulse Then
�������� RichTextBox1.Selltalic = True
Else
��������� RichTextBox1.Selltalic = Fulse
End If
End Sub
Private Sub Command3_Click()
If RichTextBoxl.SelUnderline = Fulse Then
��������� RichTextBox1.SelUnderline = True
Else
��������� RichTextBox1.SelUnderline = Fulse
End If
End Sub
Private Sub Command4_Click()
If RichTextBox1.SelStrikeThru = Fulse Then
��������� RichTextBox1.SelStrikeThru = True
Else
����������RichTextBox1.SelStrikeThru = Fulse
End If
Private Sub Command5_Click()
����������Data1.Recordset.AddNew
End Sub
��������� � ��������� ������. �������� ������������ ��������� ������ � ���� ������ � ��������� �������� �������������� ���������� �������� ������ � ������� ��������� ������.
��������� ������ ����� ���������� ������� �� ���.�9.4. �������� �������� �� ��, ��� � ������� ��������� ���� ������������ ���������� ������� RichTexBox.
���.�9.4. ��������� ������ ����������
���� 10
���������� Data Form Wizard ��� �������� �������� �������� ����
��� �������� �������� ����������, ��������������� ��� ������ � ������ ������, ����� ���� ����������� ������ ���� ������ (Data Form Wizard). ��� ��������� � ������ ������ � �������� �������� Visual Basic � �������� �� ���� Add-Ins (����������). ������, �� ���������, ������ ����� ���������� ���������� � ��������������� ������� ������� ������� �������� � ���� ��� ������ ��������� ���������� (Add-In Manager). ��������� ������� ���� Add-Ins->Add-In Manager, �������� ����������� ��������� VB Data Form Wizard � ���������� ���� ��������� ���������� � ����������� ��������� ����� �������� ������ ��. ������ ������ ���� ��������� �������� �� ���� Visual Basic.
� ������� ������� ���� ������ �� � ������������� ������ ����� ��������� �������� ����� ����������, �������� ��������� ���� ������ � ���������� ��������� ������, ����������� �� ����� ������ ���������� ������� � ��������� � ��� �������� ���������� Visual Basic. ������, ��� ��������� ��������� ���������� ����� ��������������� ������, ������������ � ��������������� ���� ���� ������. ���� �����������, �� ����� �������� �� ����� ��������� ������
Откройте для себя мир чтения на siteknig.com - месте, где каждая книга оживает прямо в браузере. Здесь вас уже ждёт произведение Интернет-журнал "Домашняя лаборатория", 2007 №4 - Тен, относящееся к жанру Газеты и журналы / Сделай сам / Хобби и ремесла. Никаких регистраций, никаких преград - только вы и история, доступная в полном формате. Наш литературный портал создан для тех, кто любит комфорт: хотите читать с телефона - пожалуйста; предпочитаете ноутбук - идеально! Все книги открываются моментально и представлены полностью, без сокращений и скрытых страниц. Каталог жанров поможет вам быстро найти что-то по настроению: увлекательный роман, динамичное фэнтези, глубокую классику или лёгкое чтение перед сном. Мы ежедневно расширяем библиотеку, добавляя новые произведения, чтобы вам всегда было что открыть "на потом". Сегодня на siteknig.com доступно более 200000 книг - и каждая готова стать вашей новой любимой. Просто выбирайте, открывайте и наслаждайтесь чтением там, где вам удобно.


