vb.net的重写和重载是什么？

我们都知道，面向对象语言的三大特征是：封装、继承和多态。而重写和重载春弯搭是多态的两种表现形式。多态，顾名思义，就是指多种形态。而重写和重载正好体现了这一点。现在我们以 VB.NET 语言来说明两者的区别。

重写是发生在父类与子类之间的关系。具体来讲就是子类可以重写父类的现有的方法。它要求子类的方法名称及参数必须与父类完全一致。比如吃饭，父亲可以吃两碗面，孩子同样也是吃面，却扒拿只能吃一碗。

重载则主要是发生在同一个类当中的，它通过多个名称相同的方法，但方法参数不相同，或者方法返回类型不相同来加以区别。其中，方法参数不相同包括以下几种情况：参数的个数不相同，参数的类型不相同，参数的对应位置不相同。需要说明的是，重载同样可以应用到父类与子类当中。即子类重载了父类的方法。

重写：

在 VB.NET 中，重写汲及到的关键字有：

OverRidable: 在父类中声明的可以在子类中重写的方法。

OverRides: 在子类中声明的要重写父亲中可重写的方法。

MustOverRide: 在父类中，表示这个方法必须在子类中重写。此时，该类必须声明为抽象类。

NotOverridable: 如果当前类还有子类，那么，在其子类中，该方法不允许被重写。

重载：

在 VB.NET 中，重载用到的关键是 OverLoads。

这里需要说明几点：

1. 对于在同一类当中，一组名称相同的方法或函数重载时，可以加关键字 OverLoads 或者不加。但如果其中有一个方法加上，那同组其它方法也必须加该关键字。

2. 如果该方法是重载父类中的方法。那么必须加 OverLoads 关键字。

3. 如果两个同名函数仅返回类型不相同，则它们不能重载，即必须在参数上有所不同。闹闭

使用 Name 语句来更改信铅早文件的名称。示例中激拦假设所有使用到的目录或文件夹都已存在。

Dim OldName, NewName

OldName = "OLDFILE": NewName = "NEWFILE" ' 定义文件名。

Name OldName As NewName ' 更改文件名。

OldName = "

C

:\MYDIR\OLDFILE": NewName = "C:\YOURDIR\NEWFILE"

Name OldName As NewName ' 更改文件名，并移动文件滑雀。

其它：

使用shell语句来调用dos命令rename。

方法一：Dim fpPrivate Sub refilename(folderspec)Dim fs, f, f1, fc, sm, hzSet fs = CreateObject("Scripting.FileSystemObject"瞎派)

Set f = fs.GetFolder(folderspec)Set fc = f.FilesFor Each f1 In fc

hz = Mid(f1.Name, InStrRev(f1.Name, "."))

Name f1 As fp &"20101007-" &hz

NextMsgBox "修改完成"End SubPrivate Sub Command1_Click()fp = "E:\emot\xhh\"'这里设置文件夹路径，根的需要来修改

If Right(fp, 1) <>"\" And Right(fp, 1) <>"/"

Then fp = fp &"\"Call refilename(fp)

’调用上面的自定义函数，改名End Sub........

方磨前贺法二： '将f:\123\文件下的txt文件改名

Dim files() As String '用于贮存文件名

Dim length As Integer = 0 'files数组长度

Dim fileName As String = Dir$("f:\123\*.txt") '得到第一个.txt文件悔差的文件名

'Dim g As Graphics = Me.CreateGraphics

Do While fileName <>""

'g.DrawString(length, Font, Brushes.Red, length * 10, length * 10)

ReDim Preserve files(length)

files(length) = fileName

length = files.Length

fileName = Dir$() '得到下一个.txt文件的文件名

Loop

For i = 0 To length - 1

Dim oldfileName As String = "f:\123\" + files(i)

Dim newfileName As String = "f:\123\" + "20101007_"+ files(i）

Rename(oldfileName, newfileName) '修改文件名

Next

---