Private Sub ZKFPEngX1_OnFeatureInfo(ByVal AQuality As Long)
Dim sTemp As String
sTemp = ""
If ZKFPEngX1.IsRegister Then
sTemp = "Register status: still press finger " & ZKFPEngX1.EnrollIndex & " times"
End If
sTemp = sTemp & " Fingerprint quality"
If AQuality <> 0 Then
sTemp = sTemp & " no good " & AQuality
Else
sTemp = sTemp & " good"
End If
StatusBar.Caption = sTemp
End Sub
อันนี้เป็น code ของ VB6 โดยเหตุการณ์นี้จะเกิดขึ้นเมื่อผมต้องการบันทึกลายนิ้วมือ พอเอานิ้วมือไปวาง อีเว้น ZKFPEngX1_OnFeatureInfo ก็จะรันขึ้นมา เป็นการเช็กคุณภาพของลายนิ้วมือครับ และมีการนำตัวแปลที่ได้จากระบบคือ ByVal AQuality As Long ไปใช้งาน เป็นเลขคุณภาพของรายนิ้วมือ ใน vs 2010 ผมก็เขียนตามนี้
Private Sub ZKFPEngX1_OnFeatureInfo(ByVal AQuality As Long) Handles ZKFPEngX1.OnFeatureInfo
xxxxx
End Sub