《Visual Basic程序设计项目化案例教程》课件第8章.ppt

三、操作步骤

1．创建程序界面

(1)启动VisualBasic6.0，新建一个“标准EXE”工程。

(2)在窗体上添加一个文本框控件，两个组合框控件。

(3)打开菜单编辑器窗口设计菜单，菜单的各项设置如表8-4所示。表8-4设?置?各?菜?单(4)选择“工程”－“部件”菜单命令，选出“部件”对话框，在“控件”选项卡的下拉列表框中选中“MicrosoftWindowsCommonControls6.0”复选框，然后单击“确定”按钮，将ToolBar控件与ImageList控件添加到常用工具箱中。

(5)双击常用工具箱中的ToolBar和ImageList控件，在窗体上添加这两个控件。

(6)按照ImageList控件的使用方法，在该控件中添加7张图片，并为每张图片建立一个索引号(参见图8-4)。(7)按照ToolBar控件的使用方法，利用图8-5所示的“图像列表”文本框将ToolBar和ImageList控件相关联，利用图8-6所示的“插入按钮”在该控件中添加7个命令按钮，并为每个按钮建立一个索引号，再利用“图像”文本框将ImageList控件中的图片与ToolBar控件中的命令按钮相对应。

2．属性的设置与修改

按照表8-5所列设置或修改对象的属性。表8-5对象属性的设置3．程序代码设计

1)窗体加载事件的代码

PrivateSubForm_Load()

Text1.Text=“这是一个利用菜单与工具条控件设计的简单文本编辑器，它可以实现文件的新建、剪切、复制、删除以及字体格式设置等功能。”

Combo1.AddItem10

Combo1.AddItem12

Combo1.AddItem20

Combo2.AddItem“隶书”

Combo2.AddItem“华文新魏”

Combo2.AddItem“宋体”

EndSub2)各菜单项的代码设计

PrivateSubNew_Click() 新建菜单项的代码

Text1.Text=

EndSub

PrivateSubExit_Click() 退出菜单项的代码

End

EndSubPrivateSubCut_Click() 剪切菜单项的代码

Clipboard.Clear

Clipboard.SetTextText1.SelText

Text1.SelText=

EndSub

PrivateSubCopy_Click() 复制菜单项的代码

Clipboard.Clear

Clipboard.SetTextText1.SelText

EndSubPrivateSubPast_Click() 粘贴菜单项的代码

Text1.SelText=Clipboard.GetText

EndSub

PrivateSubFontSize10_Click() 字号菜单的代码

Text1.FontSize=10

EndSub

PrivateSubFontSize12_Click()

Text1.FontSize=12

EndSubPrivateSubFontSize20_Click()

Text1.FontSize=20

EndSub

PrivateSubHWXW_Click() 字体菜单的代码

Text1.FontName=华文新魏

EndSub

PrivateSubLishu_Click()

Text1.FontName=隶书

EndSubPrivateSubSongTi_Click()

Text1.FontName=宋体

EndSub

PrivateSubFontBold_Click() 字形中加粗菜单项的代码

IfText1.FontBold=TrueThen

Text1.FontBold=False

Else

Text1.FontBold=True

EndIf

EndSubPrivateSubFontItalic_Click()字形中倾斜菜单项的代码

IfText1.FontItalic=TrueThen

Text1.FontItalic=False

Else

Text1.FontItalic=True

EndIf

EndSub3)工具条的代码

PrivateSubToolbar1_ButtonClick(ByVal