Задать свой тип.

[Taras2]

Не нашёл в хелпах. Подскажите как задать свой тип данных?
Пример: тип местность должен принимать два значения: поле или лес.
местность=("поле" or "лес").

[A.A.Z.]

Код: Выделить всё

Private Enum Местность
Поле
Лес
End Enum

Private Sub Form_Load()
'Пример
If Местность = Поле Or Местность = -1 Then Местность = Лес
End Sub


Всё просто.

[_NeoN_]

Код: Выделить всё

Private Enum Местность
Поле
Лес
End Enum

Private Sub Form_Load()
'Пример
If Местность = Поле Or Местность = -1 Then Местность = Лес
End Sub


Всё просто.

если не ошибаюсь не немного не так..

Код: Выделить всё

Private Enum Местность
Поле
Лес
End Enum

Private Sub Form_Load()
dim место as местность
'Пример
If место = Поле Or место = -1 Then место = Лес
End Sub


[A.A.Z.]

Ой, сорри, здорово я ошибся...

[GSerg]

Всё так, только объявление переменной как enum не является ограничением. Это просто удобно в том смысле, что список вываливается, но присвоить ей по-прежнему можно любое значение.