Va a parecer absurdo pero no se donde se deben colocar las declaraciones de API... me lo podeis explicar???
yo pongo esto pero me da error:
Public WithEvents MSN As Messenger
Private Sub Form_Load()
Set MSN = New Messenger
MsgBox MSN.MyStatus
End Sub
Hola, podes crear un modulo y meter todas las apis ahi, de esa manera tienen un alcance global.
Para agregar un modulo hace click en el menu Proyecto --> Agregar Modulo.
lo agrego al modulo pero me dice:
"Compile Error: Only valid in object module"
Que significa esto???
Hola:
Citar
"Compile Error: Only valid in object module"
Esto quiere decir q la declaracion q hiciste no va en ese tipo de modulo.
Antes q nada asegurate de tildar la referencia a la API del messenger en Proyecto --> Referencias --> "Messenger API Type Library", despues declaras en la sección de General del form asi
Public WithEvents MSN As Messenger
Private Sub Form_Load()
Set MSN = New Messenger --> se crea una instancia del tipo messenger
End Sub
Private Sub Command1_Click()
If MSN.MyStatus = MISTATUS_INVISIBLE Then
MsgBox "estas como no conectado"
End If
End Sub
Saludos.