form1.vb

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

Imports System.Xml
Imports System.Reflection
Imports Microsoft.WindowsMobile.Configuration

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        Dim d As New XmlDocument
        d.LoadXml("<wap-provisioningdoc><characteristic type=""CM_Mappings""><characteristic type=""16777217""><parm name=""Pattern"" value=""*://myserver.com/*"" /><parm name=""Network"" value=""{A1182988-0D73-439E-87AD-2A5B369F808B}"" /></characteristic></characteristic></wap-provisioningdoc>")
        MessageBox.Show(ConfigurationManager.ProcessConfiguration(d, True).OuterXml)
    End Sub



    Private Sub btnGPRS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGPRS.Click
        Dim d As New XmlDocument
        d.Load(Assembly.GetExecutingAssembly.GetManifestResourceStream("Chapter17.Favorite.xml"))
        MessageBox.Show(ConfigurationManager.ProcessConfiguration(d, True).OuterXml)
    End Sub
End Class