本实例介绍了Microsoft Visual Basic 6.0 使用QuickWAP.dll组件开发WML辅助工具的一个入门程序。
运行后的窗体如图1所示。

图1

　　我们一共用了3个按钮和两个文本框。下面我们详细介绍程序的开发过程以及注意的问题。

编程步骤：
步骤1：建立一个工程。
　　启动Microsoft Visual Basic 6.0 中文版，弹出如图2所示的窗口。

图2

　　选择标准EXE，然后点击打开按钮，这样就创建了一个新的工程。

步骤2：添加QuickWAP组件的引用。
　　点击“工程”菜单下“引用”命令，如图3所示，将弹出图4所示的对话框。

图3

图4

　　我们点击“浏览”按钮，找到QuickWAP组件所在的位置，如果安装了QuickWAP V1.0免费版(或V1.5)，它一般位于系统system32文件夹下，在此我们选择某个文件夹下的QuickWAP组件，如图5所示，选择后点击“打开”，这时QuickWAP组件被选择，如图6所示。然后按“确定”关闭“引用”对话框。

　　
图5

　　
　　图6

　　这时我们可以通过VB6的对象浏览器来查看QuickWAP组件的方法和属性。如图7所示。

　
　　图7

步骤3：添加控件并设置属性。
　　在窗体上依次放置三个按钮，和两个文本框，调整各个控件的大小以及位置。然后在属性框中分别修改三个按钮的Caption分别为：UTF-8转换、Gb2312转换、文本交换，两个文本框的Multiline属性为True，ScrollBars属性设为2-Vertical。效果图如图8所示。
　　

　　图8

步骤4：编写代码。
　　首先我们要实例化引用对象，双击窗体，在代码编辑器中编写如下代码：
Dim QWap As New QuickWap.WapNetSdk '实例化对象
　　其次，给按钮添加后台代码，双击按钮分别在三个按钮的执行过程写入不同的操作代码。
　　完整的程序的代码如例程1 所示。

例程1
-----------------------------------------------------------
Option Explicit
Dim QWap As New QuickWap.WapNetSdk
Private Sub Command1_Click()
        Text2.Text = QWap.Ascii(Text1.Text) '将文本框1的汉字转换为UTF-8编码。
End Sub

Private Sub Command2_Click()
        Text2.Text = QWap.Utf8_Gb2312(Text1.Text) '将文本框1的UTF-8编码转换为汉字。
End Sub

Private Sub Command3_Click()
        Dim Str As String
        Str = Text1.Text '将源文本框的文本赋给字符串变量Str。
        Text1.Text = Text2.Text
        Text2.Text = Str
End Sub

Private Sub Form_Load()
        Text1.Text = ""
        Text2.Text = ""
        Me.Caption = "QuickWAP编程举例" '设置标题。
End Sub

步骤5： 保存工程
      点击工具栏中的“保存”按钮，弹出如图9所示对话框，修改工程文件名为“QuickWAP演示.vbp”保存即可。

图9

步骤6： 生成可执行文件。
　　选择文件菜单下的“生成工程1.exe”，根据提示即可。如图10所示。

图10

　　至此，我们已经完成了一个小小的WML辅助工具，按F5或点击应用程序即可运行。

　　总结：这里我们通过一个实例介绍了VB6使用QuickWAP组件开发WML工具的一个例子，我们不必费力再去编写转换UTF-8的函数，是不是很省事。但是如果发布的话，他人的计算机必须注册了QuickWAP组件才可以顺利执行的，在此我们不做过多的介绍，您可以发挥自己的聪明才智做出比这个更好的工具来。当然你也可以利用QuickWAP开发很多手机浏览的WAP网页。

附 QuickWAP V1.0免费版下载地址：
　　 天空软件站：http://www.skycn.com/soft/23484.html
　　 WAP之家： http://www.wapzj.com/down/42/77/2005/20050724612.html

 　　 QuickWAP V1.5共享版下载地址：
　　 天空软件站：http://shareware.skycn.com/soft/5214.htm
　　 WAP之家： http://www.wapzj.com/down/42/77/2005/200511241475.html

 　　QuickWAP推荐您下载V1.5，此版本相对于V1.0功能更加强大、稳定。