home *** CD-ROM | disk | FTP | other *** search
/ Freelog 21 / Freelog021.iso / Prog / TAPISOURCES.ZIP / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  2001-03-25  |  3.8 KB  |  126 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Appel T
  4. phonique                       RP"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   5655
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3195
  11.    ScaleWidth      =   5655
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.CommandButton Command1 
  14.       Caption         =   "Appel"
  15.       Height          =   255
  16.       Left            =   3240
  17.       TabIndex        =   4
  18.       Top             =   480
  19.       Width           =   1695
  20.    End
  21.    Begin VB.ListBox lstStatus 
  22.       Height          =   1230
  23.       Left            =   240
  24.       TabIndex        =   3
  25.       Top             =   1680
  26.       Width           =   4695
  27.    End
  28.    Begin VB.TextBox Text1 
  29.       Height          =   285
  30.       Left            =   240
  31.       TabIndex        =   1
  32.       Top             =   480
  33.       Width           =   2895
  34.    End
  35.    Begin VB.Label Label2 
  36.       Caption         =   "Statut"
  37.       Height          =   375
  38.       Left            =   240
  39.       TabIndex        =   2
  40.       Top             =   1200
  41.       Width           =   1095
  42.    End
  43.    Begin VB.Label Label1 
  44.       Caption         =   "Num
  45. ro de T
  46. phone 
  47.  composer"
  48.       Height          =   375
  49.       Left            =   240
  50.       TabIndex        =   0
  51.       Top             =   120
  52.       Width           =   2655
  53.    End
  54. Attribute VB_Name = "Form1"
  55. Attribute VB_GlobalNameSpace = False
  56. Attribute VB_Creatable = False
  57. Attribute VB_PredeclaredId = True
  58. Attribute VB_Exposed = False
  59. 'Declare Function tapiRequestMakeCall Lib "tapi32" _
  60. Private Sub TAPIStatus(lonStatCode As Long)
  61. Select Case lonStatCode
  62.     Case TAPIERR_CONNECTED
  63.         lstStatus.AddItem "Ok"
  64.     Case TAPIERR_DROPPED
  65.         lstStatus.AddItem "Abandon"
  66.     Case TAPIERR_NOREQUESTRECIPIENT
  67.         lstStatus.AddItem "Erreur : pas d'application destinataire"
  68.     Case TAPIERR_REQUESTQUEUEFULL
  69.         lstStatus.AddItem "Erreur : file d'attente de requ
  70. tes pleine"
  71.     Case TAPIERR_INVALDESTADDRESS
  72.         lstStatus.AddItem "Erreur : adresse de destination incorrecte"
  73.     Case TAPIERR_INVALWINDOWHANDLE
  74.         lstStatus.AddItem "Erreur : handle de fen
  75. tre incorrect"
  76.     Case TAPIERR_INVALDEVICECLASS
  77.         lstStatus.AddItem "Erreur : classe incorrecte pour le p
  78. rique"
  79.     Case TAPIERR_INVALDEVICEID
  80.         lstStatus.AddItem "Erreur : identificateur de classe de p
  81. rique"
  82.     Case TAPIERR_DEVICECLASSUNAVAIL
  83.         lstStatus.AddItem "Erreur : classe de p
  84. rique indisponible"
  85.     Case TAPIERR_DEVICEIDUNAVAIL
  86.         lstStatus.AddItem "Erreur : identificateur de p
  87. rique non disponible"
  88.     Case TAPIERR_DESTBUSY
  89.         lstStatus.AddItem "Destination occup
  90.     Case TAPIERR_DESTUNAVAIL
  91.         lstStatus.AddItem "Destination indisponible"
  92.     Case TAPIERR_UNKNOWNWINHANDLE
  93.         lstStatus.AddItem "Erreur : handle de fen
  94. tre inconnu"
  95.     Case TAPIERR_UNKNOWNREQUESTID
  96.         lstStatus.AddItem "Erreur : identificateur de requ
  97. te inconnu"
  98.     Case TAPIERR_REQUESTFAILED
  99.         lstStatus.AddItem "Erreur : erreur dans la requ
  100.     Case TAPIERR_REQUESTCANCELLED
  101.         lstStatus.AddItem "Erreur : requ
  102. te annul
  103.     Case TAPIERR_INVALPOINTER
  104.         lstStatus.AddItem "Erreur : pointeur incorrect"
  105. End Select
  106. End Sub
  107. Private Sub Command1_Click()
  108. Dim lonTAPIStatus As Long
  109. rifie si un num
  110. ro de t
  111. phone a 
  112.  saisi.
  113. If RTrim(Text1.Text) = "" Then
  114.     lstStatus.AddItem "Erreur : aucun num
  115. ro de t
  116. phone saisi."
  117.     Exit Sub
  118.     strPhoneNum = RTrim(Text1.Text)
  119. End If
  120. ' Initialise la session TAPI avec la fonction tapiRequestMakeCall.
  121. lonTAPIStatus = tapiRequestMakeCall(strPhoneNum, _
  122.     "Exemple TAPI", strPhoneNum, "")
  123. ' Affiche le statut.
  124. Call TAPIStatus(lonTAPIStatus)
  125. End Sub
  126.