VB6.0快速入门与精通(含100例)(3)

窗体（FormListBox） 我们首先新建一个标准的EXE工程，添加一个窗体，并把列表框和按钮控件添加到窗体上。各按钮控件的名称如下

表：

按钮名称 删除所选项目（左） 增加新项目（左） 清除弄表（左） 右箭头 名称属性 List1movecmd List1addcmd List1clearcmd lefttorightcmd 按钮名称 删除所选项目（右） 增加新项目（右） 清除列表（右） 左箭头 名称属性 List2movecmd List2addcmd List2clearcmd Righttoleftcmd List1列表框 Sorted属性设为“False” ' List2列表框 Sorted属性设为“True” ' MultiSelect属性

设置为2 ' 即List2

控件中的项目总是排序的

在属性窗口中，将List1列表框 Sorted属性设为“False”；List2列表框 Sorted属性设为“True”，MultiSelect属性设置为2，即List2控件中的项目总是排序的。 下一步我们为各控件添加相应的程序。 其中：

List1.AddItem \是将“China”添加到列表框中。

List1.ListIndex 返回的是列表框List1中当前选择项目的索引号码。 List1.ListCount 返回的是列表框List1中项目总数。

List1.ListCount - 1 返回列表框List1中最后一个项目的索引号。 List1.Selected() 返回的是一个项目的选择状态，返回的是布尔值。

代码写好之后，我们就可以保存工程，然后按“Ctrl+F5”键，测试检验一下我们的程序了。在这个小程序中，包含了列表框中的一般常用属性和方法。

CommomDialog使用的例子

CommonDialog控件是常用的一个控件，它为我们提供了打开、另存为、字体、颜色、打印、帮助等几种类型的标准对话框，本例演示了所有这些类型的对话框的使用方法。 为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码：

'-------------------------------------------' 通用对话框使用方法全解'-------------------------------------------' 洪恩在线 求知无限'-------------------------------------------'------名称-----------------作用-------------' CdlTest 通用对话框' CmdOpen “打开”对话框按钮' CmdSave “另存为”对话框按钮

如果控件面板中没有CommonDialog控件的小图标，必须先从“添加控件对话框”中添加，下面我们来看看怎样调用不同类型的对话框。

CommonDialog控件有一系列的Show方法，例如：ShowOpen、ShowSave、ShowFont、ShowColor、ShowPrinter、ShowHelp等，这些方法的使用语法是类似的，如下所示：

object.ShowOpen，我们只须在程序中写入这个语句，就能调出“打开”对话框，同样也能调用其它类型的对话框。

而CommonDialog控件的属性是和不同的对话框类型紧密相关的，有些属性只适用于某一类对话框，有些属性在不同的对话框中的属性是有差别的，所以下面分类列出了和不同对话框相关联的属性的用法。

与ShowOpen、ShowSave方法相关的属性：

●FileName属性：返回或设置所选文件的路径和文件名，如果在使用Show方法以前使用FileName属性，则设定了对话框的默认文件名；如果是在以后使用则返回选择的文件名。 使用语法是： CommonDialog.Filename[=pathname]

●Filter属性：返回或设置在对话框的类型列表框中所显示的过滤器(也就是限定打开或保存为的文件类型)，它的使用语法是：

object.Filter [= 描述文字1 |过滤标示1 |描述文字2 |过滤标示2]

其中描述文字为任意文字，而 过滤标示则采用*.文件后缀(例如：*.bmp)的格式，描述文字和过滤标示之间用“|”隔开。

●DefaultExt属性：为该对话框返回或设置缺省的文件扩展名，也就是当我们没有指定打开或保存的文件类型时，按DefaultExt属性所设置的扩展名为默认值。 与ShowFont方法相关的属性：

●Color选定的颜色。为使用此属性，必须先将Flags属性设置为cdlCFEffects。 ●FontBold 是否选定“粗体”。 ●FontItalic 是否选定“斜体”。 ●FontStrikethru 是否选定删除线。 ●FontUnderline 是否选定下划线。 ●FontName 选定的字体名称。 ●FontSize 选定的字体大小。

使用的语法是直接引用，比如我们要根据“字体对话框”返回的值设置文本框的字体，则直接采用语句：Text.Font=CommonDialog.FontnName 与ShowColor方法相关的属性：

●Color选定的颜色。为使用此属性，必须先将Flags属性设置为cdlCFEffects。 与ShowHelp方法相关的属性：

●HelpCommand属性 返回或设置需要的联机帮助的类型 ●HelpFile属性 确定帮助文件的路径和文件名 语法是： object.HelpFile[ = filename]

下面看看CancelError属性，它设置当选取“取消”按钮时是否认为出错，使用的语法是：CommonDialog.CancelError[= boolean] (boolean指布尔型变量)

如果我们把它设为True，则当使用者选取了“取消”按钮时程序会返回一个cdlCancel错误，通过捕捉这个错误并加以处理，我们就能避免程序的出错。具体的使用可在源码中看到实例。

在状态栏中显示帮助信息

状态栏是VB中的一个很有用的控件，但是默认状态下它不在控件面板中，在我们使用它之前必须先添加，方法是按下Ctrl+T快捷键，在弹出的“Components”对话框中选中MS Windows Common Controls。这时在控件面板中会出现状态栏的小图标，双击此图标就能把它添加到窗体中。

接下来我们根据自己的需要来编辑状态栏，选中窗体上的状态栏，在鼠标右键菜单中选择“属性Properties”，这时会弹出如上图所示的对话框，我们选择“Panels窗格”。其中“Insert Panel”按钮用来添加状态栏中的窗格数目，当我们添加一个窗格后“Index”的值也会自动加一，在程序中我们通过窗格的索引值来引用窗格。下面的一些项目都是窗格的属性，我们可以在此设置也可在程序中控制它。比较常用的属性有：

“Text”--在各个窗格中显示的文字； “Alignment”--窗格中文本的对齐方式；

“Style”窗格的样式(选择0-sbrText为显示文本，选择6-sbrDate为显示日期等等)； “Bevel”--窗格的凹凸状态。

另外我们还可以在窗格中加入图片，方法是点击“Browse”然后选中图片文件。

在本程序中我们在第一个窗格中动态显示帮助信息，在第二、三个窗格中分别显示日期和时间。那么怎样在程序中控制状态栏中显示的文本呢？

例如我们希望鼠标移动到不同的按钮上时状态栏的第一个窗格中显示不同的帮助，则我们在按钮的OnMouseOver事件中加入如下语句即可：

Private Sub CmdNew_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) staSample.Panels(1).Text = \

staSample.Panels(1).Text = \清空文本框\ End Sub 同样的我们能按钮等控件添加帮息。 为了学习方供的源码已经作了中文注释，看看源的代码：

便，提详细的码框中为其它助信

'--------------------------------------' 一个使用StatusBar的例子'--------------------------------------' 洪恩在线 求知无限'--------------------------------------'------名称-------------作用------------' CmdItalic “斜体”按钮' CmdBold “粗体”按钮' CmdExit “退出”按钮这样状态栏中就能动态显示帮助信息了。

使用右键菜单的例子

右键菜单能让软件的使用者快捷的完成操作，那么如何把右键菜单用在自己写的程序中呢？在这个小程序中我们能看到编辑并使用右键菜单的方法。

为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码：

'--------------------------------------' 弹出鼠标右键菜单'--------------------------------------' 洪恩在线 求知无限'--------------------------------------'------名称-------------作用------------' CmdCancel 退出按钮' mnublue “兰色”菜单项' mnured “红色”菜单项

我们先打开菜单编辑器(在工具菜单中)，然后添加一个一级菜单Popmenu，将它的Visible属性设为“False”，这代表菜单在程序运行时是看不到的，由于一级菜单是二级菜单的上级菜单，所以二级菜单也是看不到的。然后我们来添加几个二级菜单，注意每个菜单都有Caption属性和Name属性，这两个属性是必须写的，Caption属性是显示在菜单项上的内容，而Name属性则是我们要在程序中引用菜单项的代号，类似与其它控件的Name属性。而菜单中分隔线是通过把Caption属性设为“-”来实现的。

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB6.0快速入门与精通(含100例)(3)在线全文阅读。