enrollmentform.vb

来自「DigitalPersona.rar」· VB 代码 · 共 45 行

Public Class EnrollmentForm

    Public Data As AppData

	Sub New(ByVal data As AppData)
		InitializeComponent()
		Me.Data = data
		ExchangeData(False)
		AddHandler Data.OnChange, AddressOf OnDataChange
	End Sub

	Private Sub OnDataChange()
		ExchangeData(False)
	End Sub

	Public Sub ExchangeData(ByVal read As Boolean)
		If (read) Then
			Data.EnrolledFingersMask = EnrollmentControl.EnrolledFingerMask
			Data.MaxEnrollFingerCount = EnrollmentControl.MaxEnrollFingerCount
			Data.Update()
		Else
			EnrollmentControl.EnrolledFingerMask = Data.EnrolledFingersMask
			EnrollmentControl.MaxEnrollFingerCount = Data.MaxEnrollFingerCount
		End If
	End Sub

	Sub OnEnroll(ByVal Control As Object, ByVal Finger As Integer, ByVal Template As DPFP.Template, ByRef EventHandlerStatus As DPFP.Gui.EventHandlerStatus) Handles EnrollmentControl.OnEnroll
		If (Data.IsEventHandlerSucceeds) Then
			Data.Templates(Finger - 1) = Template
			ExchangeData(True)
		Else
			EventHandlerStatus = DPFP.Gui.EventHandlerStatus.Failure
		End If
	End Sub

	Sub OnDelete(ByVal Control As Object, ByVal Finger As Integer, ByRef EventHandlerStatus As DPFP.Gui.EventHandlerStatus) Handles EnrollmentControl.OnDelete
		If (Data.IsEventHandlerSucceeds) Then
			Data.Templates(Finger - 1) = Nothing
			ExchangeData(True)
		Else
			EventHandlerStatus = DPFP.Gui.EventHandlerStatus.Failure
		End If
	End Sub

End Class