ເນື້ອໃນ

# ຄຳສັ່ງ Static

ປະກາດຕົວປ່ຽນ ຫຼື ອາເຣໃນລະດັບ procedure ພາຍໃນສ່ວນຍ່ອຍ ຫຼື ຟັງຊັນ, ເພື່ອໃຫ້ຄ່າຂອງຕົວປ່ຽນ ຫຼື ອາເຣນັ້ນຍັງຄົງຢູ່ຫຼັງຈາກອອກຈາກສ່ວນຍ່ອຍ ຫຼື ຟັງຊັນນັ້ນແລ້ວ. ວິທີການໃຊ້ຄືກັນກັບຄຳສັ່ງ Dim.

ຄຳສັ່ງ Static ບໍ່ສາມາດໃຊ້ເພື່ອກຳນົດອາເຣທີ່ມີຂະໜາດປ່ຽນແປງໄດ້. ອາເຣຈະຕ້ອງຖືກລະບຸຕາມຂະໜາດທີ່ຄົງທີ່.

## ຮູບແບບຄຳສັ່ງ:

    Static VarName[(start To end)] [As VarType], VarName2[(start To end)] [As VarType], ...

## ຕົວຢ່າງ:

    Sub ExampleStatic
    Dim iCount As Integer, iResult As Integer
        For iCount = 0 To 2
            iResult = InitVar()
        Next iCount
        MsgBox iResult,0,"ຄຳຕອບແມ່ນ"
    End Sub

    ' ຟັງຊັນສຳລັບກຳນົດຄ່າເລີ່ມຕົ້ນຂອງຕົວປ່ຽນ static
    Function InitVar() As Integer
        Static iInit As Integer
        Const iMinimum As Integer = 40 ' ຄ່າຕ່ຳສຸດທີ່ສົ່ງຄືນຈາກຟັງຊັນນີ້
        If iInit = 0 Then ' ກວດສອບວ່າມີການກຳນົດຄ່າເລີ່ມຕົ້ນແລ້ວຫຼືບໍ່
            iInit = iMinimum
        Else
            iInit = iInit + 1
        End If
        InitVar = iInit
    End Function

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