VB5制作上下文菜單

在Ｗｉｎ ９５中，我們常常通過單擊鼠標右鍵來激活一個快捷菜單，從而加快了操作。此處所說的快捷菜單就是上下文菜單。上下文菜單在ＶＢ５中又稱作彈出式菜單，它是獨立于菜單欄而顯示在窗體上的浮動菜單。在彈出式菜單上顯示的項目取決于按下鼠標右鍵時指針所處的位置。?
    為了顯示彈出式菜單，可使用ＰｏｐｕｐＭｅｎｕ 方法。這個方法使用下列語法：
［ｏｂｊｅｃｔ ．］ＰｏｐｕｐＭｅｎｕ ｍｅｎｕｎａｍｅ ［，ｆｌａｇｓ ［，ｘ ［，ｙ ［，ｂｏｌｄｃｏｍｍａｎｄ］］］］。?
    例如：當用鼠標右鍵單擊一個窗體時，以下的代碼顯示一個名為ｍｎｕＦｉｌｅ 的菜單?？捎茫停铮酰螅澹眨?或者ＭｏｕｓｅＤｏｗｎ 事件來檢測何時單擊了鼠標右鍵：?Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿ＭｏｕｓｅＵｐ （Ｂｕｔｔｏｎ Ａｓ Ｉｎｔｅｇｅｒ ，Ｓｈｉｆｔ Ａｓ ＿?Ｉｎｔｅｇｅｒ ，ＸＡｓ Ｓｉｎｇｌｅ ，Ｙ Ａｓ Ｓｉｎｇｌｅ）?Ｉｆ Ｂｕｔｔｏｎ ＝２Ｔｈｅｎ ＇檢查是否單擊了鼠標右鍵?ＰｏｐｕｐＭｅｎｕ ｍｎｕＦｉｌｅ ＇把文件菜單顯示為一個彈出式菜單?Ｅｎｄ Ｉｆ?Ｅｎｄ Ｓｕｂ?
       直到菜單中被選取一項或者點擊窗體取消這個菜單時，調用Ｐｏｐ—ｕｐＭｅｎｕ 方法后面的代碼才會運行。注意每次只能顯示一個彈出式菜單。在已顯示一個彈出式菜單的情況下，對后面的調用ＰｏｐｕｐＭｅｎｕ 方法將不予理睬。在一個菜單控件正活動的任何時刻，調用ＰｏｐｕｐＭｅｎｕ方法均不會被理睬。?
    我們常常會用一個彈出式菜單來訪問那些在菜單欄中不常用的選項。為創建一個不顯示在菜單欄里的菜單，可在設計時使頂級菜單項目為不可見（保證在菜單編輯器里的“Ｖｉｓｉｂｌｅ”復選框沒有被選上）。當Ｖｉｓｕａｌ Ｂａｓｉｃ 顯示一個彈出式菜單時，指定的頂級菜單的Ｖｉｓｉｂｌｅ 屬性會被忽略。?
    可是現在我們做一下，會發現這與Ｗｉｎ ９５的上下文菜單還是有些不同，當顯示了一個上下文菜單時，如果不選取一項，而在別的地方單擊鼠標右鍵，就會沒有任何反應。怎么辦呢，我們通過以下過程解決：?Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿ＭｏｕｓｅＤｏｗｎ（Ｂｕｔｔｏｎ Ａｓ Ｉｎｔｅｇｅｒ ，Ｓｈｉｆｔ Ａｓ Ｉｎｔｅｇｅｒ ，＿?ＸＡｓ Ｓｉｎｇｌｅ ，Ｙ Ａｓ Ｓｉｎｇｌｅ）?ＳｅｎｄＫｅｙｓ ＂｛ＥＳＣ｝＂?Ｅｎｄ Ｓｕｂ?
    再試一下，看是不是和Ｗｉｎ ９５的一樣了。記住，要想做一個好的軟件，沒有上下文菜單可是不行的。?（山東省濟寧市公路設計院李飚２７２１１３）

原文轉自：http://www.anti-gravitydesign.com