Интернет-журнал "Домашняя лаборатория", 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. ��������� ������ ����������