学习vb课件第十章

第10章菜单与工具栏使用菜单下拉式菜单弹出式菜单使用工具栏用手工方式制作工具栏使用Toolbar控件与ImageList控件习题十10.1

使用菜单10.1.1

下拉式菜单1.

菜单编辑器【例10-1】为例4-15中的电子标题板增加一个菜单，利用菜单来控制标题板的内容、字体、字体风格等，如图10-4所示。图10-4

利用菜单控制标题板只需在例4-15的基础上作如下修改：打开菜单编辑器，按照表10-3设计菜单项。编写菜单项代码。编写“文本内容”项Txt的Click事件代码：Private

Sub

Txt_Click()temp=InputBox("请输入标题板的新内容","输入",Label1.Caption)If

temp<>""ThenLabel1.Caption

=

tempEnd

IfEnd

Sub编写“文本字体”中4个菜单选项的Click事件代码：Private

Sub

song_Click()Label1.FontName="宋体"End

SubPrivate

Sub

li_Click()Label1.FontName="隶书"End

SubPrivate

Sub

kai_Click()Label1.FontName="楷体_GB2312"End

SubPrivate

Sub

hei_Click()Label1.FontName="黑体"End

Sub编写“文本风格”中3个菜单选项的Click事件代码：Private

Sub

bld_Click()bld.Checked

=

Not

bld.CheckedLabel1.FontBold

=

bld.CheckedEnd

SubPrivate

Sub

Itl_Click()Itl.Checked

=

Not

Itl.CheckedLabel1.FontItalic

=

Itl.CheckedEnd

SubPrivate

Sub

Undrln_Click()Undrln.Checked

=

Not

Undrln.CheckedLabel1.FontUnderline

=

Undrln.CheckedEnd

Sub图10-5

使用菜单的简单编辑器菜单控件数组【例10-2】将例9-2中的命令按钮改为菜单控制，并在此基础上增加

“编辑”子菜单。使用菜单控件数组设计的文本编辑器，如图10-5所示只需在例9-2的基础上作如下修改：将“公共对话框”控件移至窗体中（原来在图片框中），并把图片框Picture1连同其中的命令按钮组一同删除。打开菜单编辑器(3)

编写菜单项代码。编写“编辑”菜单中的菜单控件数组Edi的Click事件代码：Private

Subedi_Click(Index

AsInteger)i

=

IndexSelect

Case

i'剪切'复制'粘贴'删除Case

0Clipboard.SetText

Text1.SelTextText1.SelText

=""Case

1Clipboard.SetText

Text1.SelTextCase

2Text1.SelText

=

Clipboard.GetText()Case

3Text1.SelText

=""End

SelectEnd

Sub10.1.2

弹出式菜单为了显示“弹出式菜单”，可以使用PopupMenu方法，语法为[〈窗体名〉.]

PopupMenu〈菜单名〉[,

flags

[,x

[,

y

[, mand

]]]]【例10-4】在例10-1中实现弹出式菜单（如图10-8）。图10-8

自定义的弹出式菜单只需增加标签和窗体的MouseDown事件代码：Private

Sub

Label1_MouseDown(Button

As

Integer,

Shift

AsInteger,

X

As

Single,

Y

As

Single)If

Button

=

2

ThenPopupMenu

Styl,

6End

IfEnd

SubPrivate

Sub

Form_MouseDown(Button

As

Integer,

Shift

AsInteger,

X

As

Single,

Y

As

Single)If

Button

=

2

ThenPopupMenu

Nam,

6End

IfEnd

Sub图10-9

文本框的“弹出式菜单”10.2

使用工具栏10.2.1

用手工方式制作工具栏【例10-5】在例10-3的文本编辑器中增加一个自定义的工具栏（如图10-10）。在例10-3的基础上作如下修改：修改应用程序用户界面。设置新增对象属性修改及编写程序代码。图10-10

带有工具栏的文本编辑器修改窗体的事件代码：

Private

Sub

Form_Resize()With

Text1.Left

=

0.Top

=

Picture1.Height.Height

=

Form1.ScaleHeight

-

Picture1.Height.Width

=

Form1.ScaleWidthEnd

WithEnd

Sub编写命令按钮数组Command1()的Click事件代码：

Private

Sub

Command1_Click(Index

AsInteger)File_Click

(Index)End

Sub10.2.2

使用Toolbar控件与ImageList控件【例10-6】在例10-5的文本编辑器中改用工具栏控件设计新的工具栏（如图10-15）。在例10-5的基础上作如下修改：修改应用程序用户界面。通过“属性页”对话框来设置工具栏控件与图像列表控件的属性。修改及编写程序代码。修改窗体的事件代码：Private

Sub

Form_Resize()With

Text1.Top

=

Toolbar1.Height.Left

=

0.Height

=

Form1.ScaleHeight

-

Toolbar1.Height.Width

=

Form1.ScaleWidthEnd

WithEnd

Sub编写工具栏按钮的事件代码：Private

Sub

Toolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)n

=

Button.IndexSelect

Case

nCase

2,

3,

4File_Click

(n

-2)Case

6Text1.FontBold

=

Button.ValueCase

7Text1.FontItalic

=

Button.ValueCase

8Text1.FontUnderline

=

Button.ValueEnd

SelectEnd

Sub习题十简述在窗体中添加菜单的一般方法在例10-1中增加一个“颜色”菜单，包含“窗体颜色”、

“文本颜色”两项。使得程序运行时可以调整窗体或文本的颜色。为例10-3中的文本编辑器增加一个“字体”子菜