���� ���� ������ ������� ���� 6 �� ����� ������� ���� ������� ��� ����
��� ������� ����� for |
������� ��� ��� ���� ����� ���� ���� ����� �� ����� ����� |
�� ���� ����� ���� � ���� ���Text1- Command1 � ���� ������ ������� :
����� ������ ��� ������� �� ���� ����� ���� ���� ����� ������� ������� ��� Command1 �� ����� ��� �������� � ���� ��� �� ����� Text1 � ���� ��� ������ ������� ��� ����� ����� Form1 ������ ���� ���� ��� ��� ���� ��� ����� ��� ������ Form1 ��� ���� ��� ��� Lode � ���� ����� ������ :
Private Sub Form_Load() |
��� ����� �������� ����� �������� ������� :
���� �� ���� �� ���� ���� Text1 ���� ���� ������ � �� ������ ����� ������ ���� ����� ������ :
Text1.Alignment = 1 |
��� ������� �� ����� ������ �� ����� 1 � ��� ��� ���� ���� �� ��� ������ ������ ������ :
Text1.Alignment = 0 |
��� ������� ���� ���� �� ��� ������ �� ����� 0 � ��� ��� ���� ���� �� ����� ������ ������ :
Text1.Alignment = 2 |
��� ������� ���� ���� �� ��� �� ����� 2
��� �� ��� ����� �� ����� 0 �� ��� ������ � ������ �� 1 � ����� �� 2 ������ �� ������� ��� ����� ����� Alignment ��� ��� ����� ��� ������ :
���� ������� .
������ ����� ������� :
Private Sub Form_Load() |
� ��� ��� ���� ����� ������� ��� ������� �������
�� ������ ������ :
Private Sub Form_Load() Text1.RightToLeft = True |
��� ����� ����� ����� ����� ������ ���� ����� ���� ������ � ���� ���� ���� ���� ���� ����� ������1 ���� ������ .
���� �� ���� ����� ���� ���� ������ ������� �������� �� 1-100 ����� Text1 .���� ����� ��� ��� �������� For � ���� ������ ������� ���� ���� ����� ��� ���� Command1 � ���� � ���� �� ��� - ����� ��� ����� �� ���Click -:
Private Sub Command1_Click() |
� ��� ��� ����� :
For i = 1 To 100 |
���� �� ������� i ����� 1 ��� 100
� ����� �������� ���� ���� ���� i ����� 1 �� ���� ����� � ����� ��� ��� Next i ������ ���������� ���� ������� ��� 2 � ���� �� �� ��� ��� Next i ����� 1 . |
Text1.Text = Text1.Text & i & " - " |
���� ������ ���� �� ��� ����� ������� (������� ������� ��� Text1 ) ��� �� ����� Text1 � ���� ����� ���� ������� i - ���� �� ����� - � �� ���� ����� ������� ( - ) ��� ���� ����� ������ � ���� ����� ���� � ������� & �� ����� ����� ��� ����� � ������ ��������� �������� (+) . |
Next i |
� ������ ��� ����� ������ � ���� ������ ��� ����� ��� ���� ������ �������.� ���� ������� ��� �� ��� ��� ����� 100 . |
� ����� ��� �������� ���� ������� :
����� �������� ���� ������� i ����� 1 � �� ����� ����� ������ ��� ����� ���� Text1 ���� ��� ���� ���� ��� �� ���� � �� ����� ����� Text1 ���� i ���� �� 1 � �� ���� ������� (-) ����� ����� ������� ����� ���� ���� (Next i) ��� ������ ���� i ��� ���� ����� ��� ����� ����� ����� � ������ ������ �� ��� 2 � ����� ���� ������� ����� �� ���� ( 1 - ) ���� �� ����� ��� ��� � ����� �������� �������� ��� ���� ������ �� ���� ���� 2 ���� ������� ������� � ���� ����� ������� (-) � ����� ������ � ����� ������ ������� ��� ����� 3 � ���� ������ ����� ����� ���� 1-2- � ����� ���� ���� ������� � �� 3 � ����� ����� (-) � ���� ������ ��� �� ��� ��� ����� 100
� ��� ����� ����� �������� ����� ������� ������� :
� ����� ��� �� ��� ������� �������� ����� ���� ���� ����� �� ������ ����� ��� ���� ������ ����.
�� ������� Text1 � ���� �� ������� ����� MultiLine � ������ True
� ��� ����� �������� ����� ���� ����� :
���� �� ��� ���� Text1 �� ���� ����� ��� �� ���� ���� ����� ����� Text1 .
� ���� ��� ���� Text1 � ���� ������� ������� ScrollBars � ����� ��� Vertical.
� ���� ������ ����� ���� ����� ������� :
� ������ ���� ����� ����� ���� ���� ������ ������ ���� ���� ��� ���� ����� ������� ������� ��� 300 ���� . ������ ��� ����� ������� ���� ���� � ������ ����� ��� ������� ��� ������ :
Private Sub Command2_Click() |
����� ��� �� ������ (For i = 1 To 500 Step 2) � ������ ����� ������� �� 1 ��� 500 � ����� ������� �� 2 �� ����� �� ��� 2 � ��� ����� ������� ����� ��� .����� ��� ��� ����� 1 � �� ����� ���� 2 � ����� ����� ������ 3 � �� ����� ���� 2 � ����� ����� 5 � ������ ������ ����� ����� ������� ����� ���� 2 .
� ���� ������ ��� ��� ������� ��� ������ :
Private Sub Command3_Click() |
���� ��� ���� ������ ������� �� 200 ��� -100 �� ������ � ���� ����� 3 �� ���� 3 �� �� ��� .
������� ���� : ����� �������� ������ �� ������ ���� ���� � ����� ��� ������ ����
���� ����� ������ ������ ���������@2006 |