Udostępnij za pośrednictwem

Jak: Definiowanie właściwości (Visual Basic)

Należy ująć definicję właściwości między instrukcją Property a instrukcją End Property . W ramach tej definicji zdefiniujesz procedurę Get, procedurę Set, lub obie te procedury. Cały kod właściwości znajduje się w tych procedurach.

Procedura Get pobiera wartość właściwości, a Set procedura przechowuje wartość. Jeśli chcesz, aby właściwość miała dostęp do odczytu/zapisu, należy zdefiniować obie procedury. W przypadku właściwości tylko do odczytu definiujesz tylko Get, a dla właściwości tylko do zapisu definiujesz tylko Set.

Aby utworzyć właściwość

  1. Poza dowolną właściwością lub procedurą użyj instrukcji Property, a następnie instrukcji End Property .

  2. Jeśli właściwość przyjmuje parametry, po słowie kluczowym Property wpisz nazwę procedury, a następnie w nawiasach listę parametrów.

  3. Wstaw klauzulę As po nawiasach, aby określić typ danych dla wartości właściwości. Typ danych należy określić nawet w przypadku właściwości tylko do zapisu.

  4. W razie potrzeby dodaj Get i Set procedury. Zapoznaj się z poniższymi wskazówkami.

Aby utworzyć procedurę Get, która pobiera wartość właściwości

  1. Między instrukcjami Property i End Property napisz instrukcję Get, a następnie instrukcję End Get . Nie trzeba definiować żadnych parametrów dla Get procedury.

  2. Umieść instrukcje kodu, aby pobrać wartość właściwości między instrukcjami Get i End Get . Ten kod może zawierać inne obliczenia i manipulacje danymi oprócz generowania i zwracania wartości właściwości.

  3. Użyj instrukcji Return, aby zwrócić wartość właściwości do kodu wywołującego.

Należy napisać procedurę Get dla właściwości do odczytu i zapisu oraz dla właściwości tylko do odczytu. Nie można zdefiniować Get procedury dla właściwości tylko do zapisu.

Aby utworzyć procedurę ustawiania, która zapisuje wartość właściwości

  1. Między instrukcjami Property i End Property napisz instrukcję Set, a następnie instrukcję End Set .

  2. W instrukcji Set po słowie kluczowym Set można opcjonalnie dodać listę parametrów w nawiasach. Jeśli lista parametrów nie jest obecna lub jest pusta, zdefiniowany jest niejawny parametr o nazwie Value , którego typem jest sam typ właściwości. Jeśli lista parametrów nie jest pusta, możesz użyć innej nazwy, jeśli jest to konieczne, ale parametr musi mieć ten sam typ danych co sama właściwość.

  3. Umieść instrukcje kodu przechowujące wartość we właściwości między znacznikami Set i End Set. Ten kod może zawierać inne obliczenia i manipulacje danymi oprócz sprawdzania poprawności i przechowywania wartości właściwości.

  4. Użyj parametru value, aby zaakceptować wartość dostarczoną przez kod wywołujący. Tę wartość można przechowywać bezpośrednio w instrukcji przypisania lub użyć jej w wyrażeniu, aby obliczyć wartość wewnętrzną do zapisania.

Należy napisać procedurę Set dla właściwości odczytu i zapisu oraz dla właściwości tylko do zapisu. Nie wolno definiować procedury Set dla właściwości tylko do odczytu.

Przykład

Poniższy przykład tworzy właściwość odczytu/zapisu, która przechowuje pełną nazwę jako dwie nazwy składowe, imię i nazwisko. Gdy kod wywołujący odczyta fullName, procedura Get łączy dwie nazwy składników i zwraca pełną nazwę. Gdy kod wywołujący przypisuje nową pełną nazwę, Set procedura próbuje podzielić ją na dwie nazwy składowe. Jeśli miejsce nie zostanie odnalezione, zapisze wszystko jako imię.

Dim firstName, lastName As String
Property fullName() As String
    Get
      If lastName = "" Then
          Return firstName
      Else
          Return firstName & " " & lastName
      End If

    End Get
    Set(ByVal Value As String)
        Dim space As Integer = Value.IndexOf(" ")
        If space < 0 Then
            firstName = Value
            lastName = ""
        Else
            firstName = Value.Substring(0, space)
            lastName = Value.Substring(space + 1)
        End If
    End Set
End Property

W poniższym przykładzie przedstawiono typowe wywołania procedur właściwości programu fullName. Pierwsze wywołanie ustawia wartość właściwości, a drugie wywołanie je pobiera.

fullName = "MyFirstName MyLastName"
MsgBox(fullName)

Zobacz także