视频加载中...

今天学习了刘金玉老师零基础VB教程的第46期-47期，学习的主要内容如何制作自己的记事本（主要是toolbar控件、imagelist控件和CommonDialog控件的运用）。

一、toolbar、imagelist和CommonDialog控件

1.toolbar、imagelist和CommonDialog控件的运用

toolbar控件用于工具条的功能项，imagelist控件用来提供一组图片，这里我们用来为toolbar提供图标。CommonDialog控件为我们打开保存文件等。默认的VB6.0编程软件中，没有添加toolbar控件和CommonDialog控件，需要我们在控件栏单击右键，选择Microsoft Windows common controls 6.0和Microsoft common dialog controls 6.0添加到控件栏。

2.toolbar控件新建按钮通过在toolbar控件栏上单击右键选择属性-在按钮栏插入按钮实现按钮添加，并在图像栏输入需要的图标索引号进行引用，如果该按钮需要添加二级菜单需要将按钮的样式设置为5-tbrdropdown，并在按钮菜单中插入二级按钮菜单。

3.在VB自带的图标库中选择需要的图标加入到imagelist中，单击imagelist控件右键选择属性，在图像栏中插入需要的图标备用，每个图片都有相应的索引号，在toolbar中新建按钮时候直接输入图标的索引号即引用图标。

二、案例：制作一个自己的记事本

1.如图新建text、toolbar、imagelist和CommonDialog控件各一个。

2.输入代码：

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

If Button.Caption = "新建" Then

Text1.Text = ""

ElseIf Button.Caption = "打开" Then

CommonDialog1.Filter = "*.txt"

CommonDialog1.ShowOpen

Dim filep$

filep = CommonDialog1.FileName

Text1.Text = ""

Open filep For Input As #1

Do Until EOF(1)

Dim t$

Line Input #1, t

Text1.Text = Text1.Text & t & vbCrLf

Loop

Close #1

ElseIf Button.Caption = "保存" Then

CommonDialog1.Filter = "*.txt"

CommonDialog1.ShowSave

Dim filepp$

filepp = CommonDialog1.FileName

Open filepp For Output As #2

Print #2, Text1.Text

Close #2

ElseIf Button.Caption = "字体" Then

CommonDialog1.ShowFont

Text1.FontName = CommonDialog1.FontName

Text1.FontSize = CommonDialog1.FontSize

ElseIf Button.Caption = "颜色" Then

CommonDialog1.ShowColor

Text1.ForeColor = CommonDialog1.Color

ElseIf Button.Caption = "打印" Then

'CommonDialog1.Showprint

ElseIf Button.Caption = "帮助" Then

CommonDialog1.ShowHelp

End If

End Sub

3.运行效果详见视频。