Интернет-журнал "Домашняя лаборатория", 2007 №4 - Арчер

���������� ������� RTF (Rich Text Format � ����������� ��������� ������). ������ RichTextBox ����������� ����� � ������� RTF � ��������� �������������� � ����������� ������ �� �������� �����.

� ����� ������ 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. ������, ��� ��������� ��������� ���������� ����� ��������������� ������, ������������ � ��������������� ���� ���� ������. ���� �����������, �� ����� �������� �� ����� ��������� ������