ฟังก์ชัน CVErr

ส่งกลับตัวแปรของชนิดย่อย Error ที่มีหมายเลขข้อผิดพลาดที่ระบุโดยผู้ใช้

ไวยากรณ์

CVErr(errornumber)

อาร์กิวเมนต์ errornumberที่จําเป็นคือหมายเลขข้อผิดพลาดที่ถูกต้องใดๆ

ข้อสังเกต

ใช้ฟังก์ชัน CVErr เพื่อสร้างข้อผิดพลาดที่ผู้ใช้กําหนดเองในกระบวนงานที่ผู้ใช้สร้างขึ้น ตัวอย่างเช่น ถ้าคุณสร้างฟังก์ชันที่ยอมรับหลายอาร์กิวเมนต์และโดยปกติแล้วจะส่งกลับสตริง คุณสามารถให้ฟังก์ชันประเมินอาร์กิวเมนต์ที่ป้อนเข้ามาเพื่อให้แน่ใจว่าอยู่ในช่วงที่ยอมรับได้ ถ้าไม่ เป็นไปได้ว่าฟังก์ชันของคุณจะไม่ส่งกลับตามที่คุณคาดหวัง ในกรณีนี้ CVErr จะอนุญาตให้คุณส่งคืนหมายเลขข้อผิดพลาดที่บอกให้คุณทราบว่าต้องดําเนินการอย่างไร

โปรดทราบว่าไม่อนุญาตให้มีการแปลง ข้อผิดพลาด โดยปริยาย ตัวอย่างเช่น คุณไม่สามารถกําหนดค่าที่ส่งกลับของ CVErr ให้กับตัวแปรที่ไม่ใช่ตัวแปรได้โดยตรง อย่างไรก็ตาม คุณสามารถดําเนินการแปลงอย่างชัดเจน (โดยใช้ CInt, CDbl และอื่นๆ) ของค่าที่ส่งกลับโดย CVErr และกําหนดค่านั้นให้กับตัวแปรที่มีชนิดข้อมูลที่เหมาะสม

ตัวอย่าง

ตัวอย่างนี้ใช้ฟังก์ชัน CVErr เพื่อส่งกลับ ตัวแปรที่มี ชนิด VarType เป็น vbError (10) ฟังก์ชัน CalculateDouble ที่ผู้ใช้กําหนดเองจะส่งกลับข้อผิดพลาด ถ้าอาร์กิวเมนต์ที่ส่งผ่านไปยังฟังก์ชันนั้นไม่ใช่ตัวเลข คุณสามารถใช้ CVErr เพื่อส่งคืนข้อผิดพลาดที่ผู้ใช้กําหนดเองจากกระบวนงานที่ผู้ใช้กําหนดเอง หรือเพื่อเลื่อนการจัดการข้อผิดพลาดขณะทํางาน ใช้ฟังก์ชัน IsError เพื่อทดสอบว่าค่าแสดงถึงข้อผิดพลาดหรือไม่

' Call CalculateDouble with an error-producing argument.
Sub Test()
    Debug.Print CalculateDouble("345.45robert")
End Sub
' Define CalculateDouble Function procedure.
Function CalculateDouble(Number)
    If IsNumeric(Number) Then
        CalculateDouble = Number * 2    ' Return result.
    Else
        CalculateDouble = CVErr(2001)    ' Return a user-defined error 
    End If    ' number.
End Function