如何用VB 6.0写类文件,请DX指点,谢谢!

sddz

如何用VB 6.0写类文件,请DX指点,谢谢!

风影幻想

看实例学习VB 6.0之一

一、先来熟悉一下VB 6.0 的编程环境

　1、关于VB语言和怎样学习VB

   VB6.0全称为VisualBasic 6.0，是微软公司推出的可视化编程工具MSDN之一，是目前世界上使用最广泛的程序开发工具。如果你是一个对编程一无所知，而又迫切希望掌握一种快捷实用的编程语言的初学者，那选择VB 6.0没错的。即使考虑到VB程序本身编译和运行效率较低的不足(嘻嘻速度现在不是问题吧)，单是它的快捷的开发速度，简单易学的语法，体贴便利的开发环境，它仍不失一款优秀的编程工具，是初学者的首选。




　　也许你会问，我以前没学过任何一种语言，我能快速上手吗？别担心，没问题VB的语法的和QBASIB语言是基本相同的，也就是说它的语法是最容易被初学者所接受的。另外VB提供的是可视化的开发环境，我们可以象搭积木一样构建出程序的界面，而且VB提供了丰富的控件组，省去了我们自己写代码实现这些效果的麻烦，这样我们就能把更多的精力放在程序功能的实现上，所以VB学起来简单，用起来方便。

　　接着看看VB语言的前景，在目前各种编程语言共存的时代，VB会不会落伍呢？当然不会了，在我写这篇文章的同时，微软已经透露了VB7.0将完全面向对象的消息，可以肯定下一代VB的功能一定会强大很多，我们这些所谓的 VB 程序员总算可以放心了，VB不会落后于时代，毕竟它是使用人数最多的优秀的开发工具。

　　好了，侃了这么多关于VB的台前幕后，总之是为想学编程的你树立信心，编程一点都不难，只要你决定了开始，就让我们一起踏上愉快的编程之旅吧。

　　接下来谈谈怎样学习VB，先说说“看实例学VB6.0”系列教程，它是面向编程初学者的VB入门教程，这个教程的特点是抛开晦涩难懂的概念和语法，不做内容上的堆积和罗列，而是采用了每节一个生动有趣的小例子的形式，每个小例子中会涉及到一个或几个VB编程的知识点(可能是控件，也许会是某个函数或编程小技巧)，使你快速入门。希望你学完此教程后能达到下述的效果：

　　从对编程一窍不通或从未接触过编程的状态，通过学习能够对VB6.0的编程环境比较熟悉，掌握VB开发界面的使用方法；对VB语言的基本语法大致了解，知道常见的语句的意义；学习VB常用控件的使用方法，并能将它们灵活运用到应用程序中；能开发简单的VB程序。到那时你已经能够继续深入的学习VB编程，可以继续参与到程序设计栏目其他版块的学习中去，嘻嘻，目标就是这样啦。

　　然后谈谈学习编程的方法，万事开头难，刚刚开始，遇到些困难没关系，慢慢来。编程是一个不断学习，不断积累的过程，编程的乐趣也正是存在于学习的过程中。我们每学一点，就赶快把它用到实际的程序中去，自己多学多用多实践，水平才能不断提高，这就是“学以致用”。

　　另外，编程涉及到很多的知识，象操作系统的、软件工程的、硬件系统的以及编程思想等各个方面，这就需要我们多看看这方面的资料，扩充自己的知识面。

　　还有如果学习过程中遇到了什么问题，或者有什么好的心得，你可以到洪恩的“网上交流”的“编程技术”版去提问求助或是发表文章，那里有许多编程高手可以为你答疑，还有许多同样的初学者一起交流。

　　“求知无限”是网上学习的特点，如果你觉得自己能够更深的学习ＶＢ或是其他编程的知识时，“程序设计”栏目的其他版块将是理想的去处，希望我们能在这样的学习环境中不断进步。

　　教程分为三个大的部分，它们是由浅入深的一个系列，分别是：

　　一、熟悉一下VB6.0的编程环境

　　二、学习VB常用控件的使用方法

　　三、试着开发简单的VB应用程序

　　好了，下面就一起来开始我们的学习吧。

2、认识一下VB 6.0的编程环境
   VB6.0采用可视化的编程环境，它好学易用，运行VB6.0后，会出现如下图所示的窗口，呵呵，看起来蛮复杂的，好多的按钮、菜单、小窗口，别担心，待会儿我们会一起学习这些东东都是干什么用的。
　　先来解决一个小问题，怎么新建一个VB的工程呢？方法是这样的，在程序启动时出现的“新建工程”对话框中选择“标准EXE”并点击确定，就能直接新建一个工程，如果你跳过了这个对话框则也可从“文件”菜单中选择“新建工程”重新调出此对话框。
　　下面一起来看看VB的编程环境，虽然看起来复杂，但可以把它分为几个部分，每个部分都有自己特定的功能，这样我们就清楚多了。其实VB这是通过这样一个界面把相近或同类的功能组合在一起的，它使我们在设计程序时能方便的控制程序的方方面面。

　
　　窗体的最上层是“VB 6.0的菜单”和“便捷工具按钮”，菜单中包含了所有的VB提供的功能的选项，而其中一些常用的功能或操作选项则被提取出来放在了“便捷工具按钮”中，通过点击这些快捷按钮可以加快程序开发的速度，下图标出了常见的工具按钮的作用，记着使用它们哦。

　　接着看看“VB的组件面板”和“窗体设计区域”，VB提供了方便的窗体设计区域，它位于整个编程窗口的中间。我们可以在这个区域中搭建出美观实用的程序界面，试着从“VB的组件面板”中找到“按钮CommandButton”,点击选中后，再到“窗体设计区域”的窗体上点一下，这时，窗体上会出现一个按钮，这样我们就把按钮添加到我们程序的界面中了。嘻嘻，忘了告诉你哪里是“VB的组件面板”了，就是最左边的那一条包含许多看起来眼熟的小东西的区域，它是VB提供给我们的标准的编程组件(控件)，它把程序设计中常常用到的诸如按钮、图片框、列表框等等东西作好了放在那里，我们如果要使用只须添加到窗体中即可。
　　屏幕的右边有三个从上到下排列的小窗口，它们分别是：

　　“VB工程管理器”：用来管理开发一个VB程序所需要的各种类型的窗体和模块，如左图是一个工程所包含的东西，窗体是一个程序表现在外面的界面、模块是程序内部使用的代码。
　　当我们点击“添加窗体”便捷工具按钮后，左图的“VB工程管理器”中就会显示出新添加的窗体，这也就是“VB工程管理器”的功能，它使我们从总体上把握程序开发的各个部分。


　　“组件属性窗口”：用来显示组件的属性，并允许我们修改，设定这些属性的值，我们在窗体设计区域的窗体上选中一个组件，以按钮为例，则在“属性窗口”中会列出它的属性，我们可以看到常用的“Name”、“Capition”、“Font”等等属性，试着把“Capition”属性改为“这是一个按钮”，然后看看“窗体设计区域”的按钮上显示的文字是不是改变了。
　　“窗体布局窗口”：调整程序运行时，程序窗体在屏幕中的初始位置，把鼠标移到左图屏幕中的窗体上，这时鼠标会变成移动形状，拖动窗体，就设置好了运行时此窗体的位置。

　　好了说了这么多，还差一个区域没讲，那就是“代码编辑区域”，当我们在“窗体设计区域”双击鼠标，就能弹出这个区域，可以看到一行行的VB程序显示在其中，我们可以修改，写入程序代码，来让程序实现一定的功能，它是整个程序设计的关键，如果你对VB语言的语法还不是十分了解，可以继续下一节专门对“VB语法”的讲解，别着急，慢慢来，很快就能入门的。

风影幻想

3、VB 6.0的简单语法学习
   VB语言的语法和QBASIC基本一致，可以说如果你能读懂QBASIC程序，那你读VB的程序是没有问题的，这一节中我们只是简单的讲一讲VB的语法，因为在今后的各个实例中我们会不断接触到新的语法知识，这也是一个积累的过程。
　　如果你还记得上节中的内容，我们提到过如果在“窗体设计区域”的某个组件(控件)上双击鼠标，会出现“代码编辑窗口”，也就是如下图的窗口，我们可以在其中输入或是修改程序的代码。在我们双击控件到写入代码的这个过程中，我们涉及到了一个很重要的概念，这是VB与QBASIC的主要差别之一，大家知道在QBASIC包括Tubro C，TubroPascal等语言中程序从一开始就需要我们一点点的写代码来实现所有的功能，比如程序运行的界面，输入输出，键盘控制等，它们在程序中体现为一个个的过程或者是函数及子程序，它们都是完全面向过程的编程语言；但是现在的VB、VC、DELPHI等编程语言，都提供了可视化的编程环境，备有一整套常见的组件(控件)供我们使用，这些控件可以看作是对象(VB严格的说不是完全面向对象的编程语言)，我们写程序时会直接与这些对象打交道，而不象原来。所以在VB中大部分的代码是与这些相关的，例如下图所示的一段代码，它是我们在一个按钮(Command)上双击鼠标而由VB自动产生的一个子过程，Private Sub Command1_Click()是子过程的开始，End Sub表示子过程的结束。然后我们可以在子过程中添加程序代码，也就是由我们自己来写当按钮被点击时，程序所做出的响应。

　
　　下面我们便来分析一下这段代码。
　　VB中声明一个变量使用“Dim 变量名 As 变量类型”的方法，一般在程序中使用的到的变量都应该有变量声明，如上例中的a、b、i分别被定义为整型和字符串型变量，VB中的变量类型有以下几种：
　　　数据类型　　说明
　　　Byte　　　　二进制数
　　　Boolean　　 真假值
　　　Integer 　　整数
　　　Long　　　　长整型
　　　Single 　　实数
　　　Double　　　双精度型
　　　Currency 　货币
　　　Date 　　　日期和时间
　　　Object 　　对象
　　　String 　　字符串
　　　Variant　　可变类型
　　控制结构和循环结构是程序设计中常见的两种结构。
　　计算机在运行程序的时候，执行语句的顺序是从上向下的。 有些简单程序可以只用单向流程来编写，但稍微复杂的程序就要靠控制语句来控制程序执行的流程。控制结构主要有两种，分支结构和循环结构。
　　分支结构：分支结构事实上是一种选择，在不同的条件下选择执行不同的程序段。实现分支结构的语句有很多，最常用的是if……then……else……。例如：
　　　……
　　　if 条件 then
　　　{程序段一}
　　　else
　　　{程序段二}
　　　end if
　　　……
　　如果条件满足了，电脑将执行程序段一中的语句，然后跳过程序段二，执行下面的语句。如果条件不满足，电脑将跳过程序段一种的语句，执行程序段二，然后继续执行下面的语句。
　　循环结构：循环结构就是让电脑反复的执行某一程序段落干次。 用Do……Loop可以循环重复执行一语句块，且重复次数不定。 在已知循环次数的条件下，用For……next可以反复执行统一语句块。
　　以上两种结构你可以参照图中所示的代码，仔细体会一下，今天就讲这么多了，下节我们就要进入实例式的控件学习。

风影幻想

二、学习VB 6.0 的一些常用控件

1、文本框TEXTBOX的使用
文本框控件（TextBox)是VB中最常用的控件。它是显示和输入文本的容器，相当于一个文字编辑器，提供了所有基本的文字处理功能，例如文本的编辑等。在下面这个小程序中，我们能看到文本框控件（TextBox)的最基本的属性。

　　为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码
Option Explicit
'--------------------------------------
'        TextBox的常用属性的例子
'--------------------------------------
'        洪恩在线 求知无限
'--------------------------------------
'------名称-------------作用------------
'     CmdClear      清除文本框内容按钮
'     TextAll      文本框
'     CmdOK        给窗体FormBack的TextAll文本框赋值
'     FormTextBox    主窗体
'--------------------------------------
'--------------------------------------
'————文本框名称————属性设置———
'
'     TextPassWord   PassWordChar为 *
'     TextResume    Multiline为Ture, ScrollBars为2 -Vertical
'     TextAll      Multiline为Ture, ScrollBars为2 -Vertical
'                Appearance为0 - Flat
'--------------------------------------


Private Sub CmdClear_Click()

   '清除所有文本框中的内容
   TextID.Text = ""
   TextPassWord.Text = ""
   TextName.Text = ""
   TextMail.Text = ""
   TextResume.Text = ""
   
End Sub

Private Sub CmdOK_Click()
   '把FormTextBox文本框的Text及标签的Caption赋给
   '窗体FormBack中TextAll文本框的Text属性
   FormBack.TextAll.Text = LblID.Caption & "  " & TextID.Text _
                   & vbNewLine & _
                   LblPassWord.Caption & "  " & TextPassWord.Text _
                   & vbNewLine & _
                   LblName.Caption & "  " & TextName.Text _
                   & vbNewLine & _
                   LblMail.Caption & "  " & TextMail.Text _
                   & vbNewLine & _
                   LblResume.Caption & "  " _
                   & vbNewLine & TextResume.Text
                     
                      '其中vbNewline是使TextAll.Text换行显示
   Load FormBack          '载入窗体Formback
   FormBack.Show          '显示窗体Formback
   FormTxtBox.Visible = False '设置窗体FormtextBox不可见
      
End Sub

源程序下载
http://www.hongen.com/pc/program/tutors/vb/zip/vb0101.zip

这个例子的两个窗体界面如下：

主窗体（FormTxtBox）

窗体（FormBack）
我们首先新建一个标准的EXE工程。添加两个窗体，并把TextBox、Button、Label控件放置在窗体上。各文本框的名称如下：

-----------------------------------------------------------------------------------------------------------------
文本框名称    会员编号文本框          密码文本框                  姓名文本框
名称属性        TextID             TextPassWord                TextName
文本框名称     电子邮件文本框        个人介绍文本框             会员信息文本框
名称属性          TextMail             TextResume                  TextAll
-----------------------------------------------------------------------------------------------------------------

　　在属性窗口中将TextPassWord的PassWordChar属性设为*；TextResume的Multiline属性设为Ture,ScrollBars属性设为2 -Vertical；TextAll文本框的Multiline属性设为为Ture, ScrollBars属性设为2 -Vertical，Appearance属性设为为0 - Flat。

　　下一步我们为FormTxtBox窗体中“确定”(CmdOK)和“清除”(CmdClear)按钮的Click事件中添加相应的程序。

　　其中：

　　TextID.Text = "" 是把会员编号文本框中的内容清空，其它语句与此类似。

　　FormBack.TextAll.Text = LblID.Caption & " " & TextID.Text _ & vbNewLine &

　　该语句设置FormBack窗体中TextAll文本框的文本。vbNewLine是换行显示标志。“ _”是续行标志，当语句一行写不下时使用此标志，但要注意：前面要加空格。

　　代码写好之后，我们就可以保存工程，然后按“Ctrl+F5”键，测试检验一下我们的程序了。

sddz

谢谢您,我需要类的方面资料(cls),能介绍一下吗?

风影幻想

下面是引用sddz于2005-08-29 21:31发表的:
谢谢您,我需要类的方面资料(cls),能介绍一下吗?

1、 使用VB6创建一个新的ActiveX DLL项目

　　2、 引用“Microsoft Active Server Pages Object”对象库。

　　3、 创建两个组件事件：OnStartPage以及OnEndPage

　　4、 在事件OnStartPage中创建类ScriptingContent的一个引用。

　　5、 实例化类ScriptingContent。

　　Test.cls (类实现)

　　'对象的声明

　　Dim rp as Response

　　Dim rq as Request

　　Dim ap as Application

　　Dim sr as Server

　　Dim sn as Session

　　'当组件被创建的时候会触发这个事件

　　Public Sub OnStartPage(mysc as ScriptingContent)

　　 '进行对象的实例化

　　 set rp=mysc.Response

　　 set rq=mysc.Request

　　 set sr=mysc.Server

　　 set ap=mysc.Application

　　 set sn=mysc.Session

　　 rp.write "<br>ActiveX DLL组件已经被创建了！<br>"

　　End Sub

　　&#39;当组件被销毁的时候触发这个事件

　　Public Sub OnEndPage()

　　 Rp.write "<br>ActiveX DLL组件已经被销毁！<br>"

　　 &#39;销毁对象

　　 Set rp=nothing

　　 Set rq=nothing

　　 Set sr=nothing

　　 Set ap=nothing

　　 Set sn=nothing

　　End Sub

　　&#39;定义我们自己的一个组件方法

　　Public Sub HelloWorld()

　　 Rp.write "<H1>Hello,World!</H1>"

　　End Sub

　　这样，我们就创建可以访问ASP内置对象的ActiveX DLL了。我们命名这个组件项目为first，在VB中间编译这项目成为一个DLL文件first.dll，并且我们在系统中注册这个DLL文件。接下来，我们需要一个简单的几乎没有什么代码的ASP程序来调用这个组件：

　　test.asp

　　<html>

　　 <head>

　　　　<title>测试ActiveX DLL</title>

　　 </head>

　　 <body>

　　<%

　　Dim testme

　　&#39;创建我们刚才编译成功的组件，一旦创建这个组件，同时会在叶面输出文字“ActiveX DLL组件已经被

　　&#39;创建了！”

　　set testme=server.createobject("first.test")

　　&#39;调用组件的方法

　　testme.HelloWorld

　　&#39;注销组件，在注销的同时，会自动在叶面显示“ActiveX DLL组件已经被销毁！”

　　set testme=nothing

　　%>

　　 </body>

　　</html>

sddz

谢谢您!................