VB 神童教程第四章第三節——動態增減菜單

2024-07-16 17:58:36

字體：大中小

來源：轉載

供稿：網友

我們在上一節示例的基礎上，來制作如圖一的小程序，每點擊一次“增加信息”命令，菜單上會自動增加一個“信息”菜單，每點擊一次“清除菜單”命令，程序自動清除當前信息菜單；當菜單回復原樣，即只?！靶畔ⅰ辈藛螘r，“清除菜單”無效。

圖一

一、界面設置：

在第二節最終結果的基礎上，創建如圖一的界面，需要注意的是，“信息”菜單(MenuHint)必須在前面的“索引”框中填入數字 0，如圖二：

圖二

在程序中，只要在“索引”文本中輸入了數字，就代表這個菜單成為了一個“菜單數組”，通過這個“菜單數組”可以實現菜單的動態增加與清除。

二、程序代碼：

1、為“信息菜單”指定變量：

對于增加或清除菜單命令，我們可以這樣看：原始的“信息菜單”為 MenuHint(0) ，這也是索引值為 0 的意義所在；那么增加的一個信息菜單就應該為 MenuHint(1)，再增加一個，就應該為 MenuHint(2)，依此類推；清除一個信息菜單也類似，如果當前是 MenuHint(X)，那么清除一個后應該為 MenuHint(X-1)，依此類推。

指定索引值為 HintNumber ，那么增加時，應該是 HintNumber = HintNumber + 1 ；清除時，應該是 HintNumber = HintNumber -1 。

2、變量的作用域：

一個變量的作用域倒底有多大？這得由變量的類型來決定。當一個變量只在某一個過程或事件（如某個按鈕的單擊事件）中起作用，那么它就是局部變量，可以在事件中直接定義；當一個變量可以在整個窗體內供使用，那么它可能是窗體層變量或全局變量，凡是在這個窗體上的事件都可以對這個變量進行引用，這種變量只能在“通用”過程中進行“聲明”。

因為 HintNumber 既要在“增加菜單”事件中引用，又要在“清除菜單”事件中引用，所以我們將它作為窗體層變量在“通用”過程的“聲明”中對其進行定義，如圖三：

圖三

圖三中的代碼如下：

Dim HintNumber As Integer

3、在窗體的載入事件中讓 HintNumber 為初始值 0 ，再加上原來的代碼，結果如圖四：

圖四

4、“增加信息”菜單的 Click 事件：

Private Sub MenuAdd_Click()

HintNumber = HintNumber + 1

Load MenuHint(HintNumber)

MenuHint(HintNumber).Caption = "信息" & HintNumber

End Sub

上面程序的意義在于，先計算 HintNumber + 1 并將結果賦給新的 HintNumber ，然后通過 Load 命令打開一個新菜單 MenuHint(HintNumber) ，并讓新菜單的標題變成“信息X”，其中，X是數字，表示這是第幾個信息菜單。

上一篇：巧用Natata打造心愛的電子書

下一篇：使用Quick CHM軟件輕松編譯CHM格式的文件