从过去到未来、从Visual Basic到 .Net

来源：互联网发布：陈鸿一鸣知乎编辑：程序博客网时间：2024/05/01 09:00

从过去到未来、从Visual和Basic到Net。（从VB到VB.NET的12个技巧）

从过去到未来、从Visual和Basic到Net

小气的神 2001.08.08

最初的VB被MS称为“Thunder”计划，早在1990年就开始进行了，那时Gates还亲自在杂志上为VB撰文写稿，告诉人们“Gates on BASIC's Future”；10年之后的VB还在发展和变化，现在被称为“VB。NET”。Gates也仍然在杂志上为VB撰文写稿，告诉人们“How VB Will Program the Future”，我想Gates本人对BASIC语言是有偏爱的。不仅是他，还有许多人也同样的偏爱着比尔和VB。事实上，这个世界有一半的开发人员在使用这种语言，而在中国几乎是百分之八十的程序开发人员在使用它，不过也有事实证明，VB的实际使用率是在下降，因为精通多种语言的程序员在C、C++、Java、Script语言中随意切换出入、成熟的程序员们已不再争论编程语言的优劣，而是根据应用本身按行业的标准实现需要的功能。不管你用什么语言实现，关键是你的实现是否遵守这个行业的标准或协议。

在五年前Java给我们带来一杯热饮，里面的咖啡因让整个网络业兴奋起来；五年之后蜕变中的VB是否能象一杯带有丰富元素的矿泉水，给营养不良的网络带来一点健康呢？希望它还是简单、可视化的。也许比尔想告诉你：BASIC语言不仅是Visaul的和Basic的，现在还是Net的。

新的VB。NET如何？会比我现在正用的VB6好吗，让我们一起来看看，并且迅速掌握这12个技巧。

1．面向对象的改变，也许它想更面向对象，因为以前它不是，只是自己说自己是面向对象的。VB从 4.0开始宣称自己是面向对象的，也就有了让人有些怀疑的 .cls文件，尽管现在我们用这种.Cls文件写着我们的DB或是Business层组件，丝毫没有任何怀疑和担忧，用惯了也就会觉得一个文件一个Class比C＋＋那样清楚得多，真的这样觉得吗？

过去的VB

======================================================

Private m_VBProperty as Variant

Public Property Let VBProperty( byval strData as Variant )

m_VBProperty = strData

End Property

Public Property Set VBProperty ( Byval strData as Variant )

m_VBProperty = strData

End Property

Public Property Get VBProperty() as Variant

If IsObject(m_VBProperty ) Then

Set VBProperty = m_VBProperty

Else

VBProperty =m_VBProperty

End if

End Property

现在的VB。NET

======================================================

Private m_VBNetProperty as String

Public Property VBNetProperty as String

Get

VBNetProperty = m_VBNetProperty

End Get

Set

m_VBNetProperty = VBNetProperty

End Set

End Property

新增加了ReadOnly 和 WriteOnly 关键字来实现你定义只读或只写的函数，Let 和 Set已不再支持。以前的 Set objB = objA 现在会产生一个语法错误，VB.NET中你要写成： objB = objA

2．读取文件，一开始VB中的文件存取就是变化不同的，3.0 、4.0、5.0 都在变化，FileSystemObject的出现让我们可以有一个看似不变的对象可以记忆，但是#、$ 符号始终让我联想到一个黑洞的感觉。危险而黑暗，还好这些都快成为过去。下面的代码完成从系统目录中打开Win.ini文件，并且把它显示到一个Text控件中。

过去的VB

======================================================

Private Sub Command1_Click()

Dim fnum As Integer

Dim s As String

Dim fname As String

Dim winPath As String

On error goto ErrReadTextFile

fnum = FreeFile

' get the windows folder name

winPath = Environ$("SystemRoot")

If winPath = "" Then

MsgBox "Unable to retrieve the Windows path.", _

vbInformation, "Error Reading Windows Path"

Exit Sub

End If

' create a file name

fname = winPath & "/win.ini"

' ensure the file exists

If Dir$(fname) <> "" Then

' open the file

Open fname For Binary As #fnum

If Err.Number = 0 Then

s = Space$(LOF(fnum))

' read the file

Get #fnum, 1, s

Close #fnum

Text1.Text = s

Else

Text1 = "Unable to read the file " & _

fname & "."

End If

Else

Text1 = "The file " & fname & " does not exist."

End If

ExitReadTextFile:

Exit Sub

ErrReadTextFile:

MsgBox Err.Number & ": " & Err.Description

Exit Sub

End SubEnd Sub

现在的VB。NET

======================================================

Private Sub btnReadTextFile_Click(ByVal sender _

As System.Object, ByVal e As System.EventArgs) _

Handles btnReadTextFile.Click

Dim winPath As String

Dim s As String

Dim fname As String

Dim sr As StreamReader

Dim ex As Exception

' get the windows folder name

winPath = System.Environment. _

GetEnvironmentVariable("SystemRoot")

If winPath = "" Then

MessageBox.Show("Unable to retrieve the " & _

"Windows path.", "Error Reading Windows Path", _

MessageBoxButtons.OK, MessageBoxIcon.Information)

Return

End If

fname = winPath & "/win.ini"

If File.Exists(fname) Then

Try

sr = File.OpenText(fname)

s = sr.ReadToEnd

sr.Close()

textbox1.text = s

Catch ex

MessageBox.Show(ex.message)

return

End Try

Else

MessageBox.Show("The file " & fname & _

" does not exist.")

Return

End If

End Sub

新的MessageBox.Show比MessageBox要好看一些，另外sr.Close() 比Close #fileNum 更对象化一些吧。

3． ListBox的多选问题。如何知道一个允许多选的ListBox中那些选项是选中的。看看下面的实现吧，尽管很不喜欢VB的Redim ，但是有时用它真的能很快解决问题。VB.NET中，你可以直接使用你需要的数据了。

过去的VB

======================================================

Private Sub cmdGetListSelections_Click()

Dim i As Integer

Dim sArr() As String

Dim selCount As Integer

For i = 0 To List1.ListCount - 1

If List1.Selected(i) Then

ReDim Preserve sArr(selCount) As String

sArr(selCount) = List1.List(i)

selCount = selCount + 1

End If

Call showStringArray(sArr)

End Sub

Private Sub showStringArray(arr() As String)

Dim s As String

Dim i As Integer

Dim arrCount As Integer

On Error Resume Next

arrCount = UBound(arr) + 1

On Error GoTo 0

If arrCount > 0 Then

For i = 0 To arrCount - 1

s = s & arr(i) & vbCrLf

MsgBox s

End If

End Sub

现在的VB.NET

======================================================

Private Sub btnGetListSelections_Click(ByVal sender _

As System.Object, ByVal e As System.EventArgs) _

Handles btnGetListSelections.Click

Dim sArr(ListBox1.SelectedItems.Count - 1) _

As String

Dim anItem As String

Dim i As Integer

For Each anItem In ListBox1.SelectedItems

sArr(i) = anItem

i +=1

End Sub

Private Sub showStringArray(ByVal arr() As String)

MessageBox.Show(Join(arr, _

System.Environment.NewLine))

End Sub

End Class

4． VB程序中如何启动另外一个程序，等待并且知道它何时退出。没有VB。NET前，这个问题是需要专业的作法的，就像许多问题一样，VB不是解决不了，是需要调用一些罕为人知的函数，MS把诸如此类的问题收集在一起，叫做MS Knowledge Base，现在应该是叫MSDN Knowledge Base 了，也许你已经猜到是要用Shell函数了，过去的VB在如何等待启动程序退出并且获得退出的状态上象我们投资股票一样，需要拿准时候，这样才处理得好。

过去的VB

======================================================

你可以去下面的网址中获得帮助和代码。

http://support.microsoft.com/support/kb/articles/Q129/7/96.ASP

现在的VB.NET

======================================================

Private Sub btnLaunch_Click(ByVal sender As _

System.Object, ByVal e As System.EventArgs) _

Handles btnLaunch.Click

Dim sysPath as String

SysPath = System.Environment.GetFolderPath _

(Environment.SpecialFolder.System)

Shell(sysPath & "/notepad.exe", _

AppWinStyle.NormalFocus, True)

MessageBox.Show("You just closed Notepad", _

"Notepad Closed")

End Sub

新的VB.NET中已经变得同步了，两个程序在一个进程空间中了。

从过去到未来、 从Visual Basic到 .Net

从过去到未来、从Visual Basic到 .Net