VB 神童教程第四章第三節(jié)——動態(tài)增減菜單

2024-07-16 17:58:36

字體：大中小

供稿：網(wǎng)友

我們在上一節(jié)示例的基礎(chǔ)上，來制作如圖一的小程序，每點(diǎn)擊一次“增加信息”命令，菜單上會自動增加一個“信息”菜單，每點(diǎn)擊一次“清除菜單”命令，程序自動清除當(dāng)前信息菜單；當(dāng)菜單回復(fù)原樣，即只剩“信息”菜單時，“清除菜單”無效。

圖一

一、界面設(shè)置：

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

圖二

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

二、程序代碼：

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

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

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

2、變量的作用域：

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

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

圖三

圖三中的代碼如下：

Dim HintNumber As Integer

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

圖四

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

Private Sub MenuAdd_Click()

HintNumber = HintNumber + 1

Load MenuHint(HintNumber)

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

End Sub

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

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

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