大家是否能充分掌握VB.NET的各找能夠應(yīng)用技巧，是衡量一個(gè)VB程序員是否合格的標(biāo)準(zhǔn)。那么在這里先來向大家介紹一下其中一個(gè)技巧的實(shí)現(xiàn)，那就是VB.NET歷史菜單的實(shí)現(xiàn)方法。希望對(duì)大家有所幫助。#t#

歷史菜單在很多軟件中都有用到，如果你現(xiàn)在還不知道什么是歷史菜單的話，就請(qǐng)你打開你的word中的"文件"菜單你會(huì)發(fā)現(xiàn)文件菜單里面有許多使用過的文件名。這些就是被稱作歷史菜單，他記錄了你使用過的一些文件包括文件名，文件地址。但是它不會(huì)保存所有使用過的文件，而是只保存一部分，每當(dāng)有新文件被打開后就會(huì)自動(dòng)更新最早的一個(gè)文件。它的好處是可以快速打開上次或上幾次沒有編輯完的或還需要接著使用的文件。知道了什么是歷史菜單之后就可以自己編寫一個(gè)歷史菜單將他放入我們的程序中了。

在VB.NET歷史菜單中建立一個(gè)方案，然后添加一個(gè)openfiledialog控件，一個(gè)button控件，一個(gè)mainmenu控件，其中mainmenu控件是一個(gè)菜單控件，在它的下面建立5個(gè)子菜單。將5個(gè)子菜單的Visible屬性都設(shè)置為false。Text屬性設(shè)置為空。然后加入下面的代碼。（vb.net編寫的代碼）

Private Sub Button1_Click(
ByVal sender As System.Object,  
ByVal e As System.EventArgs) 
Handles Button1.Click  
Dim st As String  
OpenFileDialog1.ShowDialog()  
End Sub  
Private Sub OpenFileDialog1_FileOk
(ByVal sender As System.Object,  
ByVal e As System.ComponentModel.
CancelEventArgs) Handles OpenFile
Dialog1.FileOk  
'請(qǐng)注意MenuItem1是表示主菜單項(xiàng)，
所以子菜單項(xiàng)是從MenuItem2開始的。  
Dim stfilename As String  
stfilename = OpenFileDialog1.FileName  
If MenuItem5.Text <> "" Then  
MenuItem6.Text = MenuItem5.Text  
MenuItem5.Text = MenuItem4.Text  
MenuItem6.Visible = True 
End If  
If MenuItem4.Text <> "" Then  
MenuItem5.Text = MenuItem4.Text  
MenuItem4.Text = MenuItem3.Text  
MenuItem5.Visible = True 
End If  
If MenuItem3.Text <> "" Then  
MenuItem4.Text = MenuItem3.Text  
MenuItem3.Text = MenuItem2.Text  
MenuItem4.Visible = True 
End If  
If MenuItem2.Text <> "" Then  
MenuItem3.Text = MenuItem2.Text  
MenuItem3.Visible = True 
End If  
MenuItem2.Text = stfielname 
MenuItem2.Visible = True 
End Sub 

在VB.NET歷史菜單初始話的時(shí)候?qū)isible定為false和將text定為空，是為了不顯示沒有文件名的菜單項(xiàng)。 Button1是用來打開文件對(duì)話筐。OpenFileDialog1_FileOk是表示當(dāng)按下文件對(duì)話筐的"確定"按鈕后所要執(zhí)行的語句。