www.pudn.com > SMSDemoALL.zip > FormCall.frm

VERSION 5.00 
Begin VB.Form FormCall  
   BorderStyle     =   3  'Fixed Dialog 
   Caption         =   "FormCall" 
   ClientHeight    =   1710 
   ClientLeft      =   5910 
   ClientTop       =   4965 
   ClientWidth     =   3645 
   LinkTopic       =   "FormCall" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   1710 
   ScaleWidth      =   3645 
   ShowInTaskbar   =   0   'False 
   Begin VB.CommandButton Cancel  
      Cancel          =   -1  'True 
      Caption         =   "Cancel" 
      Default         =   -1  'True 
      Height          =   315 
      Left            =   2520 
      TabIndex        =   8 
      Top             =   1260 
      Width           =   915 
   End 
   Begin VB.CommandButton Hangup  
      Caption         =   "Hangup" 
      Height          =   315 
      Left            =   1380 
      TabIndex        =   7 
      Top             =   1260 
      Width           =   915 
   End 
   Begin VB.CommandButton Answer  
      Caption         =   "Answer" 
      Height          =   315 
      Left            =   240 
      TabIndex        =   6 
      Top             =   1260 
      Width           =   915 
   End 
   Begin VB.CommandButton Send  
      Caption         =   "Send" 
      Height          =   315 
      Left            =   2520 
      TabIndex        =   5 
      Top             =   720 
      Width           =   915 
   End 
   Begin VB.CommandButton Dial  
      Caption         =   "Dail" 
      Height          =   315 
      Left            =   2520 
      TabIndex        =   4 
      Top             =   240 
      Width           =   915 
   End 
   Begin VB.TextBox DTMF  
      Height          =   315 
      Left            =   900 
      TabIndex        =   3 
      Top             =   720 
      Width           =   1395 
   End 
   Begin VB.TextBox Phone  
      Height          =   315 
      Left            =   900 
      TabIndex        =   2 
      Top             =   240 
      Width           =   1395 
   End 
   Begin VB.Label Label2  
      Caption         =   "DTMF" 
      Height          =   255 
      Left            =   300 
      TabIndex        =   1 
      Top             =   780 
      Width           =   495 
   End 
   Begin VB.Label Label1  
      Caption         =   "Phone" 
      Height          =   255 
      Left            =   240 
      TabIndex        =   0 
      Top             =   300 
      Width           =   555 
   End 
End 
Attribute VB_Name = "FormCall" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub Answer_Click() 
    If FormMain.MobileSMS.CallAnswer > 0 Then 
        DTMF.Enabled = True 
        Send.Enabled = True 
        Hangup.Enabled = True 
    Else 
        MsgBox ("Failed!") 
    End If 
End Sub 
 
Private Sub Cancel_Click() 
    Unload Me 
End Sub 
 
Private Sub Dial_Click() 
    If FormMain.MobileSMS.CallDial(Phone, 20) > 0 Then 
        Dial.Enabled = False 
        DTMF.Enabled = True 
        Send.Enabled = True 
        Hangup.Enabled = True 
    Else 
        MsgBox ("Failed!") 
    End If 
End Sub 
 
Private Sub Form_Activate() 
    If Phone = "" Then              'Dial 
        Dial.Enabled = True 
        DTMF.Enabled = False 
        Send.Enabled = False 
        Answer.Enabled = False 
        Hangup.Enabled = False 
        Send.Enabled = False 
    Else                            'Answer incoming call 
        Dial.Enabled = False 
        DTMF.Enabled = False 
        Send.Enabled = False 
        Answer.Enabled = True 
        Hangup.Enabled = True 
        Send.Enabled = False 
    End If 
End Sub 
 
Private Sub Form_Deactivate() 
    Phone = "" 
End Sub 
 
Private Sub Hangup_Click() 
    If FormMain.MobileSMS.CallHangup > 0 Then 
        DTMF.Enabled = False 
        Send.Enabled = False 
        Dial.Enabled = True 
        Answer.Enabled = False 
        Hangup.Enabled = False 
    Else 
        MsgBox ("Failed!") 
    End If 
End Sub 
 
Private Sub Send_Click() 
    If FormMain.MobileSMS.CallSendDTMF(DTMF) > 0 Then 
        DTMF = "" 
    Else 
        MsgBox ("Failed!") 
    End If 
End Sub