日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

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

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
VB.NET歷史菜單輕松上手

作為一個(gè)合格的編程人員，需要掌握至少兩種以上的編程語(yǔ)言，才能滿足我們?nèi)粘５墓ぷ餍枨?。其中VB.NET就是其中一個(gè)必選語(yǔ)言。在這里我們可以先從一個(gè)簡(jiǎn)單的應(yīng)用來(lái)進(jìn)行詳細(xì)的了解。這一應(yīng)用就是VB.NET歷史菜單的實(shí)現(xiàn)。#t#

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

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

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

 

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


文章名稱：VB.NET歷史菜單輕松上手
分享鏈接：http://www.dlmjj.cn/article/cdegdoc.html