[求助]如何设置toolbar控件上某个按钮不可用？？

liuxingyuabc

如何设置toolbar控件上某个按钮不可用？？

一点通

在属性中根据索引点击某按键失效,控件更详尽的说明如下:

彩多工具条----Toolbar控件 在大多数应用程序中都有工具栏。工具栏包含有一些按钮，这些按钮与应用程序菜单中各项的按钮对应，为用户访问应用程序的最常用功能和命令提供了图形界面。在VB5.0中，可以用Toolbar控件来实现这一功能。 Toolbar控件包含一个按钮（Button对象）集合，可以通过将Button对象添加到Buttons集合中的方法来创建工具栏。在设计时可用Toolbar控件的属性页中的“按钮”选项卡上的“插入按钮”和“删除按钮”来插入和删除按钮，并设置按钮的索引、标题、关键字、样式、标记、工具提示文本和图像属性；当然，也可以在运行时用语句指定这些属性。 样式（Style）属性该属性决定Toolbar控件中每个按钮的外观和状态。使用时请注意必须将具有ButtonGroup样式的按钮分组。为区分组，应该将所有具有相同样式(ButtonGroup)的Button对象放置在两个有分隔符样式的Button对象之间。 Button对象为占位符样式时，可以将其它的控件放置在工具栏上。例如，为了在设计时将下拉组合框放在工具栏上，可添加一个具有占位符样式的Button对象，并把它调整到ComboBox控件的大小。然后将ComboBox放置在占位符处。每个Button对象都可有文本或图像，或者兼而有之。图像是由相关联的ImageList控件提供的，可以用Image属性为每个Button对象添加一幅图像；文本则是通过设置每个按钮的Caption属性来显示的。 ImageList属性该属性返回或设置与控件相关的ImageList控件。控件要使用该属性，必须先将ImageList控件放在窗体上，然后在设计时可在相关控件的“属性页”对话框中设置ImageList属性。在运行时可以用以下语句来设置： Set ToolBar1.ImageList=ImageList1 ShowTips属性该属性决定是否允许显示每个按钮的帮助提示。 Wrappable属性该属性决定当重新设置窗口的大小时，Toolbar控件按钮是否自动换行。 Customize方法该方法调用“自定义工具栏”对话框，该对话框允许用户在Toolbar控件上重新安排或隐藏Button对象。当Toolbar控件的AllowCustomize属性为True时，双击工具栏后就会调用Customize方法显示出对话框。我们可以限制用户自定义工具栏的权限。例如，下列代码仅在用户给出密码字时才允许自定义工具栏： Private Sub Command1_Click() If InputBox("assword:")="WYT" Then Toolbar1.Customize     '调用Customize方法。 End If End Sub SaveToolbar方法和RestoreToolbar方法这两个方法的作用分别是把用Toolbar控件创建的工具栏的状态保存在注册表中和将工具栏恢复到原先保存的状态。它们的语法为： Toolbar1.SaveToolbar(keyAsString,subkeyAsString,valueAsString) Toolbar1.RestoreToolbar(keyAsString,subkeyAsString,valueAsString) 这三个参数都是必选参数。其中key是一个字符串表达式，指定了保存的信息在注册表中的关键字；subkey也是一个字符串表达式，指定了在注册表中key参数下的一个子键；value同样是一个字符串表达式，指定了保存在subkey中的Toolbar信息。下列代码将Toolbar1的状态信息保存在HKEY_USERS\.DEFAULT关键字下的WYT子关键字中： Toolbar1.SaveToolbar"","WYT","Toolbar1" 如果指定的子关键字不存在，该语句将在注册表中创建新的子关键字。因为在自定义工具栏之后要发生Toolbar控件的Change事件，所以在大多数情况下，可将上述代码放置在工具栏的Change事件中。下列代码为当前用户恢复Toolbar控件的设置值，不过要确定先前已经用SaveToolbar方法将它们保存起来了。 Toolbar1.RestoreToolbar"","WYT","Toolbar1" 注意当使用RestoreToolbar方法时，任何不包含ImageListListImage对象的工具栏按钮都将消失。用户可再次使用自定义工具栏对话框上的复位按钮使它们可见。为了在运行时添加和删除按钮，可以用Add方法，Clear方法和Remove方法。 Add方法该方法将Button对象添加到Buttons集合中，并返回对新创建对象的引用。下面给出一个简单的程序代码，具体介绍一下如何在运行中添加按钮和图像以及对Click事件作出反应。 Private SubForm1_Load() '为ImageList创建对象变量 Dim imgX As ListImage '将图片加载到ImageList控件中 Set imgX=ImageList1.ListImages.Add(,"open",_ LoadPicture("Graphics\bitmaps\tlbr_w95\open.bmp")) Set imgX=ImageList1.ListImages.Add(,"save",_LoadPicture("Graphics\bitmaps\tlbr_w95\save.bmp")) Toolbar1.ImageList=ImageList1 '为Button创建对象变量 Dim btnX As Button '以下代码是用Add方法将按钮对象添加到Buttons集合中。创建每个按钮后，设置Description和         ToolTipText属性。 Toolbar1.Buttons.Add,,,tbrSeparator Set btnX=Toolbar1.Buttons.Add_(,"open",,tbrDefault,"open") btnX.ToolTipText="OpenFile" btnX.Description=btnX.ToolTipText Set btnX=Toolbar1.Buttons.Add_(,"save",,tbrDefault,"save") btnX.ToolTipText="S

liuxingyuabc

即做到如图所示的效果!!

一点通

将你的例子传上来吧

liuxingyuabc

具体情况如上面2张图片所示，请版主帮帮小弟，谢谢！

tonywong

给你做了一个,自已试一试吧,很简单!

liuxingyuabc

多谢tonywong!又有新问题，请看附件：

点解我按［编辑］再按［存盘］或［取消］后，会变成这样？？？如图




附件：




请各位版主、大侠帮帮小弟。

liuxingyuabc

怎么没人？

sgrshh29

以下是引用liuxingyuabc在2006-2-8 15:06:00的发言：
怎么没人？

为了不要再写代码，稍为动一动位置。

罗春芳

[:36]