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