form1.vb

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

Public Class Form1

    Private cm As ConnectionManager = New ConnectionManager

    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

End Class