Buenas noches foro,
resulta que tengo un programita en visual basic 2008 y base de datos sql server 2005
tengo una cartera de clientes con todos sus datos
los datos mas importantes son: nombre, dirección y los teléfonos
en este caso tengo 3
TelCasa
TelCelular
TelTrabajo
la idea de todo esto es ponerles un boton con el icono de skype y realizar la llamada, ya me baje la api de skype
pero el problema que tengo es que segun el boton que presione marcara los datos de una caja de texto, para los botones tengo el siguiente procedimiento.
Private Sub frmContacto_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AddHandler Me.cmdSkypeLl.Click, AddressOf LlamarSkype
AddHandler Me.cmdSkypeL2.Click, AddressOf LlamarSkype
AddHandler Me.cmdSkypeL3.Click, AddressOf LlamarSkype
End Sub
segun el boton que presione me llamara el procedimiento "LlamarSkype"
el problema es implementar LlamarSkype
De la forma en que lo tengo, al presionar el primer boton "Llamar a casa del cliente" es la siguiente y funciona, pero el chiste seria nose quiza con un select case para que me seleccionara segun el boton la caja de texto a marcar
Private Sub LlamarSkype(ByVal sender As Object, ByVal e As System.EventArgs)
Dim oSkype As New SKYPE4COMLib.Skype
Dim oCall As New SKYPE4COMLib.Call
Dim oCon As New SKYPE4COMLib.Conference
If Not oSkype.Client.IsRunning Then
oSkype.Client.Start()
End If
oSkype.Client.OpenDialpadTab()
oSkype.Client.Focus()
oCall = oSkype.PlaceCall(txtTel1.Text)
oSkype.Mute = True
End Sub
¿alguna idea?
