VB.NET历史菜单轻松上手

作为一个合格的编程人员，需要掌握至少两种以上的编程语言，才能满足我们日常的工作需求。其中VB.NET就是其中一个必选语言。在这里我们可以先从一个简单的应用来进行详细的了解。这一应用就是VB.NET历史菜单的实现。#t#

历史菜单在很多软件中都有用到，如果你现在还不知道什么是历史菜单的话，就请你打开你的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历史菜单轻松上手
网页链接：http://www.shufengxianlan.com/qtweb/news3/330653.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容