VB 神童教程第四章第二節——綜合示例七

2024-07-15 02:01:24

字體：大中小

來源：轉載

供稿：網友

有如圖一這樣一個小程序，通過“菜單”下的色彩設置，可以將窗體的背景分別改為“紅”、“綠”、“藍”色，點擊“菜單”下的“退出”，則自動退出程序。

圖一

一、界面設置：

根據第一節學到的知識，我們制作一個如圖二的菜單。

圖二

需要注意的是，“菜單”為一級，“色彩設置”、“退出”為二級、“紅色”、“綠色”、“藍色”為三級菜單，根據圖二中每行前面點的多少可以判斷出來。

另外，不要忘記勾選“紅”、“綠”、“藍”三種色彩的菜單前的“復選”選項。

二、輸入程序代碼：

1、退出菜單：

在 VB 中，End 是專門用來退出程序的命令，因此，我們在“退出菜單”中輸入如下代碼：

Private Sub MenuQuit_Click()

End

End Sub

這樣，只要點擊本菜單，自動退出程序。

2、復選菜單的判斷：

在 VB 中，可以用如下語法對復選菜單進行判斷：

復選菜單名.Checked = True/False

當值為 True ，復選菜單被選中；值為 False ，菜單未被選中。

3、我們要讓程序在初始狀態下保持本色，在 Form 的裝入事件中輸入以下代碼：

Private Sub Form_Load()

MenuRed.Checked = False

MenuGreen.Checked = False

MenuBlue.Checked = False

End Sub

這段程序，讓三個復選菜單都處于未被選中狀態（在程序運行時起作用，在設計過程中，三個復選菜單始終是處于選中狀態）。

4、當按下紅色菜單（MenuRed）：

Private Sub MenuRed_Click()

MenuRed.Checked = True

MenuGreen.Checked = False

MenuBlue.Checked = False

Form1.BackColor = vbRed

End Sub

這段代碼，讓“紅色菜單”處于選中狀態，而其他顏色的菜單處于未被選中狀態，同時將窗體的背景色變為紅色（VbRed）。

5、當按下綠色菜單（MenuGreen）：

Private Sub MenuGreen_Click()

MenuRed.Checked = False

MenuGreen.Checked = True

MenuBlue.Checked = False

Form1.BackColor = vbGreen

End Sub

綠色菜單處于選中狀態，其他菜單非選中，同時窗體背景色變為綠色。

6、按下藍色菜單：

Private Sub MenuBlue_Click()

MenuRed.Checked = False

MenuGreen.Checked = False

MenuBlue.Checked = True

Form1.BackColor = vbBlue

End Sub

藍色菜單處于選中狀態，其他菜單非選中，同時窗體背景變為藍色。

上一篇：3gp格式轉換器使用教程 3gp格式轉換器怎么用

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