Avviare Microsoft Visual Basic Express , fare clic su " Nuovo progetto ... " nel riquadro di sinistra dello schermo e selezionare "Applicazione Windows Form ". Fare clic su "OK".
2 Fare doppio clic su "Button " sulla " Casella degli strumenti " per aggiungere un nuovo pulsante . Fare doppio clic su " Label " per aggiungere un'etichetta . Aggiungere una seconda etichetta utilizzando lo stesso processo . Fare doppio clic su " TextBox " per aggiungere una casella di testo .
3
doppio clic su " Button1 " per aprire il modulo " Form1.vb " . Copiare e incollare il seguente nella prima riga del modulo :
Imports System.Windows.Forms
4
Copia e incolla il seguente per dichiarare la DLL Tapi32 sotto " Public Class Form1 " ma soprattutto la " " procedura :
Declare Auto Function tapiRequestMakeCall Lib " Button1_Click tapi32.dll "_
( ByVal DestAddress As String , ByVal AppName String, _
CalledParty ByVal come stringa , commento ByVal As String ) As Integer
Const TAPIERR_NOREQUESTRECIPIENT As Short = -2
Const TAPIERR_REQUESTQUEUEFULL As Short = -3
Const TAPIERR_INVALDESTADDRESS As Short = -4
la procedura " Button1_Click " è stato creato quando si fa doppio clic " Button1 " sul modulo .
5
Copia e incolla il seguente all'interno della procedura " Button1_Click " per creare le variabili :
Dim phoneNum As String Dim
Dim tmpStr As String La procedura " Button1_Click " è stata creata quando si fa doppio cliccato " Button1 " sul modulo Copia e incolla il seguente per ottenere il numero di telefono inserito nella casella di testo e chiamarlo : . phoneNum = Trim ( TextBox1.Text ) per Prova Catch ex As Exception Label2.Text = " Errore " End Try Copia e incolla il seguente per verificare la presenza di errori : tmpStr = "Errore " Select Case caso TAPIERR_NOREQUESTRECIPIENT tmpStr = tmpStr & " No finestre applicazione chiamata di telefonia è in esecuzione e nessuno potrebbe essere avviato. " caso TAPIERR_REQUESTQUEUEFULL tmpStr = tmpStr & " La coda di richieste pendenti di composizione di telefonia di Windows è piena . " caso TAPIERR_INVALDESTADDRESS tmpStr = tmpStr & " Il numero di telefono non è valido. " Case Else tmpStr = tmpStr &" errore Unkown ". End Select Else tmpStr = "Selezione " End If Label2.Text = tmpStr End Sub End Class Press "F5" per eseguire il programma , quindi immettere un numero di telefono nella casella di testo e fare clic su " Button1 ".
6
7
8
Informazioni correlate
Programmazione © www.354353.com