���������

  • ������� �����

    ���� �����-������ � ���� ������ ����� �����-������, ������� ����� ��������� ������� ������ � ��������� Microsoft Word.



    ��� �����
  • �������� ���� � VBA � ��������� �� � �������
    ����������: 23 865 |
    ����������� (0)
    18 ������� 2011 |

    5.1. �������� ����. ��������, ������� � ������ ����


    ����� – ��� ������� ������, ���������� ���������� ������ ����������. �� ����� ���� ����� ������������ ����� ����, � ������� ����� ��������� ��������� ����������� �������� ��� �������� ����������. ��� �������� ����� ���������� ��������� ������� �������   UserForm. � ���� ������������ ���� �������� �����, ������� ����������� ��� ��� �� Windows (���. 5.1).

     

     

    ��� � ����� ������ ������ VBA ����� ����� ����� �������, �������� �� ������� ��������� � ������� 5.1. ��� ��������� ������� �� ������ �������� ���������� �������� ��� � ���� ������� � ������ F1.


    ������� 5.1. �������� �������� �����

    ��������

    ��������

    BackColor 

    ���� ���� ��� �����.

    BorderStyle

    ���������� ��� �������, ���������� �����

    Caption

    �����, ������� ��������� � ��������� �����.

    Font

    ���������� ��� � ��� ������ � �����.

    Height

    ���������� ������ ����� � ������.

    (Name)

    ��� �������, ��� ��������� VBA. 

    Width

    ���������� ������ ����� � ������.

    �������� ����� �������� � ������ ��������������� � ���� �������, ���� ���������� � ������ ����������. ��������, � ���� ���������� ��������� ����� �������� ��������� ����� ��������:

    frmForm1.Caption = "������"

    ��������� ��� ���������� � �� Windows ����������� ���������. ������ ���, ����� ���������� ������, ������������ ����, ���������� ������� ����� � �.�., �� ���������� ���������. ��������� ������������ ���������������� �������, �������� �����, � �� ���������� ��������������� �������. �������������, ����� ��������� �������� ���������, � ������� ������ ����� ����������� �� ������� ������������ �������, �.�. ������ ������������ ������� ������������� ������������ ���������. ����� ����������� ������� ��������� � ������, ���������� � ������ ��������������� ������ �������� �� ��� – �������� ���� ���������, � ������� �������� �� ������ ���������.  � ����. 5.2 ��������� �������� ����� ������������ �������.

     

    ������� 5.2. �������� ������� ����

    �������

    ��������

    Initialize

    ���������� �� ����� ������������ � �� �������� ����� � ������.

    Activate 

    ���������� ����� �������� ����� � ������.

    Deactivate 

    ����������, ���� ����� ��������� ���� ��������.

    Click

    ���������� ��� ������� ����� ������ ���� �� �����.

    ��������� ������ �������� ��������� ����� ��� �����������, � ��������� ������ ����� ����� ������ ����� ������� ���� �� �����.

    Private Sub UserForm_Activate()

        frmForm1.Caption = "������ �� ����� ��������� � �������"

    End Sub

    Private Sub UserForm_Click()

        frmForm1.Width = frmForm1.Width / 2

        frmForm1.Height = frmForm1.Height / 2

        frmForm1.Caption = "������ ��� ��� ���!"

    End Sub

    ����� ����� �������� ������� ������� � ����������. ����� ���������� ��������, ������� ����� ���� ��������� � ��������. ���������� ���������� ��������. ��� ����� ��������� ����� ��� �������, � ����. 5.3 � 5.4 ��������� �������� ����� ������������ ������ � ���������� ��� ������ �������.

    ������� 5.3. �������� ������ ���� 

    �����

    ��������

    Hide 

    �������� ������ UserForm, �� �� ��������� ���.

    Show

    ������� �� ����� ������ UserForm.

    ������� 5.4. ��������  ���������� ����

    ����������

    ��������

    Load 

    ��������� ������ UserForm, �� �� ���������� ��� �� ������.

    Unload

    ������� ������ UserForm �� ������.

    � ��������� ������� ��������������, ��� � ������� ������� ��� ����� frmForms. ��� ������� ������� ���������� ������� Initialize ��� ����� frmForm1, ����� frmForm2 ����������� � ��������� �� �����. ����� ��� ������ ���� ���������� frmForm2, ��� �������� ���������, � ���������� ����� frm Form1. ���� �� ���������� frmForm1, frmForm2 ���������� �����.

    '������� Initialize ����� frmForm1.

    Private Sub UserForm_Initialize()

          Load frmForm2

          frmForm2.Show

    End Sub

    ' ������� Click ��� ����� frmForm2

    Private Sub UserForm_Click()

            frmForm2.Hide

    End Sub

    ' ������� Click ��� ����� frmForm1

    Private Sub UserForm_Click()

            frmForm2.Show

    End Sub


    5.2. ����� � ������������� ����������� ���������

    �������� ����������� ��������� �� ����� ����������� � ������� ������ ������������, ������� ��������� �� ����� �������� ��� ������ ��������� (���. 5.2).

     

     

    � ������� ������ ���� ������ ����� ��������� � ����� ����������� ������� ����������. ��� ����� ����� �������� �� ������ �������� ����������, ����� ��� ������� ����� ������ ���� ���������� ������ � ����� ������������ �������� � �����. ����� ������� �� ����� ������� (����� ������� �������� ��������� ��������������) ����� �������� ��� ������� � ���������� � ������� ����, � ����� ������������� � �������� ��� �������� � ���� �������.

    ������ ����������� ������� (������) ��������������� ������� ������� (������� ����� �������� � ������� ��������������� ��� ����������), ������� � �������.

    ��� ������� ������� ������� ���������� ���������� ��� ���. � ������������ � ������������� ������������ �� ������ �������� ������ ��� ������� ����� ������ �������� ��� ��������, � ��������� ������� - ����������.  � ����. 5.5. ������������ ��������� ������ ���� �������� ��� �������� ����� ������������ ���������.

    ������� 5.5. ������������� ��������� ������ ���� �������� ����

    ������

    ������ 3 ������� �����

    ������ �����

    �����

    frm

    frmMyForm

    �������

    lbl

    lblInfo

    ��������� ����

    txt

    txtInput

    ��������� ������

    cmd

    cmdExit

    ������

    chk

    chkSound

    �������������

    opt

    optLevel

    ������

    lsb

    lsbTypes

    �����

    fra

    fraChoices

    ������ ���������

    vcb

    vcbSpeed

    �������

    pic

    picChema

    ��������� ������ �������� ����� ���������������� ��������� ����������, � ����� �������������� ��� ����������� ���������� ���������� � ������ ��������, ������ �������� � ������� ������������, �������� ���� � �.�. �������� �������� ��������� ������ ������������ � ����. 5.6. � �������� Caption ����� ������� ������ & ����� ������, ������� ����� �������������� � ��������� � �������� Alt ��� ����������� ������� � ������. ����� ����� ������� � ������ �������� Tab, � ����� ������ Enter.

    ������� 5.6. �������� ��������� ������

    ��������

    ��������

    BackColor 

    ���� ���� ������.

    Caption

    �����, ������� ��������� �� ������.

    Enabled 

    �������� False ������ ������ �����������.

    Font

    ���������� ��� � ��� ������ �� ������.

    ForeColor 

    ���������� ���� ������ �� ������.

    (Name)

    ��� �������, ��� ��������� VBA. 

    Picture 

    ��������� ������� �� ������.

    PicturePosition 

    ���������� ������������ ������ � ������� �� ������.

    Visible 

    �������� False ������ ������ ���������.

    �������� �������� ������ �������� Click. ��� ��������� ������������ ����, ������� ����� ����������� ��� ������� ��������� ������, ���������� ��� ���� �������� �� ��� ����� ������� ���� � ������ ��������������� �������.

    �������� �������� ������� ��������� ������ �������� SetFocus, ����������� ��������� � ������ (�������� �� �����). ��������, ��������� ������� ��������� ��������� � ������ �� ��������� ����� ����� ������ � ��������� ����:  cmdMyButtum.SetFocus 

     

    ��������� ���� ����������� ��� ����� ��� ������ ����������. �������� �������� ���������� ���� ������������ � ����. 5.7.

     

     

    �������  5.7. �������� ���������� ����

    ��������

    ��������

    Enabled 

    �������� False ������ ���� �����������.

    Font

    ���������� ��� � ��� ������ � ��������� ����.

    ForeColor 

    ���������� ���� ������ � ��������� ����.

    (Name)

    ��� �������, ��� ��������� VBA. 

    MaxLength 

    ���������� ���������� �������� �������� �  ��������� ����.

    PasswordChar 

    ���������� ������, ������������ ��� ����� � ��������� ����.

    Text 

    ���������� ���������� ���������� ����.

    ��������, ��� ������� ����������� ���������� ���� � ���� ���������� ��������� ���������� ������ � ��������� ����� ������������ ���� �������:

    txtResult.Text=" "

    �������� �������� ���������� ���� �������� Change, ������������ ��� ����� ��� �������� ��������. ��������, ������� cmdMyButtum.SetFocus ����� ��������� � ��������� ������� Change ���������� ����.

    ������� ����������� ��� �������������� ��� ������ ���������� ����������, ��� � � ���� "���������" ��� ���������� ����, ������ ��� ������� ��������. ������� � ������� �� ���������� ���� � ���, ������������ �� ����� �������� ����� ������� (���� ��� ����� �������� ��� �������� �� ����� ���������� ���������). �������� �������� ������� ������������ � ����. 5.8.

    ������� 5.8. �������� �������

    ��������

    ��������

    Caption

    ���������� �����, ������������ � �������.

    Font

    ���������� ��� � ��� ������ �������.

    ForeColor 

    ���������� ���� ������ �������.

    (Name)

    ��� �������, ��� ��������� VBA. 

    Picture 

    ��������� ������� � �������.

    PicturePosition 

    ���������� ������������ ������ � ������� �������.

    ������ ��������� �������� � �������� �� ���������� ���������. ������������ ����� ����������� ���������� ������ � ������� ���� �� ��������� ��� ����������� ���������. ������ �������������� ����������� ������ ����������. ���� � ������ ���������� �� ��� ������, �� ������������� ����������� ������������ ������ ���������. �������� �������� ������ ������������ � ����. 5.9.

    ������� 5.9. �������� ������

    ��������

    ��������

    (Name)

    ��� �������, ��� ��������� VBA. 

    ListIndex 

    ���������� ����� ������� ���������� ������ ������ -1.

    Text 

    ���������� ������� ���������� ������ ������.

    ��� ������ ���� ����� ������������ ������� ClickDblClick (������� ������ ����� ������� ���� �� ����� �� ����� ������). �� ������ ������ ������������ ������������ �������� ������ � �������� �� ���������.

     

    ������ �� ������� ���������� � ��� ���������� ������� AddItem, ������� ����� ���������� ��������� ��� ������. ����� ����� AddItem ���������� � ��������� UserForm_Initialize(), ����� ������ ���������� ��� �������� �����. ����� RemoveItem ������� ������ �� ������. ����� Clear ������� ����� ���� ������. ��������� ������ ����������, ��� �������� ������, ��� ���� ��������������, ��� � ������� ������� ����� � ����� �������� (List1 � List2). ������� ������ �� ����� ������ ������ ������ ���������� � � ������ ������. ������ ���������� � ������ ������ �� ����, ��� ��� ����� ������� �� ��������.

    Private Sub UserForm_Initialize()

        List1.AddItem "����"

        List1.AddItem "����"

        List1.AddItem "�����"

        List1.AddItem "������"

        List1.AddItem "�������"

    End Sub  

    Private Sub List1_DblClick()

       List2.AddItem List1.Text

       List1.RemoveItem

       List1.ListIndex

    End Sub

    Private Sub List2_dblClick()

       List1.AddItem List2.Text

       List2.RemoveItem

       List2.ListIndex 

    End Sub

    ������������� ��������� ������� ���� ������� �� ������. ������ ��� ������������ � ������ (��. �����), ������ �� ����� ����������� ����� �� �����, ���� ������������ ������ ���� ������ ��������������. �������� �������� ������������� ������������ � ����. 5.10.

    ������� 5.10. �������� �������������

    ��������

    ��������

    Caption

    ������ �����, ������������ ���������� �������������.

    (Name)

    ��� �������, ��� ��������� VBA. 

    Value 

    �������� True ���������, ��� ������������� ������.

    �������� ������ �������� �������� Value �������� True (������������� ��������� � ������������� ���������), �������� � ������ ��������������� �������� ������ � ������ ������������� � ������. � ������ ���������� ��� �������� ���� ����� ����������� � ��������� ������� Click ������, ������� ����� ��������� ������� �������������, ��� ��������� ��������� ����� ������� ��������� ��������� ��������� �������. ������ ������������ �������� ����� ��������� ����� �� ����� ������ ������������� � ��������� ��� ������� Click.

    ������ �������� ���������� �������������, �� � ������� �� ���� ����� �������������� ��� ��������� ��������������� �������. ���� ������������ � ������ ������ �������� ���������� ���� �� �����. �������� �������� ������� ����� ��, ��� � � ������������� (��. ����. 5.10). ������ �������� Value ����� ��������� ��� �������� (������ ��������� � ������������� ���������, ������ ��� ��������������).


    �������� ����� ������������ �������� ������� �������� Click, � ��������� �������� ����� ��������� ��������� ������ �� �������� Value. ��������� ������ ������������ ������ �������, ��� ���� ��������������, ��� � ������� ������� ����� � ����� �������� (ChkBold � ChkInalic) � ��������� ����� TxtExam (���.5.3). ����� ����� �������� � ��������� ����, � ������� ������� ����� ������ ����� ���������� ��� ��������. �������� FontBold FontItalic ���������� ���� ������������� ������� ���������� ������.

     

     

    ���. 5.3. ������������� �������


    Private Sub Chkbold_Click()

      If ChkBold.Value = True Then

        TxtExam.FontBold = True

      Else

        TxtExam.FontBold = False

      End If

    End Sub

    Private Sub ChkItalic_Click()

      If ChkBold.Value = True Then

        TxtExam.FontItalic = True            

      Else

       TxtExam.FontItalic = False

      End If                                                   

    End Sub

    ����� ������������ ��� ����������� �������������� ��� �������, � ���������� �� ����� ������ ���������, ����������� ������ ��. ������������� ����������� ������ �����, �������� ��� ��������������� ������ � �� ������ �� ��������� �������������� � ������ ������. �������� ��������� ����� �������� Caption, ������� ������ �����, ������������ ���������� ��������� � �����.

    ������� ������������ ��� ����������� ������ ����������� �� �����. �� ����� ���������� ��������� ����� (.BMP), ������ (.ICO), ��������� (WMF), � ����� ����� � ������� JPEG (.JPG) � GIF (.GIF). �������� �������� ������� ������������ � ����. 5.11.

    ������� 5.11. �������� �������

    ��������

    ��������

    Autosize 

    �������� True ��������� ������ �������� ��� ������ �����������.

    (Name)

    ��� �������, ��� ��������� VBA. 

    Picture 

    ������ ���� ��� �������.

    ������� � ������ ����� � �������� ����������� �� ������������.


    ��������� �����



    ������ ������� �� ����:

      ������ �����
      ���������

      ����� �� �������� ������ �����������, �� �������� �����? ���� ��������, ��� ��������� �� ���������� �������� �������� ������. � ���� ��� ��� �� �������, �� ����� ����������� ��������� ���� �������, ������ ����������� ����� ��������.



      ��������-���������� – ������ ��� ���������� ��������, � ����� ��������� ���������� ���� �������������� �������� � ���� ��������. � ���� �������� ��������� ������, ����, ����� �����, ������������, � ����� ����������� ����������.



      �� ����������� ���� ����������� ������ ��������, ����������� ��� ����� ����� ���� ������������� ���� � ����, ��� ��������� ������������ ��������� �������� ����� ��������. ����������, ��� ����������� ���������������� ������ �������, �� ������ ���� ����������� ����������� ����������, �������� ���������� ��������� �������� � �����������. �������������� ���������� ������ ����� ���� ������� ����������� ���������.



      �� ������ ���������� ��������� ��������� �������� �������� �� �������� ����������� ����� ������� ����� � ����, � ��� �� ������ ������� ����������� �� ������������� ������. ���� ����� ������ � ����, ������, ���� �� ������� �������, ������� ��� ������ �� �� �����, � �� ����, ������ ���� ���������� �������� �������, ���� ��� �������� ���������. �� ������������� ������ ������������ ���� ����������� � ����� ���� ������������ ������� ��������� �����, � ���� ����� ���������� ������, ������ � �������.



      ����� �������� �������� �������� �����, ������� ��������� ����� ������ ����� � ������������ �����. �� ������ ���� ���� � ����� ��������� ������ ������. � �����, ��� �� ������ ����� �������� �����. ��� ������ �������� ������� ��������. ��������� ������ ��� - �� �� �� ���� ����, �� ����� � ����� �� ������� ����� ����� ������,