ເນື້ອໃນ

# ຄຳສັ່ງ Enum [VBA]

ກຳນົດການນັບ (enumerations) ຫຼື ກຸ່ມຄ່າຄົງທີ່ທີ່ບໍ່ແມ່ນ UNO. ການກຳນົດຄ່າແບບລາຍການແມ່ນລາຍຊື່ຂອງຄ່າທີ່ຊ່ວຍໃຫ້ການຂຽນໂປຣແກຣມສະດວກຂຶ້ນ ແລະ ເຮັດໃຫ້ການກວດສອບຕັກກະຂອງລະຫັດງ່າຍຂຶ້ນ.

ຄ່າຄົງທີ່, ຟັງຊັນ ຫຼື ອັອບເຈັກນີ້ຈະຖືກເປີດໃຊ້ດ້ວຍຄຳສັ່ງ Option VBASupport 1 ທີ່ວາງໄວ້ກ່ອນລະຫັດໂປຣແກຣມໃນໂມດູນ.

### ໄວຍາກອນ:

           Enum list_name
               ' Object Statement block
           End Enum ' list_name

## ພາລາມິເຕີ:

ພາຍໃນການກຳນົດລາຍການໜຶ່ງໆ, ໃຫ້ລວມເອົາຄ່າທີ່ມີຄວາມກ່ຽວຂ້ອງກັນທາງຕັກກະເຂົ້າໄວ້ນຳກັນ.

### ຕົວຢ່າງ:

           Option VBASupport 1
           Private Enum _WindowManager
               W1ND0WS = 1 ' Windows
               OS2PM = 2 ' OS/2 Presentation Manager
               MACINTOSH = 3 ' Macintosh
               MOTIF = 4 ' Motif Window Manager / Unix-like
               OPENLOOK = 5 ' Open Look / Unix-like
           End Enum
           Public Function WindowManager() As Object
               WindowManager = _WindowManager
           End Function ' <library>.<module>.WindowManager.XXX

ຄ່າທີ່ກຳນົດໃນ Enum ຈະຖືກປະມວນຜົນເປັນປະເພດຂໍ້ມູນ Long. ຟັງຊັນ Basic ແມ່ນຕົວເຂົ້າເຖິງແບບສາທາລະນະ (public accessors) ຕໍ່ກັບ Enum. ຊື່ຂອງ Enum ແລະ ຊື່ຂອງຄ່າຕ່າງໆຕ້ອງບໍ່ຊ້ຳກັນພາຍໃນໄລບຣາຣີ ແລະ ທົ່ວທຸກໂມດູນ.

## ວິທີໃຊ້:

ສະແດງຄ່າຄົງທີ່ທີ່ຖືກຈັດກຸ່ມຂອງ WindowManager:

           Dim winMgr As Object : winMgr = <library>.<module>.WindowManager
           With winMgr
               Print .MACINTOSH, .MOTIF, .OPENLOOK, .OS2PM, .W1ND0WS
           End With

Enum ສາມາດຂະຫຍາຍໄປສູ່ປະເພດຂໍ້ມູນອື່ນໆໄດ້ໂດຍການໃຊ້ການກຳນົດ ຄຳສັ່ງ Type. ການຮຽກໃຊ້ Python Scripts ຈາກ Basic ຈະສະແດງໃຫ້ເຫັນເຖິງກົນໄກນັ້ນ.

ຫົວຂໍ້ທີ່ກ່ຽວຂ້ອງ

ຄຳສັ່ງ Const, ຄ່າຄົງທີ່

ຄຳສັ່ງ Option VBASupport

ຄຳສັ່ງ With

ກະລຸນາສະໜັບສະໜູນພວກເຮົາ!