本实例介绍了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
|