VB.NET歷史菜單怎么用

這篇文章主要介紹了VB.NET歷史菜單怎么用，具有一定借鑒價值，感興趣的朋友可以參考下，希望大家閱讀完這篇文章之后大有收獲，下面讓小編帶著大家一起了解一下。

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

在VB.NET歷史菜單中建立一個方案，然后添加一個openfiledialog控件，一個button控件，一個mainmenu控件，其中mainmenu控件是一個菜單控件，在它的下面建立5個子菜單。將5個子菜單的Visible屬性都設置為false。Text屬性設置為空。然后加入下面的代碼。(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   '請注意MenuItem1是表示主菜單項，   所以子菜單項是從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歷史菜單初始話的時候將Visible定為false和將text定為空，是為了不顯示沒有文件名的菜單項。 Button1是用來打開文件對話筐。OpenFileDialog1_FileOk是表示當按下文件對話筐的"確定"按鈕后所要執行的語句。

感謝你能夠認真閱讀完這篇文章，希望小編分享的“VB.NET歷史菜單怎么用”這篇文章對大家有幫助，同時也希望大家多多支持億速云，關注億速云行業資訊頻道，更多相關知識等著你來學習!