form1.vb

清华大学出版社出版的 移动应用开发宝典 张大威（2008）的附书源代码

Imports System.ComponentModel

Public Class Form1

    Private rc As RasConnection
    Private t As Telephony = New Telephony


    Private Sub btnCall_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnCall.Click
        Phone.MakeCall(Me.txtPhoneNumber.Text, True)
    End Sub

    Private Sub btnHangup_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnHangup.Click
        If (Not Me.rc Is Nothing) Then
            Me.rc.HangUp()
        End If
    End Sub

    Private Sub btnRas_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnRas.Click
        Try
            Me.rc = Ras.Dial(Me.txtRas.Text, Nothing, Nothing, Nothing)
        Catch we As Win32Exception
            MessageBox.Show((we.Message & " : " & we.NativeErrorCode.ToString("X")))
        End Try
    End Sub

    Private Sub btnRasConnections_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnRasConnections.Click

        Dim connectionName As String
        For Each connectionName In Ras.Entries
            MessageBox.Show(connectionName)
        Next

    End Sub

    Private Sub chkFlight_CheckStateChanged(ByVal sender As Object, ByVal e As EventArgs) Handles chkFlight.CheckStateChanged
        Me.t.PhoneEnabled = Not Me.chkFlight.Checked
    End Sub

End Class