VB6.0和VB.Net的对照表

关于VisualBasic6.0类模块对程序员和编程爱好者来说，VB中类的技术是学习中的一个难点，在大型软件的开发过程中，模块（Moudle) 、控件（Activeocx) 、链接库（ Active dll) 和类（ Classmoudle) 构成了系统化、高效化的软件工程，而类的技术是控件和链接库技术的基础，因此掌握类的理论和编程方法是非常有意义的。

（一）类的基本定义和应用概述；类是包含了方法、属性、数据成员的高级代码模块，它既在模块的范畴之内，又是一个没有图形界面的Activeocx，程序员可以象使用控件一样使用它，但却不能看到它，值得注意的是，类是不能继承的。

类能够使我们高效的完成对某一个或者某几个特定的对象的复杂操作，对象的动作就是类的方法，对象的属性就是类的属性过程。

相对而言，如果编程的对象是一组事物，那么，我们采用标准模块的方式是非常合适的，在下列两种情况下，应该使用类进行代码处理：（1）创建大量性质相近的对象；（ 2）提高代码的封装性。

类的创建非常简单，在进行代码编写的时候，在“工程”菜单中选择“添加类模块”项目，就可以添加一个空白的类。

类文件一般以.cls 作为扩展名保存。

（二）类的方法的实现；类的方法类似于动态链接库的接口函数，它能够接受其他窗体代码的指定类型参数，并且传递到类中。

一般来说类的方法是能够指定是否有返回值的。

它在类中通常是一个public 过程。

请看下面的代码示例，它使一个密码框拒绝非字母的输入：（1 ）类cls的代码；Option Explicit '变量检查Private WithEvents mytxt As TextBox '本类中的方法接受和控制一个text密码框Dim isNUM As Boolean '类的模块级变量Public Sub Attach(itTEXT As TextBox) '接受外部变量到mytxt中Set mytxt = itTEXTEnd SubPrivate Sub mytxt_KeyUp(KeyCode As Integer,Shift As Integ er)isNUM= (KeyCode >= 65) And (KeyCode<= 90) ' 测试密码框的键盘输入是否是英文字母If isNUM = False ThenBeep mytxt.Text = "" ' 如果输入不是英文字母则响铃并且清空密码框内容MsgBox"非法字符输入！"End IfDebug.Print mytxt.Text ' 调试输出密码框内容End Sub'类的代码结束（ 2）类的引用；已经编写完成的类可以经过两种格式进行引用，第一种方式：Private（public或者Dim) myCLS （指定的类名）As Newcls（编写完成的类名）；第二种方式较多用于程序编写风格较“老”的程序员：首先在窗体代码中进行模块级声明――DimmyCLS As cls,然后在具体代码过程中进行具体定义――Setmycls = Newcls。

visual basic语言的发展历史Visual Basic 1.0（1991年）： Microsoft于1991年发布了第一个版本的Visual Basic，也被称为Visual Basic 1.0。

它是一种图形用户界面（GUI）编程语言，旨在简化Windows应用程序的开发。

Visual Basic 1.0是Windows 3.0和3.1时代的主要开发工具之一。

Visual Basic 2.0（1992年）： Visual Basic 2.0于1992年发布，引入了更多的控件和新的开发环境功能，提高了开发者的生产力。

Visual Basic 3.0（1993年）：发布于1993年，Visual Basic 3.0引入了对32位Windows平台的支持，同时加入了数据库访问工具。

这使得Visual Basic成为Windows应用程序开发的首选语言之一。

Visual Basic 4.0（1995年）： Visual Basic 4.0于1995年发布，引入了类模块（Class Modules）的概念，增强了对象导向编程（OOP）的支持。

这个版本还提供了对ActiveX控件的支持。

Visual Basic 5.0（1997年）：发布于1997年，Visual Basic 5.0引入了更多的Internet开发支持，包括使用HTML和HTTP的应用程序开发。

Visual Basic 6.0（1998年）： Visual Basic 6.0是VB的一个重要版本，发布于1998年。

它引入了Windows Common Controls，Data Environment等新特性，使得VB成为当时最流行的企业级应用程序开发语言之一。

Visual Basic .NET（2001年）：在2001年，Microsoft发布了Visual Basic .NET，这是一个基于.NET平台的全新版本。

引入了许多新的特性，如强类型、CLR（Common Language Runtime）支持、继承和多态性等，使VB更加现代化。

VB6.0 简介第一章Visual Basic 集成开发环境1、Visual BasicBASIC（Beginners' All-purpose Symbolic Instruction Code“初学者通用符号指令代码”）于1964年创建，是一种适合初学者使用的程序设计语言。

VB有多种版本,目前实际编程使用的Basic一般是。

有如下版本：2003年推出V isual Basic .NET 20032005年11月推出V isual Basic 20052008年1月推出V isual Basic 2008本文简介的是VB , 不是, 适合初学者快速掌握VB的基本语法.2、IDE(Integrated Development Environmnet,集成开发环境)集成开发环境（简称IDE）一般包括代码编辑器、编译器、调试器和图形用户界面工具，是集成了代码编写功能、分析功能、编译功能、debug功能等一体化的开发软件套件。

3、VB相对VB以前的编程语言有如下特点：（1）可视化编程（2）事件驱动VB运行在windows环境下，所开发的程序也只能运行于windows环境。

4、VB6安装有独立的vb6安装版本和集成于visual studio6的VB版本。

安装时为开发方便，一般还需安装MSDN(Microsoft Develpoer Network)帮助系统。

5、vb的典型开发界面上图左侧是控件工具箱, 中间是工作窗口(用于设计界面,编写代码), 右侧上部显示工程窗口,右侧下部显示属性窗口.6、程序开发的一般步骤（1）设计算法或处理流程（2）设计界面（3）编写程序代码(4）测试（5）实际运行（修改完善、升级）7、初学vb应重点掌握(1) 程序设计的思路（2）基本程序语句（3）事件处理（4）常用控件(5) VB的ADO数据模型第二章预定义对象1、VB程序主要由各种控件和一些基本语句构成。

各种控件也称之为“对象”。

类型转换:从VB 6.0到的转换(5)疯狂代码 / ĵ:http://VisualBasic/Article15163.html升级向导无需特别处理。

ClipboardVisualBasic 6.0 Clipboard 对象提供了对系统剪贴板的访问。

Visual Clipboard 类提供了在系统剪贴板上放置数据和从其上检索数据的方法。

新的 Clipboard 类提供了更多功能，并且支持的剪贴板格式比 Visual Basic 6.0 Clipboard 对象更多。

对象模块经过了重新构建以支持这些功能。

升级向导由于对象模块之间的差异，现有的剪贴板代码无法自动升级。

Clipboard 语句将标记有升级错误。

动态数据交换VisualBasic 6.0 某些控件具有支持动态数据交换 (DDE) 会话的属性和方法。

Visual Windows 窗体不支持内置 DDE。

升级向导DDE 属性和方法标记有升级警告。

Web 应用程序WebClassVisualBasic 6.0 WebClass 是驻留在 Web 服务器上的 Visual Basic 组件，能够响应浏览器的输入。

WebClass 通常包括 WebItems，用于为浏览器和公开事件提供内容。

Visual Web 窗体具有 .NET 框架功能，可以用来为 Web 应用程序创建基于浏览器的用户界面。

Visual 具有“所见即所得”的设计器，可以使用工具箱中的控件创建图形 Web 窗体。

这样，Web 用户界面开发与Windows 开发具有同样的形式。

此外，当创建项目后，Internet Information Services (IIS) 服务器不必停止并重新启动即可开始部署新内容，而使用 WebClass 则不能。

升级向导WebClass 将升级为 Web 窗体。

所有状态存储调用均标记有升级警告。

可以重新编写这些代码，以使用 状态管理的优势。

您也可以选择继续使用 Visual Basic 6.0 中的 WebClass 应用程序，从 Visual Web 窗体中定位至WebClass 和 WebForm，等等。

新闻网页贴吧知道MP3图片视频百科文库窗体顶端窗体底端帮助设置首页自然文化地理历史生活社会艺术人物经济科学体育核心用户年终盘点VB百科名片Visual Basic6.0开始界面vb是V isual Basic的简称，是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows 环境下的各类应用程序。

它简单易学、效率高，且功能强大可以与Windows 专业开发工具SDK相媲美。

在V isual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口（API）函数，动态链接库（DLL）、对象的链接与嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。

目录Visual Basic编程语言由VB派生的语言VB编程语言历史1991-西雅图夜空的雷电Visual Basic 1.0Visual Basic 2.0专业版Visual Basic 3.0特别版Visual Basic 4.0Visual Basic 5.0Visual Basic 6.0Visual 2002Visual 2003Visual Basic .NET 2005Visual 2008Visual 2010VB的特点1．面向对象2．事件驱动3．软件Software集成式开发4．结构化设计语言5．强大数据库访问功能6．支持对象链接和嵌入技术7．网络功能8．多个应用向导9．支持动态交换、动态链接技术．lO．联机帮助功能虚拟网桥（Virtual Bridge）维多利亚啤酒(Victoria Beer)Visual Basic编程语言由VB派生的语言VB编程语言历史1991-西雅图夜空的雷电Visual Basic 1.0Visual Basic 2.0专业版Visual Basic 3.0特别版Visual Basic 4.0Visual Basic 5.0Visual Basic 6.0Visual 2002Visual 2003Visual Basic .NET 2005Visual 2008Visual 2010VB的特点1．面向对象2．事件驱动3．软件Software集成式开发4．结构化设计语言5．强大数据库访问功能6．支持对象链接和嵌入技术7．网络功能8．多个应用向导9．支持动态交换、动态链接技术．lO．联机帮助功能虚拟网桥（Virtual Bridge）维多利亚啤酒(Victoria Beer)展开编辑本段Visual Basic编程语言1991年，美国微软公司推出了V isual Basic 1.0(可简称VB），1992年，Microsoft公司又推出VB6.0[1]了VB 1.0的升级版VB 2.0……目前的最新版本是VB 2010 测试版。

VB6.0与的不同之处（转）除了上面谈到的语言进化，还有一些语法上的变化。

所有这些语言和语法的变化在MSDN中均可查到，本文只作简单介绍。

数据类型（Data Type）的改变中有些数据类型得到改进。

下面是变化对照表。

在中，Short数据类型是16 bit的。

Short，Integer和Long都等同于CLR的System.Int16、System.Int32和System.Int64类型。

变量声明的变化在VB6.0中，变量声明有许多限制。

其中之一就是不能同行声明多个变量。

如果一定要在一行中声明多个变量，就一定得指明每个变量的类型，否则将被默认为Variant类型。

Dim a1, a2 As IntegerDim a3 As Integer, a4 As Integer第一行中的a1是Variant类型，a2是Integer类型。

第二行中两个变量都是Integer类型。

支持同行声明多个变量，举例如下：Dim a1, a2, a3 As Integer变量初始化是另一个问题。

在VB6.0中不能同时声明和初始化变量，而则支持这个特性。

Dim name As String = "Mahesh"System.Console.Write(name)声明常量也可以照此办理：Const DT_COUNT As Integer = 23New关键字。

在中，New关键字用于创建对象。

由于数据类型是对象，所以New关键字用以创建一个数据类型对象。

Dim i As Integer = New Integer()i = 10System.Console.WriteLine(i.ToString())代码块级别支持。

像C++一样，支持代码块级别的作用域检查。

在语句块中声明的变量只在块内有效。

For i = 1 To 10Dim p As LongSystem.Console.WriteLine(i.ToString())NextSystem.Console.WriteLine(p.ToString())这段代码在中会得到一个编译错误，因为p在For..Next 语句块之外不可访问。

简介VB6.0全称为VisualBasic 6.0，是微软公司于1998年推出的可视化编vb 6.0启动画面程工具MSDN之一，是目前世界上使用最广泛的程序开发工具之一。

结构简单，编写程序对系统的资源占有极低，是程序编写者编写小型程序的第一选择！如果你是一个对编程一无所知，而又迫切希望掌握一种快捷实用的编程语言的初学者，那选择VB 6.0没错的。

即使考虑到VB程序本身编译和运行效率较低的不足，但是它的快捷的开发速度，简单易学的语法，体贴便利的开发环境，它仍不失一款优秀的编程工具，是初学者的首选。

语言特性VB的中心思想就是要便于程序员使用，无论是新手或者专家。

VB使用了可以简单建立应用程序的GUI系统，但是又可以开发相当复杂的程序。

VB的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组建的属性和方法。

因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。

过去的版本里面VB程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。

窗体控件的增加和改变可以用拖放技术实现。

一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮）。

每个控件都有自己的属性和事件。

默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。

很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。

举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。

在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。

VB的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。

有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。

VB的组件既可以拥有用户界面，也可以没有。

操作excel实例以前做了vb6.0操作excel的实例，后来转换成c#操作excel，再后来又转换成操作excel，通过比较，同样是运行在。

.net环境下，但是明显要比c#快很多。

我做的是成绩统计软件，一个窗体。

俩控件：菜单和打开文件对话框。

子程序目录：1、算成绩（m）。

2、成绩册（m）。

3、横排（h，l）。

4、纵排（h，l）。

5、单科统计表（m，n）。

6、算分栏（h）。

7、单科汇总（i）。

8、填数据（m）。

9、清数据（m）。

10、上报表（m）。

11、工作表命名（）。

12、过成绩（m）。

13、打开（）。

14、建空表（m）。

15、无英语学校汇总（m）。

16、有英语学校汇总（m）。

17、计算器。

编码主要分为主程序和子程序两个模块。

注意：要添加引用excel。

Imports System.IOPublic Class 统计成绩Public 调用= New 子程序()Public 电子表格As Excel.Application '定义变量Public 工作簿As Excel.WorkbookPublic 工作表As Excel.WorksheetPublic 单元格As Excel.RangePrivate Sub 一年级ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 一年级ToolStripMenuItem.ClickCall 调用.建空表(10)Call 调用.工作表命名(1)Call 调用.成绩册(1)End SubPrivate Sub 二年级ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 二年级ToolStripMenuItem.ClickCall 调用.建空表(10)Call 调用.工作表命名(2)Call 调用.成绩册(2)End SubPrivate Sub 三年级ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 三年级ToolStripMenuItem.ClickCall 调用.建空表(8)Call 调用.工作表命名(3)Call 调用.成绩册(3)End SubPrivate Sub 四年级ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 四年级ToolStripMenuItem.ClickCall 调用.建空表(8)Call 调用.工作表命名(3)Call 调用.成绩册(3)End SubPrivate Sub 五年级ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 五年级ToolStripMenuItem.ClickCall 调用.建空表(8)Call 调用.工作表命名(3)Call 调用.成绩册(3)End SubPrivate Sub 六年级ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 六年级ToolStripMenuItem.ClickCall 调用.建空表(8)Call 调用.工作表命名(3)Call 调用.成绩册(3)End SubPrivate Sub 学校总评ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 学校总评ToolStripMenuItem.ClickCall 调用.建空表(1)Dim nj(6) As Stringnj(1) = "一年级" : nj(2) = "二年级" : nj(3) = "三年级" : nj(4) = "四年级" : nj(5) = "五年级" : nj(6) = "六年级"'建立积分表Dim 工作表= 调用.工作簿.Worksheets("sheet1")工作表.Name = "学校积分"工作表.Range(工作表.Cells(1, 1), 工作表.Cells(1, 9)).MergeCells = True工作表.Cells(1, 1) = "学校积分统计表"工作表.Cells(2, 1) = "学校"工作表.Cells(3, 1) = "南村小学"工作表.Cells(4, 1) = "东风小学"工作表.Cells(5, 1) = "兴中小学"工作表.Cells(6, 1) = "尧场小学"For i = 1 To 6工作表.Cells(2, i + 1) = nj(i) + "积分"Next工作表.Cells(2, 8) = "均积分"工作表.Cells(2, 9) = "名次"工作表.Range(工作表.Cells(2, 1), 工作表.Cells(6, 9)).Borders.LineStyle = 1 '表格加线Dim h = 6, l = 9单元格= 工作表.Range(工作表.Cells(1, 1), 工作表.Cells(h, l)) '设置行高和列宽单元格.HorizontalAlignment = Excel.Constants.xlCenter '水平居中单元格.RowHeight = 工作表.Application.CentimetersToPoints(Math.Round((21.3 - 3 * 2) / h, 2)) 工作表.Range(工作表.Cells(2, 1), 工作表.Cells(11, 1)).ColumnWidth = 16.13工作表.Range(工作表.Cells(2, 2), 工作表.Cells(h, l)).ColumnWidth = Math.Round((29.7 - 3.69 - 1.9 * 2) / (l - 1) * 4.374, 2) 工作表.PageSetup.Orientation = Excel.XlPageOrientation.xlLandscape '横向打印End SubPrivate Sub 上报ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 上报ToolStripMenuItem.ClickCall 调用.建空表(2)调用.上报表()End SubPrivate Sub 全部表册ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 全部表册ToolStripMenuItem.ClickDirectory.CreateDirectory("C:\Documents and Settings\Administrator\桌面\成绩统计") '建立文件夹调用.建空表(10) '一年级Call 调用.工作表命名(1) : Call 调用.成绩册(1)调用.工作簿.SaveAs("C:\Documents and Settings\Administrator\桌面\成绩统计\一年级.xls")调用.工作簿.close()调用.电子表格.quit()调用.建空表(10) '二年级Call 调用.工作表命名(2) : Call 调用.成绩册(2)调用.工作簿.SaveAs("C:\Documents and Settings\Administrator\桌面\成绩统计\二年级.xls")调用.工作簿.close()调用.电子表格.quit()调用.建空表(8) '三年级Call 调用.工作表命名(3) : Call 调用.成绩册(3)调用.工作簿.SaveAs("C:\Documents and Settings\Administrator\桌面\成绩统计\三年级.xls")调用.工作簿.close()调用.电子表格.quit()调用.建空表(8) '四年级Call 调用.工作表命名(4) : Call 调用.成绩册(4)调用.工作簿.SaveAs("C:\Documents andSettings\Administrator\桌面\成绩统计\四年级.xls")调用.工作簿.close()调用.电子表格.quit()调用.建空表(8) '五年级Call 调用.工作表命名(5) : Call 调用.成绩册(5)调用.工作簿.SaveAs("C:\Documents and Settings\Administrator\桌面\成绩统计\五年级.xls")调用.工作簿.close()调用.电子表格.quit()调用.建空表(8) '六年级Call 调用.工作表命名(6) : Call 调用.成绩册(6)调用.工作簿.SaveAs("C:\Documents and Settings\Administrator\桌面\成绩统计\六年级.xls")调用.工作簿.close()调用.电子表格.quit()Call 调用.建空表(1) '学校总评Dim nj(6) As Stringnj(1) = "一年级" : nj(2) = "二年级" : nj(3) = "三年级" : nj(4) = "四年级" : nj(5) = "五年级" : nj(6) = "六年级"'建立积分表Dim 工作表= 调用.工作簿.Worksheets("sheet1")工作表.Name = "学校积分"工作表.Range(工作表.Cells(1, 1), 工作表.Cells(1,9)).MergeCells = True工作表.Cells(1, 1) = "学校积分统计表"工作表.Cells(2, 1) = "学校"工作表.Cells(3, 1) = "南村小学"工作表.Cells(4, 1) = "东风小学"工作表.Cells(5, 1) = "兴中小学"工作表.Cells(6, 1) = "尧场小学"For i = 1 To 6工作表.Cells(2, i + 1) = nj(i) + "积分"Next工作表.Cells(2, 8) = "均积分"工作表.Cells(2, 9) = "名次"工作表.Range(工作表.Cells(2, 1), 工作表.Cells(6, 9)).Borders.LineStyle = 1 '表格加线Dim h = 6, l = 9单元格= 工作表.Range(工作表.Cells(1, 1), 工作表.Cells(h, l)) '设置行高和列宽单元格.HorizontalAlignment = Excel.Constants.xlCenter '水平居中单元格.RowHeight = 工作表.Application.CentimetersToPoints(Math.Round((21.3 - 3 * 2) / h, 2)) 工作表.Range(工作表.Cells(2, 1), 工作表.Cells(11, 1)).ColumnWidth = 16.13工作表.Range(工作表.Cells(2, 2), 工作表.Cells(h, l)).ColumnWidth = Math.Round((29.7 - 3.69 - 1.9 * 2) / (l - 1) * 4.374, 2) 工作表.PageSetup.Orientation = Excel.XlPageOrientation.xlLandscape '横向打印调用.工作簿.SaveAs("C:\Documents and Settings\Administrator\桌面\成绩统计\学校总评.xls")调用.工作簿.close()调用.电子表格.quit()Call 调用.建空表(2)调用.上报表()调用.工作簿.SaveAs("C:\Documents and Settings\Administrator\桌面\成绩统计\上报.xls")调用.工作簿.close()调用.电子表格.quit()MessageBox.Show("生成的‘成绩统计’文件夹已存在桌面。