1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
axXPhonePc1 = New AxPhonePcX.AxXPhonePc
phone1 = New PhonePcX.XPhonePc
AddHandler axXPhonePc1.EvtCallerId, AddressOf axXPhonePc1_EvtCallerId
End Sub
'Lancement de l'appication CTI
Private Sub btnActiver_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnActiver.Click
phone1.ActiverPhonePc = True
End Sub
'récupération d'un appel emanant de l'application CTI
Private Sub axXPhonePc1_EvtCallerId(ByVal sender As Object, ByVal e As AxPhonePcX.IPhonePcEvents_EvtCallerIdEvent)
MsgBox("Hello")
lblcallerId.Text = e.stData
End Sub |
Partager