form1.vb

来自「清华大学出版社出版的 移动应用开发宝典 张大威（2008）的附书源代码」· VB 代码 · 共 56 行

Public Class Form1

    Private cm As ConnectionManager

    Public Sub New()

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        Me.cm = New ConnectionManager
        AddHandler Me.cm.ConnectionStatusChanged, New ConnectionStatusChangedEventHandler(AddressOf Me.cm_ConnectionStatusChanged)

    End Sub

    Private Sub btnConnect_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnConnect.Click
        Me.cm.EstablishConnection(DirectCast(Me.lbDests.SelectedItem, Guid))
    End Sub

    Private Sub btnMap_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnMap.Click
        Dim u As New Uri(Me.txtUrl.Text)
        Me.lbDests.DataSource = ConnectionManager.MapUrl(u)
    End Sub

    Private Sub btnRelease_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnRelease.Click
        Me.cm.ReleaseConnection()
    End Sub


    Private Sub btnStatus_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnStatus.Click
        Me.txtStatus.Text = Me.cm.ConnectionStatus.ToString
    End Sub


    Private Sub cm_ConnectionStatusChanged(ByVal e As ConnectionStatusChangedEventArgs)
        Me.txtStatus.Text = e.ConnectionStatus.ToString
    End Sub

















End Class