VB 神童教程第四章第三節(jié)——?jiǎng)討B(tài)增減菜單

2024-07-15 02:01:24

字體：大中小

供稿：網(wǎng)友

我們?cè)谏弦还?jié)示例的基礎(chǔ)上，來(lái)制作如圖一的小程序，每點(diǎn)擊一次“增加信息”命令，菜單上會(huì)自動(dòng)增加一個(gè)“信息”菜單，每點(diǎn)擊一次“清除菜單”命令，程序自動(dòng)清除當(dāng)前信息菜單；當(dāng)菜單回復(fù)原樣，即只剩“信息”菜單時(shí)，“清除菜單”無(wú)效。

圖一

一、界面設(shè)置：

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

圖二

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

二、程序代碼：

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

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

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

2、變量的作用域：

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

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

圖三

圖三中的代碼如下：

Dim HintNumber As Integer

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

圖四

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

Private Sub MenuAdd_Click()

HintNumber = HintNumber + 1

Load MenuHint(HintNumber)

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

End Sub

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

上一篇：巧用Natata打造心愛(ài)的電子書(shū)

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