vb.net类继承接口 类继承接口需要重写方法吗

vb和vb.net的区别和特点

1、vb.net  完全符合面向对象的编程语言抽象、封装、继承的四大特性，而vb不支持继承。

2、错误处理不同。

vb中只是On Error.....goto和On Errer Resume Next ，这些错误称为非结构化异常处理。而在vb.net中采用的结构化异常处理机制，try...catch....finally控制。

3、两者产生的窗体不同。

vb.net 允许创建不同类型的应用程序，例如，创建ASP.NET和ASP.NET Web 服务应用程序，还允许创建控制台应用程序和作为桌面服务运行的应用程序。但是vb 只能创建Windows窗体。

4、数据库访问的差别。

vb6.0是通过ADO（Active X Data Objext）来实现对数据库访问。而vb.net 是通过ADO.NET来访问数据库。

扩展资料

Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。

“Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

Visual Basic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序 。

参考资料：百度百科-Visual Basic

相关问答

Q1: 新手关于VB.net的问题

您好，在Visual Basic.NET中，是没有像这样的文件I/O操作的，一般都是通过System.IO.StreamReader和System.IO.StreamWriter类，System.IO.BinaryReader和System.IO.BinaryWriter类来读写文件以及利用My.Computer.FileSystem类读写文件，利用System.IO.Filestream类来创建文件，通过引用Microsoft Scripting Runtime来执行文件（夹）和驱动器的特殊操作，常用的是System.IO.StreamReader和System.IO.StreamWriter类。

例如说要读取一个文件，我们可以利用System.IO.StreamReader类编写一个方法（也就是函数），但是首先要在当前类的开头添加一个引用，引用名称：System.IO，添加引用的代码如下

Imports System.IO

添加引用之后，就在当前类的内部创建方法：

Private Function ReadFile(ByVal FileURL As String) As String

Dim sr As StreamReader = New StreamReader(FileURL)

ReadFile = sr.ReadToEnd()

sr.Close()

sr = Nothing

End Function

示例说明：

该方法是一个返回String（字符串）数据的函数，FileURL作为参数是用来存放需要访问的文件的URL，当然，要获取一个文件的URL，就是利用这一句代码实现的：

Dim sr As StreamReader = New StreamReader(FileURL)

当获取了URL之后，就要对文件进行读取操作了，然后将读取的结果返回给方法：

ReadFile = sr.ReadToEnd()

读取文件完毕之后，要对文件执行关闭操作：

sr.Close()

当然别忘了清理资源：

sr = Nothing

StreamReader类可以从流或文件中读取字符，在创建StreamREader类的对象时，可以指定一个流对象，也可以指定一个文件URL，创建对象后就可以调用他的方法，从流中读取数据，其常用方法如下：

Peek：返回下一个可用字符，但不使用它。

Read：读取输入流中下一个字符或一组字符并移动流或文件指针。

ReadBlock：从当前流中读取最大数量字符并从index开始将数据写入buffer。

ReadLine：从当前流中读取一行字符并将字符作为String返回。

REadToEnd：从流的当前位置到末尾读取流。

Close：关闭打开的对象，释放资源。

注：流，一种新的数据格式，这种格式可通过System.IO命名空间下的类访问。流用Stream类表示，所有的流都是从这个类中继承的。流向用户提供了一个一般的数据视图，隐藏了操作系统和底层设备的实现细节，所有的流都支持读写操作。在打开文件时将返回对应的流对象，用户可以对流对象进行读写操作。

如果要对文件执行按行读取操作，这时就会用到枚举，这时候，代码就要更改一下了：

Private Function ReadFile(ByVal FileURL As String) As String

Dim sr As StreamReader = New StreamReader(FileURL)

For Each fLine As String In sr.ReadToEnd()

Line = sr.ReadLine()

ReadFile = ReadFile fLine

Next sr.ReadLine

sr.Close()

End Function

示例说明：

For Each…Next：派生于For…Next循环，用于枚举一系列对象中的成员，而这些对象组成集合，如果集合中至少存在一个元素，程序就会静茹For Each块执行。其格式如下：

For Each 元素 [As 数据类型] In 元素集合

[循环体]

[Exit For]

[循环体]

Next [元素]

比如：

Dim CountNumber As ULong = 0

Dim FolderName() As String = New String() {" "}

For Each strFolder As String In My.Computer.FileSystem.GetDirectories("C:\")

CountNumber = CountNumber + 1

ReDim Preserve FolderName(1 To CountNumber)

FolderName = strFolder

Next strFolder

注：My.Computer.FileSystem.GetDirectories：主要用来枚举指定目录的子文件夹。

Preserve：主要用来避免重定义数组而不损失数组元素的原有数据。

另外，利用My.Computer.FileSystem也可以实现文件的读取，其代码如下：

Dim fpReader As String = My.Computer.FileSystem.ReadAllText("C:\test.txt")

示例说明：

定义一个字符串变量利用My.Computer.FileSystem.ReadAllText来实现对“C:\test.txt”的读取。

如果是已经编码的文本，则可以使用My.Computer.FileSystem对象中的ReadAllText方法并提供路径和文件编码类型，将文本写入字符串变量中，例如：

Dim fpReader As String = My.Computer.FileSystem.ReadAllText("C:\test.txt", _

System.Text.Encoding.UTF32)

当然，System.Text.Encoding的成员不止一个，它还有如下成员：

System.Text.Encoding.UTF8

System.Text.Encoding.UTF16

System.Text.Encoding.ASCII

System.Text.Encoding.Unicode

这些是常见的成员，也是主要的成员。

另外，利用My.Computer.Filesystem类无法实现文件的行操作，还有，如果您的计算机未安装完整的Microsoft.NET Framework Runtime，则无法实现这种操作！

写入文件的操作同样简单，Visual Basic.NET 允许用户使用StreamWriter来对文件写入内容，下面就让我们来创建一个子例程，来实现文件的写入：

Private Sub WriterFile(ByVal FileURL As String, ByVal FileCon As String)

Dim sr As StreamWriter = New StreamWriter(FileURL)

sr.Write(FileCon)

sr.Close()

sr = Nothing

End Sub

示例说明：

sr.Write(FileCon)：将FileCon写入文件FileURL之中。

另外，StreamWriter常用方法如下：

WriteLine：向流中写入一行，后面跟结束符。

Write：写入流，向流对象中写入字符并移动流或文件指针。

Close：关闭打开的对象，释放资源。

附：Visual Basic 6.0文件操作解说：

打开： Open 文件名 For Input | Output | Append As [#]文件号

Input打开读入，文件不存在报错。Output打开覆盖写入，文件不存在则创建。Append打 开追加写入，文件不存在则创建。

读： Line Input #文件号, 字符串变量

读一行数据存入字符串变量，数据包括空格、Tab、等，不包括回车符和换行符，所以要显示文件的换行效果，要手动添加回车符和换行符（vbCrLf）

Input #文件号, 变量1[, | ;] [变量2]...

这种方式可以存入多个变量，而且变量类型不限于字符串型。

写： Print #文件号, 参数1[, | ;] [参数2]...

将各参数逐个写入文件。参数间用逗号隔开时，文件中相应插入多个空格；用分号隔开时，插入一个空格。可以用Spc(n)、Tab(n)等进行排版。

Write #文件号, 参数1[, | ;] [参数2]...

这种写入方式将自动添加界定符，对不同参数的类型加以界定。

Visual Basic 6.0文件操作函数：

Seek： Seek(文件号)

返回文件正在访问的位置，返回值为长整型。对顺序文件和二进制文件，返回值以字节为单位；对随机访问文件，返回值以记录号为单位。

Seek： Seek [#]文件号，位置

定位文件到指定位置。位置单位同上所述。

Input： Input (字节数，[#]文件号)

从文件的访问当前位置读入指定字节数的数据。仅适用于顺序文件和二进制文件。

EOF： EOF(文件号)

判断文件的访问位置是否在文件尾，如果是，返回True，否则，返回False。

LOF： LOF(文件号)

返回文件长度，单位为字节。

FileLen： FileLen (文件名)

返回文件名对应文件的长度，单位是字节。该函数取磁盘文件标识中的长度，即文件打开前的长度，可以取未打开的文件长度。

GetAttr： GetAttr (Pathname)

返回指定文件或文件夹的属性。

FileAttr： FileAttr (文件号)

返回文件号对应文件的打开方式。

GetDateTime： GetDateTime (Pathname)

返回文件被创建或修改的最后日期和时间。

Free： FreeFile[(0|1)]

返回未被占用的文件号，Free或Free(0)返回1～255之间未占用的文件号，Free(1)返回256～511之间未占用的文件。

Dir： Dir (Pathname [,Attributes])

测试指定路径是否有某文件，Attributes附加文件属性条件，取值vbNormal、vbReadOnly、vbHidden、vbSystem、vbVolume、vbDirectory。

Kill： Kill (文件名)

删除指定文件，文件名可包含路径。

FileCopy： FileCopy 源文件，目标文件

拷贝文件。

Name： Name 旧文件名 As 新文件名

文件重命名。前后路径不一致时，操作为移动文件并重命名。

MkDir： MkDir path

新建文件夹。

RmDir： Rmdir path

删除文件夹。

ChDrive： ChDrive Drive

改变当前驱动器 ChDrive "D"

CurDir： CurDir [(driver)]

返回当前工作路径，指定driver则返回目标驱动器的当前工作路径。

举例：

'新建文件，并写入数据，关闭

Open "a.txt" For Output As #1

Print #1, "ABCDEFG"; vbCrLf; "HIJK"

Close #1

'打开文件，并全部写入新文件，关闭

Open "a.txt" For Input As #2

Open "b.txt" For Output As #3

Dim str As String

While (Not EOF(2))

Line Input #2, str

Print #3, str

Wend

Close

注：关于Visual Basic 6.0的文件操作资料来自于

如果您觉得我的回答帮助了您解决难题，别忘了采纳哦，如果我的回答未能解决您的问题，您可以在互联网上寻找更多的解决方案！

Q2: vb.net有没有类似vb6.0控件数组的功能

可以实现

首先创建一个Button类型控件数组：

1、创建“Windows应用程序”类型的工程，添加名为ButtonArray的类，并使该类继承 System.Collection.CollectionBase 类。System.Collections.CollectionBase类是.NET框架类库中为集合操作提供抽象的基类，通过对它的继承可以为我们的ButtonArray类具备集合增加、删除、索引的功能。

2、为ButtonArray类添加ParentForm属性，即控件组所在窗体，创建初始化函数（构造函数）；

3、为控件数组类增加AddItem方法，该方法在控件数组类中添加成员；

4、为控件数组类增加RemoveItem方法，该方法在控件数组中删除一个成员。

示例代码：

Public Class ButtonArray

Inherits System.Collections.CollectionBase

Private ReadOnly ParentForm As System.Windows.Forms.Form

Public Sub New(ByVal pForm As System.Windows.Forms.Form)

ParentForm = pForm

End Sub

Default Public ReadOnly Property Item(ByVal index As Integer) As System.Windows.Forms.Button

Get

Return Me.List.Item(index) ' ButtonArray的List 属性从CollectionBase 继承

End Get

End Property

Public Sub AddItem()

Dim btnItem As New System.Windows.Forms.Button

Me.List.Add(btnItem)

ParentForm.Controls.Add(btnItem) '向窗体中增加控件

btnItem.Tag = Me.Count 'Count属性从CollectionBase 继承

btnItem.Top = Me.Count * 30

btnItem.Left = 200

btnItem.Text = "Button" Me.Count.ToString

AddHandler btnItem.Click, AddressOf btnItem_Click '绑定事件处理程序

End Sub

Public Sub AddItem(ByVal btnItem As System.Windows.Forms.Button)

Me.List.Add(btnItem)

AddHandler btnItem.Click, AddressOf btnItem_Click '绑定事件处理程序

End Sub

Public Sub RemoveItem()

If Me.Count 0 Then

ParentForm.Controls.Remove(Me(Me.Count - 1))

Me.List.RemoveAt(Me.Count - 1)

End If

End Sub

Public Sub btnItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)

'在这里编写控件数组对点击事件的响应

'例如：

MsgBox("点击：" sender.GetType().ToString CType(CType(sender, Button).Tag, String))

End Sub

End Class

使用创建的控件数组

在Form1中放置两个按钮Button1、Button2，分别测试控件数组的增添、删除。

双击Form添加代码：

Public Class Form1

Inherits System.Windows.Forms.Form

……Windows窗体设计器生成的代码……

Dim Buttons As New ButtonArray(Me)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Buttons.AddItem()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Buttons.RemoveItem()

End Sub

End Class

其他的控件数组也可以用类似的方式来实现

例如 Label控件数组

LabelArray.vb代码如下：

Public Class LabelArray

Inherits System.Collections.CollectionBase

Private ReadOnly ParentForm As System.Windows.Forms.Form

Public Sub New(ByVal pForm As System.Windows.Forms.Form)

ParentForm = pForm

End Sub

Default Public ReadOnly Property Item(ByVal index As Integer) As System.Windows.Forms.Label

Get

Return Me.List.Item(index) ' ButtonArray的List 属性从CollectionBase 继承

End Get

End Property

Public Sub AddItem(ByVal btnItem As System.Windows.Forms.Label)

Me.List.Add(btnItem)

AddHandler btnItem.Click, AddressOf btnItem_Click '绑定事件处理程序

End Sub

Public Sub btnItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)

'在这里编写控件数组对点击事件的响应

'例如：

MsgBox("点击：" sender.GetType().ToString CType(CType(sender, Label).Tag, String))

End Sub

End Class

使用创建的Label控件

在Form1中放置两个按钮Label1、Label2

双击Form添加代码：

Public Class Form1

Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

Public Sub New()

MyBase.New()

'该调用是 Windows 窗体设计器所必需的。

InitializeComponent()

'在 InitializeComponent() 调用之后添加任何初始化

'用来绑定label

BindArray()

End Sub

……Windows窗体设计器生成的其他代码……

#End Region

Dim Labels As New LabelArray(Me)

Public Sub BindArray()

Me.Label1.Tag = "1111"

Me.Label2.Tag = "222"

Labels.AddItem(Me.Label1)

Labels.AddItem(Me.Label2)

End Sub

End Class

然后可以测试点击两个label可以显示相应的Tag的信息。

Q3: VB.NET我要用鼠标轨迹画一个矩形框 然后选中控件。就像星际和魔兽争霸里对部队单位的选中一样~等大神回答

这个类继承自Panelvb.net类继承接口，把它加到vb.net类继承接口你vb.net类继承接口的项目里面vb.net类继承接口，先运行一下，然后从工具箱里把它拖到窗体上，然后再向里面添加其它控件就可以vb.net类继承接口了，支持Shift加选，Alt减选

Imports System.Linq

Imports System.Collections

Public Class MyPanel

    Inherits Panel

    ' 选择模式，相交还是包含

    Enum SelectMode

        Intersects

        Contains

    End Enum

    Dim down As New Point(-1, -1)

    Dim rect As Rectangle

    Dim selected As New List(Of Control)

    Dim editting As IEnumerable(Of Control)

    Dim mode As SelectMode = SelectMode.Contains

    Dim shift, alt As Boolean

    Public Sub New()

        Me.DoubleBuffered = True

    End Sub

    Protected Overrides Sub OnMouseDown(e As MouseEventArgs)

        MyBase.OnMouseDown(e)

        down = e.Location

        editting = selected.ToArray().ToList()

        OnMouseMove(e)

    End Sub

    Protected Overrides Sub OnMouseMove(e As MouseEventArgs)

        MyBase.OnMouseMove(e)

        If e.Button = Windows.Forms.MouseButtons.Left Then

            Dim loc As New Point(Math.Min(down.X, e.X), Math.Min(down.Y, e.Y))

            Dim size As New Size(Math.Abs(down.X - e.X), Math.Abs(down.Y - e.Y))

            rect = New Rectangle(loc, size)

            Dim cs As New List(Of Control)

            For Each c In Controls

                cs.Add(c)

            Next

            Dim a = cs.Where(Function(n As Control) (mode = SelectMode.Contains And rect.Contains(n.Bounds)) Or (mode = SelectMode.Intersects And rect.IntersectsWith(n.Bounds)))

            If shift Then editting = a.Union(selected) Else If alt Then editting = selected.Except(a) Else editting = a

            Invalidate()

        End If

    End Sub

    Protected Overrides Sub OnMouseUp(e As MouseEventArgs)

        MyBase.OnMouseUp(e)

        down = New Point(-1, -1)

        selected = editting.ToList()

        editting = Nothing

        Invalidate()

    End Sub

    Protected Overrides Function ProcessKeyPreview(ByRef m As Message) As Boolean

        Dim KeyCode As Keys = CInt(m.WParam) And CInt(Keys.KeyCode)

        Dim d As Boolean

        If m.Msg = H100 Or m.Msg = H104 Then d = True Else If m.Msg = H101 Or m.Msg = H105 Then d = False Else Return MyBase.ProcessKeyPreview(m)

        If KeyCode = Keys.ShiftKey Then

            shift = d

        ElseIf KeyCode = Keys.Menu Then

            alt = d

        End If

        Return MyBase.ProcessKeyPreview(m)

    End Function

    Protected Overrides Sub OnPaint(e As PaintEventArgs)

        MyBase.OnPaint(e)

        For Each c As Control In IIf(editting Is Nothing, selected, editting)

            e.Graphics.DrawRectangle(New Pen(Color.Gray) With {.DashStyle = Drawing2D.DashStyle.DashDot}, c.Left - 1, c.Top - 1, c.Width + 1, c.Height + 1)

        Next

        If (down.X  0) Then e.Graphics.DrawRectangle(New Pen(Color.Gray) With {.DashStyle = Drawing2D.DashStyle.DashDot}, rect)

    End Sub

End Class

Q4: VB.NET 里 结构（Structure）和类（Class)有什么区别？如题 谢谢了

Structure是值类型，classe是引用类型 Structure用栈来分配; classe用堆来分配 structure的成员默认情况下是公共的，而Class的成员变量和常量默认情况下是私有的而其它成员默认情况下是公共的.这与VB6是相兼容的。 structure必须至少有一个非共享的成员变量或事件成员，class可以完全是空的. Structure的成员不能声明成Protected; class成员可以. 一个structure过程只能在它是一个Shared Sub时才能handle events而且只能通过AddHandler语句;而任何class过程都可以handle events，既可以用Handles关键字或 AddHandler语句。 Structure variable declarations cannot specify initializers, the New keyword, or initial sizes for arrays; class variable declarations can. Structure继承自ValueType类，不能从其它任何类型继承; classes可以从任何不是ValueType的类继承 Structure不能继承而Class可以 Structure从来不析构terminated因此common language runtime (CLR)从来不调用它的Finalize方法，classe由垃圾回收器进行析构, 当没有任何对该类的引用时调用它的Finalize方法 structure 不需要一个构造函数，而Class需要 Structure只能有带参数的非共享的构造函数; classes 可以有带或不带参数的构造函数. 每个Structure都有一个默认的不带参数的构造函数以对其成员进行初始化，你可以重新定义该函数

vb.net类继承接口的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于类继承接口需要重写方法吗、vb.net类继承接口的信息别忘了在本站进行查找喔。