日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢(xún)
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問(wèn)題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷(xiāo)解決方案
VB.NET歷史菜單實(shí)現(xiàn)技巧介紹

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

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

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

 
 
 
    
  
  
  
  1. Private Sub Button1_Click(
    ByVal sender As System.Object, 
    2. 
  
  
  
  2. ByVal e As System.EventArgs) 
    Handles Button1.Click 
    3. 
  
  
  
  3. Dim st As String 
    4. 
  
  
  
  4. OpenFileDialog1.ShowDialog() 
    5. 
  
  
  
  5. End Sub 
    6. 
  
  
  
  6. Private Sub OpenFileDialog1_FileOk
    (ByVal sender As System.Object, 
    7. 
  
  
  
  7. ByVal e As System.ComponentModel.
    CancelEventArgs) Handles OpenFile
    Dialog1.FileOk 
    8. 
  
  
  
  8. '請(qǐng)注意MenuItem1是表示主菜單項(xiàng)，
    所以子菜單項(xiàng)是從MenuItem2開(kāi)始的。 
    9. 
  
  
  
  9. Dim stfilename As String 
    10. 
  
  
  
  10. stfilename = OpenFileDialog1.FileName 
    11. 
  
  
  
  11. If MenuItem5.Text <> "" Then 
    12. 
  
  
  
  12. MenuItem6.Text = MenuItem5.Text 
    13. 
  
  
  
  13. MenuItem5.Text = MenuItem4.Text 
    14. 
  
  
  
  14. MenuItem6.Visible = True
    15. 
  
  
  
  15. End If 
    16. 
  
  
  
  16. If MenuItem4.Text <> "" Then 
    17. 
  
  
  
  17. MenuItem5.Text = MenuItem4.Text 
    18. 
  
  
  
  18. MenuItem4.Text = MenuItem3.Text 
    19. 
  
  
  
  19. MenuItem5.Visible = True
    20. 
  
  
  
  20. End If 
    21. 
  
  
  
  21. If MenuItem3.Text <> "" Then 
    22. 
  
  
  
  22. MenuItem4.Text = MenuItem3.Text 
    23. 
  
  
  
  23. MenuItem3.Text = MenuItem2.Text 
    24. 
  
  
  
  24. MenuItem4.Visible = True
    25. 
  
  
  
  25. End If 
    26. 
  
  
  
  26. If MenuItem2.Text <> "" Then 
    27. 
  
  
  
  27. MenuItem3.Text = MenuItem2.Text 
    28. 
  
  
  
  28. MenuItem3.Visible = True
    29. 
  
  
  
  29. End If 
    30. 
  
  
  
  30. MenuItem2.Text = stfielname
    31. 
  
  
  
  31. MenuItem2.Visible = True
    32. 
  
  
  
  32. End Sub
    33.

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


分享標(biāo)題：VB.NET歷史菜單實(shí)現(xiàn)技巧介紹
本文鏈接：http://www.5511xx.com/article/codhspj.html