|
本实例介绍了Microsoft Visual Basic 6.0 使用QuickWap.dll(Version 1.0免费版)组件开发WML辅助工具的一个入门程序。
运行后的窗体如图1所示。
图1
我们一共用了3个按钮和两个文本框。下面我们详细介绍程序的开发过程以及注意的问题。
编程步骤：
步骤1：建立一个工程。
启动Microsoft Visual Basic 6.0 中文版，弹出如图2所示的窗口。
图2
选择标准EXE，然后点击打开按钮，这样就创建了一个新的工程。
步骤2：添加QuickWAP组件的引用。
点击“工程”菜单下“引用”命令，如图3所示，将弹出图4所示的对话框。
图3
图4
我们点击“浏览”按纽，找到QuickWAP组件所在的位置，如果安装了QuickWAP V1.0免费版，它一般位于系统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
中国被爱可以在线：http://wap.bicyle.org/WebContent/download.asp
| 
