ເນື້ອໃນ

# ຄຳສັ່ງ On...GoSub; ຄຳສັ່ງ On...GoTo

ແຍກສາຂາໄປຫາແຖວໃດໜຶ່ງໃນຫຼາຍແຖວທີ່ລະບຸໄວ້ໃນລະຫັດໂປຣແກຣມ ໂດຍຂຶ້ນກັບຄ່າຂອງນິພົດຕົວເລກ.

### ໄວຍາກອນ:

    On expression GoSub Label1[, Label2[, Label3[,...]]]
    On expression GoTo Label1[, Label2[, Label3[,...]]]

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

ນິພົດ: ນິພົດຕົວເລກໃດໜຶ່ງລະຫວ່າງ 0 ຫາ 255 ທີ່ກຳນົດວ່າໂປຣແກຣມຈະແຍກສາຂາໄປຫາແຖວໃດ. ຖ້າ ນິພົດ ແມ່ນ 0, ຄຳສັ່ງຈະບໍ່ຖືກປະມວນຜົນ. ຖ້າ ນິພົດ ໃຫຍ່ກວ່າ 0, ໂປຣແກຣມຈະກະໂດດໄປຫາປ້າຍຊື່ທີ່ມີລຳດັບຕຳແໜ່ງກົງກັບນິພົດ (1 = ປ້າຍຊື່ທຳອິດ; 2 = ປ້າຍຊື່ທີສອງ)

ປ້າຍຊື່: ແຖວເປົ້າໝາຍຕາມໂຄງສ້າງ GoTo ຫຼື GoSub.

ຂໍ້ກຳນົດຂອງ GoTo ຫຼື GoSub ແມ່ນໃຊ້ໄດ້.

### ຕົວຢ່າງ:

    Sub ExampleOnGosub
    Dim iVar As Integer
    Dim sVar As String
        iVar = 2
        sVar =""
        On iVar GoSub Sub1, Sub2
        On iVar GoTo Line1, Line2
        Exit Sub
    Sub1:
        sVar =sVar & " ຈາກ Sub 1 ຫາ" : Return
    Sub2:
        sVar =sVar & " ຈາກ Sub 2 ຫາ" : Return
    Line1:
        sVar =sVar & " ປ້າຍຊື່ 1" : GoTo Ende
    Line2:
        sVar =sVar & " ປ້າຍຊື່ 2"
    Ende:
        MsgBox sVar,0,"On...GoSub"
    End Sub

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

ຄຳສັ່ງ GoSub...Return

ຄຳສັ່ງ GoTo

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