在VB中制作图标按钮的四种方法

合集下载

使用 VBA 创建自定义工具栏和功能按钮

使用 VBA 创建自定义工具栏和功能按钮

使用 VBA 创建自定义工具栏和功能按钮自动化办公已经成为现代工作生活中必不可少的一部分。

为了提高工作效率,Microsoft Office 中的VBA(Visual Basic for Applications)成为了非常有用的工具。

在本文中,我们将学习如何使用VBA创建自定义工具栏和功能按钮,以便更好地适应我们的任务需求。

首先,让我们了解一下VBA是什么。

VBA是一种编程语言,专门用于Microsoft Office套件中的自动化任务和自定义应用程序。

通过使用VBA,我们可以根据自己的需求创建自定义功能,从而提高我们的工作效率。

创建自定义工具栏是使用VBA的第一步。

通过自定义工具栏,我们可以将我们最常用的命令和功能组织成一个便捷的工具栏,以便我们可以更轻松地使用这些功能。

下面是一些创建自定义工具栏的步骤:1. 打开Microsoft Office应用程序(如Word、Excel或PowerPoint)并进入“开发”选项卡(如果没有,需要先启用它)。

点击“自定义工具栏”按钮,选择“新建工具栏”。

2. 在弹出的对话框中,输入工具栏的名称,并选择工具栏的位置(例如,将其放置在菜单栏或快速访问工具栏下方)。

点击“确定”。

3. 打开VBA编辑器(按下Alt + F11),在左侧的“VBAProject”窗格中选择要编辑的文档(例如,“ThisWorkbook”或“Sheet1”)。

点击“插入”,然后选择“模块”。

4. 在新插入的模块中,我们可以编写与我们想要添加到工具栏的命令和功能对应的VBA代码。

例如,如果我们想要添加一个剪切文本的按钮,我们可以编写以下代码:```Sub CutText()Selection.CutEnd Sub```5. 保存并关闭VBA编辑器。

我们会回到Microsoft Office应用程序的主界面。

6. 右击自定义工具栏,选择“自定义工具栏”>“新建命令”,在弹出的对话框中选择“宏”,然后选择我们在VBA编辑器中创建的宏(在上面的例子中是“CutText”)。

VBA自定义工具栏和按钮设计方法

VBA自定义工具栏和按钮设计方法

VBA自定义工具栏和按钮设计方法在Microsoft Office套件中,VBA(Visual Basic for Applications)是一个强大的编程语言,它允许用户自定义各种自动化和扩展功能。

其中之一就是自定义工具栏和按钮。

本篇文章将探讨VBA中自定义工具栏和按钮的设计方法。

一. 创建自定义工具栏自定义工具栏是一组自定义按钮的集合,用于在Office应用程序中方便地访问常用功能和宏。

以下是创建VBA自定义工具栏的步骤:1. 打开VBA编辑器首先,打开你想要自定义工具栏的Office应用程序(如Word、Excel 等),然后按下Alt + F11打开VBA编辑器。

2. 插入自定义工具栏在VBA编辑器中,点击“插入”选项卡,然后选择“用户窗体”菜单下的“工具栏”选项。

这将插入一个自定义工具栏。

3. 重命名和自定义工具栏选中新插入的自定义工具栏,然后在“属性”窗口中将其名称更改为你喜欢的名称。

接下来,右键单击工具栏并选择“定制”,你将能够在弹出的对话框中自定义工具栏的按钮。

4. 添加按钮在“定制”对话框中,选择“新命令”按钮,然后从命令列表中选择一个你想要添加到工具栏中的命令。

你还可以选择图标和提示,以及可选的快捷键。

点击“确定”将按钮添加到工具栏。

5. 完成完成后,关闭VBA编辑器。

现在,你将在Office应用程序的工具栏上看到你自定义的工具栏。

你可以拖动它到任何你希望它出现的位置。

二. 创建自定义按钮除了自定义工具栏,你还可以直接在工具栏上创建单独的自定义按钮。

以下是创建自定义按钮的步骤:1. 打开VBA编辑器同样地,首先打开Office应用程序,按下Alt + F11打开VBA编辑器。

2. 选择宿主工具栏在VBA编辑器中,点击菜单栏上的“工具”选项,然后选择“自定义工具栏”进行编辑。

你也可以通过右键单击任何现有工具栏上的空白区域,选择“自定义...”来进行编辑。

3. 添加按钮在自定义工具栏编辑模式下,选择要放置按钮的位置,然后右键单击,选择“定制对话框...”来打开按钮定制对话框。

使用Visual Basic建立命令图标按钮的三种方法

使用Visual Basic建立命令图标按钮的三种方法

使用Visual Basic建立命令图标按钮的三种方法
李大琪
【期刊名称】《电子与电脑》
【年(卷),期】1996(003)012
【摘要】使用过许多Windows应用软件后,我们发现命令图标按钮简直成了Windows应用程序的标准配置,没有它任何。

Windows应用软件都都会黯然失色,这话一点儿都不过分。

命令图标按钮不仅美观、生动,而且它提供了一些常用的命令。

一方面省去了用户多次点击菜单的烦琐步骤,另一方面也使用户免去了强记一些命令快捷键的不便,真是人见人爱。

【总页数】3页(P34-36)
【作者】李大琪
【作者单位】无
【正文语种】中文
【中图分类】TP316
【相关文献】
1.Windows环境下建立VISUAL BASIC图标集 [J], 郝聚民;陈明
2.在Excel文档中应用Visual Basic命令按钮 [J], 张启英
3.在Excel文档中应用Visual Basic命令按钮 [J], 张启英
4.VISUAL BASIC 实用编程技巧(二)——VB菜单程序及工具条(图标命令按纽)的设计 [J], 李晓华
5.使用Visual Basic实现任务栏状态区图标 [J], 高波
因版权原因,仅展示原文概要,查看原文内容请购买。

在VB中制作图标按钮的四种方法

在VB中制作图标按钮的四种方法

在VB中制作图标按钮的四种方法2010-07-19 17:31发信人:h u a n g h m(东方不败),信区:P r o g r a m标题:V B中图标按钮的制作发信站:深大荔园晨风站(T u e J a n1311:11:081998),转信现在大多数W i n d o w s应用程序的功能都比较丰富,相应的菜单结构也比较复杂。

一些操作命令往往要打开好几层菜单。

尤其是一些常用的操作命令,因其使用较频繁,即使仅打开一层菜单,从中选择一项也是比较麻烦的。

因此现在绝大多数W i n d o w s应用程序中除了菜单之外,还配备了工具栏。

工具栏中有与常用菜单命令相对应的按钮,按这些按钮的效果和选择菜单命令的效果完全一样。

工具栏中的按钮和普通按钮不同的是,它们不用文本字符串,而是用图标来标明按钮的功能。

这种图标按钮的好处是省地方,菜单命令往往比较冗长,而工具栏提供的空间又十分有限。

使用图标按钮最大的好处还在于其直观形象性,这与W i n d o w s图形用户界面(G U I)方便用户、简化操作的目标是一致的。

W i n d o w s系统提供的标准按钮(如O K、C a n c e l等)中只能显示文本字符串。

在V i s u a l B a s i c(以下简称为V B)中,按钮是使用工具箱中的命令按钮控件C o m m a n d B u t t o n来实现的。

C o m m a n d B u t t o n使用的是W i n d o w s系统提供的标准按钮控件,因而无法装入图标。

下面介绍在V B中实现图标按钮的几种方法。

一、使用标准控件实现图标按钮V B的标准控件中,能够装入图形的只有I m a g e(图像)和P i c t u r e B o x(图片框)两种。

I m a g e的功能较简单,占用系统资源较少。

P i c t u r e B o x的功能很丰富,可以将它看作是I m a g e的一个“超集”,它占用的系统资源当然就要多一些。

VB教程:命令按钮(CommandButton)

VB教程:命令按钮(CommandButton)

4、命令按钮(Command Button) 作⽤:⽤于开始、中断或结束⼀个按钮。

(1)常⽤属性Caption属性Style属性visible =false ' 按钮不可见enabled=true ' 按钮⽆效default =true ' 使按钮成为缺省的“活动按钮”,可⽤enter键选中cancel =true ' 使按钮成为缺省的“取消按钮”,可⽤esc键选中注意:在⼀个窗体中,只能有⼀个命令按钮可以设为缺省的“活动按钮”,也只能有⼀个命令按钮可以设为缺省的“取消按钮”。

Picture '加载⼀幅图⽚有时.我们可能还需要在命令按钮上显⽰某个图案以使界⾯显得活泼⽣动,要制作这样的按钮,需要设置它的两个属性;styLe属性和Picture属性。

我们先将该命令按钮的style属性设置为1(GraPhical),再通过其Picture属性加载⼀幅图⽚即可,如图显⽰了⼀个带图案的命令按钮。

(2)主要事件最主要的事件是单击(Click)事件。

(3)常⽤⽅法Print⽅法:⽤于在窗体、图⽚框和打印机上显⽰⽂本。

其语法格式为:object.Print [outputlist]Cls⽅法:⽤来清除运⾏时窗体或图⽚框所⽣成的图形和⽂本。

其语法格式为:object.ClsMove⽅法:⽤于移动窗体或控件,并可以改变其尺⼨⼤⼩,其语法格式为:object.Move left, top, width, height其中:object:可选项。

表⽰移动窗体或控件。

⼀个对象表达式,其值为“应⽤于”列表中的⼀个对象。

如果省略object,带有焦点的窗体缺省为 object。

Left:必需项。

指⽰ object 左边的⽔平坐标 (x-轴)。

Top:可选项。

指⽰ object 顶边的垂直坐标 (y-轴)。

Width:可选项。

指⽰ object 新的宽度。

Height:可选项。

指⽰ object 新的⾼度。

用VB实现浮动按钮

用VB实现浮动按钮

在微软的很多软件(如WORD)的工具栏中,都采用一种浮动按钮,即正常情况下按钮的图标呈灰色,当鼠标移动到某一按钮上时,该按钮自动向上凸起且变为彩色,并在按钮的右下方有一标签提示该按钮的功能,鼠标移开后又自动还原,这种按钮用VB实现时,方法如下:1.先用绘图工具作出按钮图标后存盘(如1.BMP),再用图像处理软件将该图标转换为灰度图或浮雕图后再存盘(如2.BMP)。

2.运行VB,建立一新窗体(如FORM1)。

3.在窗体上需要建立按钮的位置处建立一图片框(如IMAGE1),其大小和图标相同,并将其PICTURE属性设为2.BMP。

4.在IMAGE1周围建立由四个长度相同的LINE控件(如LINE1~4)组成的方框,方框要比IMAGE1控件稍大,否则达不到预计效果,将上面和左边的颜色设成白色,下面和右边的设成黑色,并将四个LINE控件的VISIBLE属性都设成FALSE。

5.在程序中加入以下内容即可:PrivateSubImage1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAs Single,YAsSingle)Image1 Picture=LoadPicture(″c:\1 bmp″)Line1 Visible=TrueLine2 Visible=TrueLine3 Visible=TrueLine4 Visible=TrueEndSubPrivateSubForm1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSi ngle,YAsSingle)Image1 Picture=LoadPicture(″c:\2 bmp″)Line1 Visible=FalseLine2 Visible=FalseLine3 Visible=FalseLine4 Visible=FalseEndSub6.实现动态提示的方法,《电脑报》已刊登过,此处不再重复。

VBA如何在菜单栏上添加按钮

VBA如何在菜单栏上添加按钮

VBA如何在菜单栏上添加按钮主菜单上添加⾃定义按钮Sub addbtn()Set myMenu = mandBars("worksheet menu bar")Set Button = myMenu.Controls.Add(Type:=msoControlButton)Button.Caption = "Caption" '按钮上的⽂字,填写你需要的Button.Style = msoButtonIconAndCaptionButton.FaceId = FaceId '按钮图标,数字⽐如8,系统存在的Button.OnAction = "OnAction" '按钮执⾏的宏名,填写你⾃⼰的宏名End SubIf C < 7 Or C > 8 Or r < 6 Then Exit Sub如果上⾯结果为true,那么Application.EnableEvents = False,以后就不现响应 Worksheet_Change,改为下⾯代码试⼀下:If C < 7 Or C > 8 Or r < 6 ThenApplication.EnableEvents = TrueExit SubEnd If你好:請參考:1.新增⼀個增益級專案(COM Addin)取名為 AddinXL,並寫⼊以下程式碼Option ExplicitImplements IDTExtensibility2Private Sub IDTExtensibility2_OnAddInsUpdate(custom() As Variant)End SubPrivate Sub IDTExtensibility2_OnBeginShutdown(custom() As Variant)End SubPrivate Sub IDTExtensibility2_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant) Set xlapp = ApplicationSet MenuEvents = New ToolsMenuEventsMenuEvents.CreateMenuItemsEnd SubPrivate Sub IDTExtensibility2_OnDisconnection(ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)MenuEvents.DeleteMenuItemsEnd SubPrivate Sub IDTExtensibility2_OnStartupComplete(custom() As Variant)End Sub2.新增⼀個Class 模組,取名為 ToolsMenuEvents,並寫⼊以下程式碼Private WithEvents btnMenuItem1 As mandBarButtonPrivate WithEvents btnMenuItem2 As mandBarButtonPrivate WithEvents btnMenuItem As mandBarButtonSub CreateMenuItems()With mandBars(1).Controls.Add(Type:=msoControlPopup, Temporary:=True).Caption = "MyToolBar"Set btnMenuItem1 = .Controls.AddWith btnMenuItem1.Caption = "計算".BeginGroup = TrueEnd WithSet btnMenuItem2 = .Controls.AddWith btnMenuItem2.Caption = "統計".BeginGroup = FalseEnd WithEnd WithEnd SubSub DeleteMenuItems()On Error Resume NextmandBars(1).Controls("MyToolBar").DeleteEnd SubPrivate Sub btnMenuItem1_Click(ByVal Ctrl As mandBarButton, CancelDefault As Boolean)MsgBox "計算"End SubPrivate Sub btnMenuItem2_Click(ByVal Ctrl As mandBarButton, CancelDefault As Boolean)MsgBox "統計"End Sub3.新增⼀個Module,並宣告以下變數Option ExplicitOption Private ModulePublic xlapp As Excel.ApplicationPublic MenuEvents As ToolsMenuEvents4.將此專案名稱更名為TestToolsMenuEvents完成後如附圖所⽰。

VB教程:命令按钮(CommandButton)

VB教程:命令按钮(CommandButton)

VB教程:命令按钮(CommandButton)4、命令按钮(Command Button)作用:用于开始、中断或结束一个按钮。

(1)常用属性Caption属性Style属性visible =false ' 按钮不可见enabled=true ' 按钮无效default =true ' 使按钮成为缺省的“活动按钮”,可用enter键选中cancel =true ' 使按钮成为缺省的“取消按钮”,可用esc键选中注意:在一个窗体中,只能有一个命令按钮可以设为缺省的“活动按钮”,也只能有一个命令按钮可以设为缺省的“取消按钮”。

Picture '加载一幅图片有时.我们可能还需要在命令按钮上显示某个图案以使界面显得活泼生动,要制作这样的按钮,需要设置它的两个属性;styLe属性和Picture属性。

我们先将该命令按钮的style属性设置为1(GraPhical),再通过其Picture属性加载一幅图片即可,如图显示了一个带图案的命令按钮。

(2)主要事件最主要的事件是单击(Click)事件。

(3)常用方法Print方法:用于在窗体、图片框和打印机上显示文本。

其语法格式为:object.Print [outputlist]Cls方法:用来清除运行时窗体或图片框所生成的图形和文本。

其语法格式为:object.ClsMove方法:用于移动窗体或控件,并可以改变其尺寸大小,其语法格式为:object.Move left, top, width, height其中:object:可选项。

表示移动窗体或控件。

一个对象表达式,其值为“应用于”列表中的一个对象。

如果省略object,带有焦点的窗体缺省为 object。

Left:必需项。

指示 object 左边的水平坐标 (x-轴)。

Top:可选项。

指示 object 顶边的垂直坐标 (y-轴)。

Width:可选项。

指示 object 新的宽度。

在VB中制作图标按钮的四种方法

在VB中制作图标按钮的四种方法

在VB中制作图标按钮的四种方法2010-07-19 17:31发信人:h u a n g h m(东方不败),信区:P r o g r a m标题:V B中图标按钮的制作发信站:深大荔园晨风站(T u e J a n1311:11:081998),转信现在大多数W i n d o w s应用程序的功能都比较丰富,相应的菜单结构也比较复杂。

一些操作命令往往要打开好几层菜单。

尤其是一些常用的操作命令,因其使用较频繁,即使仅打开一层菜单,从中选择一项也是比较麻烦的。

因此现在绝大多数W i n d o w s应用程序中除了菜单之外,还配备了工具栏。

工具栏中有与常用菜单命令相对应的按钮,按这些按钮的效果和选择菜单命令的效果完全一样。

工具栏中的按钮和普通按钮不同的是,它们不用文本字符串,而是用图标来标明按钮的功能。

这种图标按钮的好处是省地方,菜单命令往往比较冗长,而工具栏提供的空间又十分有限。

使用图标按钮最大的好处还在于其直观形象性,这与W i n d o w s图形用户界面(G U I)方便用户、简化操作的目标是一致的。

W i n d o w s系统提供的标准按钮(如O K、C a n c e l等)中只能显示文本字符串。

在V i s u a l B a s i c(以下简称为V B)中,按钮是使用工具箱中的命令按钮控件C o m m a n d B u t t o n来实现的。

C o m m a n d B u t t o n使用的是W i n d o w s系统提供的标准按钮控件,因而无法装入图标。

下面介绍在V B中实现图标按钮的几种方法。

一、使用标准控件实现图标按钮V B的标准控件中,能够装入图形的只有I m a g e(图像)和P i c t u r e B o x(图片框)两种。

I m a g e的功能较简单,占用系统资源较少。

P i c t u r e B o x的功能很丰富,可以将它看作是I m a g e的一个“超集”,它占用的系统资源当然就要多一些。

VB常用控件的方法详解

VB常用控件的方法详解

VB常用控件的方法详解1.按钮控件(Button):- Click事件:当用户单击按钮时触发的事件。

- Text属性:按钮上显示的文本。

- Enabled属性:是否启用按钮。

- Visible属性:按钮是否可见。

- BackColor属性:按钮的背景颜色。

- ForeColor属性:按钮的前景颜色。

2.文本框控件(TextBox):- Text属性:文本框中显示的文本内容。

- ReadOnly属性:文本框是否为只读状态。

- PasswordChar属性:设置密码框中字符显示的方式。

- MaxLength属性:文本框最大可输入的字符数限制。

4.列表框控件(ListBox):- Items属性:列表框中的项,可以通过Items属性进行添加、删除、修改操作。

- SelectedIndex属性:获取或设置当前选择项的索引。

- SelectedItem属性:获取或设置当前选择项的文本值。

- Items属性:组合框中的选项,可以通过Items属性进行添加、删除、修改操作。

- SelectedIndex属性:获取或设置当前选择项的索引。

- SelectedItem属性:获取或设置当前选择项的文本值。

6.复选框控件(CheckBox):- Checked属性:表示复选框是否被选中。

- Text属性:复选框显示的文本。

7.单选按钮控件(RadioButton):- Checked属性:表示单选按钮是否被选中。

- Text属性:单选按钮显示的文本。

8.图像框控件(PictureBox):- Image属性:设置图像框中显示的图像。

- SizeMode属性:设置图像显示的方式(自适应、拉伸等)。

9.进度条控件(ProgressBar):- Value属性:设置或获取进度条的当前值。

- Maximum属性:设置进度条的最大值。

- Minimum属性:设置进度条的最小值。

10.日期选择框控件(DateTimePicker):- Value属性:设置或获取选择的日期时间值。

VB动态图形按钮的实现

VB动态图形按钮的实现

VB动态图形按钮的实现在一些多媒体应用程序中 我们常常看到各种各样的图形按钮,这些图形按钮使应用程序界面变得更直观更友善。

下面,本文利用VB的来实现这种动态按钮。

思想方法:图形按钮以Image控件来实现;对每一个按钮准备两幅图片,一幅用于正常显示,一幅用于当鼠标指向按钮时显示;这些图片按顺序存放于ImageList控件中。

下面是演示程序界面构成及代码:一.界面构成1. Form主窗体Name Form1Caption 动态图形按钮演示BackColor &H80000005& 白色bel用于显示选择哪一个按钮Name Label13.ImageList控件用于存储图片 ImageList 属于控件组Microsoft Windows Common Controls 5.0 COMCTL32.OCX中的一个。

把用于按钮的图片按顺序存放在ImageList中。

4.Image控件用于显示图像创建Image数组Image1 1-Image1 4二、代码实现Dim butStatus 1 To 4As Boolean '按钮的状态数组Dim butMessage 1 To 4As String '提示信息数组Private Sub Form_LoadDim i As IntegerFor i = 1 To 4Image1 i.Picture = ImageList1.ListImages 2 i - 1.PicturebutStatus i= FalseNextbutMessage 1= “点击了圆形按钮”butMessage 2= “点击了房子按钮”butMessage 3= “点击了鲜花按钮”butMessage 4= “点击了退出按钮”End SubPrivate Sub Form_MouseMove Button As Integer Shift As Integer X As Single Y As SingleFor i = 1 To 4If butStatus i ThenImage1 i.Picture = ImageList1.ListImages 2 i - 1.PicturebutStatus i= FalseEnd IfNextEnd SubPrivate Sub Image1_Click Index As IntegerLabel1.Caption = butMessage IndexBeepEnd SubPrivate Sub Image1_MouseMove Index As Integer Button As Integer Shift As Integer X A s Single Y As SingleIf Not butStatus Index ThenImage1 Index.Picture = ImageList1.ListImages Index 2.PicturebutStatus Index= TrueEnd IfEnd Sub。

在VB中制作图标按钮的四种方法Word版

在VB中制作图标按钮的四种方法Word版

在VB中制作图标按钮的四种方法2010-07-19 17:31发信人:h u a n g h m(东方不败),信区:P r o g r a m标题:V B中图标按钮的制作发信站:深大荔园晨风站(T u e J a n1311:11:081998),转信现在大多数W i n d o w s应用程序的功能都比较丰富,相应的菜单结构也比较复杂。

一些操作命令往往要打开好几层菜单。

尤其是一些常用的操作命令,因其使用较频繁,即使仅打开一层菜单,从中选择一项也是比较麻烦的。

因此现在绝大多数W i n d o w s应用程序中除了菜单之外,还配备了工具栏。

工具栏中有与常用菜单命令相对应的按钮,按这些按钮的效果和选择菜单命令的效果完全一样。

工具栏中的按钮和普通按钮不同的是,它们不用文本字符串,而是用图标来标明按钮的功能。

这种图标按钮的好处是省地方,菜单命令往往比较冗长,而工具栏提供的空间又十分有限。

使用图标按钮最大的好处还在于其直观形象性,这与W i n d o w s图形用户界面(G U I)方便用户、简化操作的目标是一致的。

W i n d o w s系统提供的标准按钮(如O K、C a n c e l等)中只能显示文本字符串。

在V i s u a l B a s i c(以下简称为V B)中,按钮是使用工具箱中的命令按钮控件C o m m a n d B u t t o n来实现的。

C o m m a n d B u t t o n使用的是W i n d o w s系统提供的标准按钮控件,因而无法装入图标。

下面介绍在V B中实现图标按钮的几种方法。

一、使用标准控件实现图标按钮V B的标准控件中,能够装入图形的只有I m a g e(图像)和P i c t u r e B o x(图片框)两种。

I m a g e的功能较简单,占用系统资源较少。

P i c t u r e B o x的功能很丰富,可以将它看作是I m a g e的一个“超集”,它占用的系统资源当然就要多一些。

在VB中制作图标按钮的四种方法

在VB中制作图标按钮的四种方法

在VB中制作图标按钮的四种方法2010-07-19 17:31发信人:h u a n g h m(东方不败),信区:P r o g r a m标题:V B中图标按钮的制作发信站:深大荔园晨风站(T u e J a n1311:11:081998),转信现在大多数W i n d o w s应用程序的功能都比较丰富,相应的菜单结构也比较复杂。

一些操作命令往往要打开好几层菜单。

尤其是一些常用的操作命令,因其使用较频繁,即使仅打开一层菜单,从中选择一项也是比较麻烦的。

因此现在绝大多数W i n d o w s应用程序中除了菜单之外,还配备了工具栏。

工具栏中有与常用菜单命令相对应的按钮,按这些按钮的效果和选择菜单命令的效果完全一样。

工具栏中的按钮和普通按钮不同的是,它们不用文本字符串,而是用图标来标明按钮的功能。

这种图标按钮的好处是省地方,菜单命令往往比较冗长,而工具栏提供的空间又十分有限。

使用图标按钮最大的好处还在于其直观形象性,这与W i n d o w s图形用户界面(G U I)方便用户、简化操作的目标是一致的。

W i n d o w s系统提供的标准按钮(如O K、C a n c e l等)中只能显示文本字符串。

在V i s u a l B a s i c(以下简称为V B)中,按钮是使用工具箱中的命令按钮控件C o m m a n d B u t t o n来实现的。

C o m m a n d B u t t o n使用的是W i n d o w s系统提供的标准按钮控件,因而无法装入图标。

下面介绍在V B中实现图标按钮的几种方法。

一、使用标准控件实现图标按钮V B的标准控件中,能够装入图形的只有I m a g e(图像)和P i c t u r e B o x(图片框)两种。

I m a g e的功能较简单,占用系统资源较少。

P i c t u r e B o x的功能很丰富,可以将它看作是I m a g e的一个“超集”,它占用的系统资源当然就要多一些。

VBA实现自定义菜单与工具栏按钮的步骤与技巧

VBA实现自定义菜单与工具栏按钮的步骤与技巧

VBA实现自定义菜单与工具栏按钮的步骤与技巧自定义菜单和工具栏按钮是VBA中常用的功能,它们可以提高工作效率和用户体验。

通过自定义菜单和工具栏按钮,我们可以将经常使用的命令集中到一个菜单或按钮上,方便用户快速访问。

下面我们将介绍VBA实现自定义菜单和工具栏按钮的步骤与技巧。

步骤一:打开Excel的开发人员选项要使用VBA自定义菜单和工具栏按钮,首先需要打开Excel的开发人员选项。

打开Excel后,点击工具栏上的“文件”选项卡,然后选择“选项”。

在弹出的对话框中,选择“自定义功能区”选项卡,并勾选“开发人员”复选框,点击“确认”按钮即可。

步骤二:添加自定义菜单或工具栏在打开的Excel中,我们可以看到多出了一个“开发人员”选项卡。

在这个选项卡中,我们可以创建自定义菜单或工具栏。

点击“开发人员”选项卡上的“自定义菜单”或“自定义工具栏”按钮,选择“新建”命令,即可创建一个新的自定义菜单或工具栏。

步骤三:编辑自定义菜单或工具栏在创建好的自定义菜单或工具栏上,我们可以添加各种命令和功能。

例如,可以添加一个新的菜单项,命令类型可以是内置的Excel命令,也可以是自定义的VBA命令。

另外,还可以设置快捷键、改变显示顺序等。

在添加自定义命令时,可以使用VBA代码来实现更复杂的功能。

在自定义菜单或工具栏的编辑模式下,点击“新建”按钮,在弹出的对话框中选择“宏”命令。

然后,在代码编辑器中输入你所需的VBA代码,以实现相应的功能。

例如,可以编写一个VBA宏来自动进行数据处理、图表生成或其他任务。

步骤四:设置自定义菜单或工具栏的显示完成自定义菜单或工具栏的编辑后,需要设置它们在Excel中的显示方式。

在自定义菜单或工具栏的编辑模式下,点击“常规”选项卡,在“显示”选项中选择显示的位置,可以选择在菜单栏或工具栏中显示。

步骤五:保存并使用自定义菜单或工具栏在设置好自定义菜单或工具栏的显示方式后,点击“文件”选项卡,然后选择“选项”并在弹出的对话框中点击“确认”按钮,保存配置的改动。

VBA 中的命令按钮的使用方法与实例

VBA 中的命令按钮的使用方法与实例

VBA 中的命令按钮的使用方法与实例VBA(Visual Basic for Applications)是一种用于自动化任务和定制应用程序的编程语言。

其中的命令按钮是一种常见的用户界面元素,它允许用户通过单击按钮来执行特定的功能或命令。

在本文中,我们将探讨 VBA 中命令按钮的使用方法与实例。

在 VBA 中使用命令按钮之前,我们首先需要在用户界面(如 Excel 或 Word)中添加一个按钮控件。

您可以通过以下步骤完成此操作:1. 打开您想要添加按钮的应用程序(如 Excel 或 Word)。

2. 在工具栏中选择"开发工具" 选项卡(如果没有,则需要在设置中启用它)。

3. 在 "开发工具" 选项卡中,点击 "插入",然后选择 "按钮" 控件。

4. 在程序界面中按住鼠标左键并拖动光标,绘制按钮的大小和位置。

5. 在绘制按钮的过程中,会自动打开 "分配宏" 窗口。

您可以选择现有的宏或创建新的宏来与按钮关联,以实现特定的功能。

现在,让我们深入了解 VBA 中命令按钮的使用方法与实例。

以下是几个常见的例子:1. 显示消息框:在按钮的点击事件中,您可以使用VBA 的MsgBox 函数来显示消息框。

例如,下面的代码将显示一个简单的消息框,提示用户点击了按钮:```vbaSub Button_Click()MsgBox "按钮被点击了!"End Sub```2. 打开文件对话框:您可以使用 VBA 的 Application.FileDialog 对象来创建一个文件对话框,以便用户选择文件。

以下是一个示例代码:```vbaSub Button_Click()Dim filePath As VariantWith Application.FileDialog(msoFileDialogFilePicker).Title = "选择文件".ShowIf .SelectedItems.Count > 0 ThenfilePath = .SelectedItems(1)MsgBox "您选择的文件是:" & filePathElseMsgBox "您取消了选择文件。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

在VB中制作图标按钮的四种方法2010-07-19 17:31发信人:h u a n g h m(东方不败),信区:P r o g r a m标题:V B中图标按钮的制作发信站:深大荔园晨风站(T u e J a n1311:11:081998),转信现在大多数W i n d o w s应用程序的功能都比较丰富,相应的菜单结构也比较复杂。

一些操作命令往往要打开好几层菜单。

尤其是一些常用的操作命令,因其使用较频繁,即使仅打开一层菜单,从中选择一项也是比较麻烦的。

因此现在绝大多数W i n d o w s应用程序中除了菜单之外,还配备了工具栏。

工具栏中有与常用菜单命令相对应的按钮,按这些按钮的效果和选择菜单命令的效果完全一样。

工具栏中的按钮和普通按钮不同的是,它们不用文本字符串,而是用图标来标明按钮的功能。

这种图标按钮的好处是省地方,菜单命令往往比较冗长,而工具栏提供的空间又十分有限。

使用图标按钮最大的好处还在于其直观形象性,这与W i n d o w s图形用户界面(G U I)方便用户、简化操作的目标是一致的。

W i n d o w s系统提供的标准按钮(如O K、C a n c e l等)中只能显示文本字符串。

在V i s u a l B a s i c(以下简称为V B)中,按钮是使用工具箱中的命令按钮控件C o m m a n d B u t t o n来实现的。

C o m m a n d B u t t o n使用的是W i n d o w s系统提供的标准按钮控件,因而无法装入图标。

下面介绍在V B中实现图标按钮的几种方法。

一、使用标准控件实现图标按钮V B的标准控件中,能够装入图形的只有I m a g e(图像)和P i c t u r e B o x(图片框)两种。

I m a g e的功能较简单,占用系统资源较少。

P i c t u r e B o x的功能很丰富,可以将它看作是I m a g e的一个“超集”,它占用的系统资源当然就要多一些。

为了利用可装入图形的控件模拟图标按钮的功能,首先应比较一下它们各自所能够接收到的事件(如表1所示)。

表1中打勾(√)的表示该控件提供了相应的事件驱动过程接口,打叉(×)的则表示该控件没有提供,控件不接收相应的事件。

因为是要模拟C o m m a n d B u t t o n的功能,所以I m a g e和P i c t u r e B o x的其它事件没有列出。

C o m m a n d B u t t o n的事件I m a g e P i c t u r e B o xC l i c k√√D r a g D r o p√√K e y D o w n×√K e y P r e s s×√K e y U p×√L o s t F o c u s×√M o u s e D o w n√√M o u s e M o v e√√M o u s e U p√√表1I m a g e和P i c t u r e B o x与C o m m a n d B u t t o n中相同的事件从表1中可以看出,P i c t u r e B o x具有C o m m a n d B u t t o n中所有事件的接口,因而可以完全模拟C o m m a n d B u t t o n的功能。

C o m m a n d B u t t o n的某些事件在I m a g e中接收不到。

对于一般应用来说,我们往往只对C o m m a n d B u t t o n的C l i c k事件过程编程,因此I m a g e也可以用于模拟C o m m a n d B u t t o n,而且能够满足大多数应用的需要。

注意,在没有配备鼠标的系统中,因为只能使用键盘作为输入设备,而I m a g e又没有键盘事件的接口,这时就只能用P i c t u r e B o x了。

V B安装到硬盘上之后,在V B目录下提供了丰富的图形库。

其中包括位图(B i t m a p,在B I T M A P S子目录下)、图标(I c o n,在I C O N S子目录下)和图元(M e t a f i l e,在M E T A F I L E子目录下)。

每种图形又按类分别存储在不同的子目录下。

在图标按钮的制作中,我们可以使用B I T M A P S\T O O L B A R3子目录下的位图。

该目录中存储了常用工具栏中的按钮的位图,每种按钮一般有三个位图文件,分别对应按钮在松开、按下和无效时的状态。

例如,、和分别对应剪切(c u t)按钮在松开、按下和无效时的状态。

因此,我们可让按钮在松开时装入*,按下时装入*,按钮无效时装入*。

可以编写如下的相应事件过程代码(以P i c t u r e B o x实现的剪切按钮为例):S u b P i c t u r e1_M o u s e D o w n(B u t t o n A s I n t e g e r,S h i f t A s I n t e g e r,X A s S i n g l e,Y A s S i n g l e)=L o a d P i c t u r e("C:\V B\B I T-M A P S\T O O L B A R3\")'按下鼠标按钮时,装入按钮被按下时的位图E n d S u bS u b P i c t u r e1_M o u s e U p(B u t t o n A s I n t e g e r,S h i f t A s I n t e g e r,X A s S i n g l e,Y A s S i n g l e)=L o a d P i c t u r e("C:\V B\B I T M A P S\T O O L B A R3\")'松开鼠标按钮时,装入按钮被松开时的位图E n d S u bS u b P i c t u r e1_C l i c k()'此处插入单击按钮时的处理代码E n d S u b如果需要设置按钮的无效状态,则可使用如下语句:=F a l s e=L o a d P i c t u r e("C:\V B\B I T-M A P S\T O O L B A R3\")'装入按钮无效时的位图当按钮恢复为有效时,再使用下列语句:=T r u e=L o a d P i c t u r e("C:\V B\B I T M A P S\T O O L B A R3\")'装入按钮松开时的位图这样,我们就实现了用P i c t u r e B o x模拟图标按钮。

用I m a g e模拟图标按钮的方法与此完全相同。

在程序中,一般用一个P i c t u r e B o x作为工具条,这里的P i c t u r e B o x作为容器(c o n t a i n e r)控件,在P i c t u r e B o x中再加入各个图标按钮。

这在多文档界面(M D I)中的主窗体M D I F o r m上尤其有必要,因为普通控件不能直接加入到M D I F o r m中,只有具备A l i g n属性的P i c t u r e B o x才能加入到M D I F o r m。

二、使用扩充控件实现图标按钮V B的扩充控件中有几种能直接支持图标的按钮。

下面仅介绍其中的三种扩充按钮,即3D命令钮(3D C o m m a n d B u t t o n)、3D组按钮(3DG r o u p P u s h B u t t o n)和动画按钮(A n i m a t e d B u t t o n)。

使用这三种控件制作图标按钮比起使用P i c t u r e B o x或I m a g e模拟的图标按钮要方便得多。

在下面的介绍中,会给出每种控件对应的文件名和控件的对象类型,如果在工具箱中找不到该控件,则在V B的F i l e|A d d F i l e...菜单命令弹出的对话框中双击与该控件对应的文件名(一般在W i n d o w s的S Y S T E M目录下),即可将该控件加入到工具箱中。

对于扩充控件接口的特性(属性、事件和方法),我们仅介绍其扩充的部分,与标准控件相同的其它接口则不再赘述。

1、3D C o m m a n d B u t t o n文件名为,对象类型为S S C o m m a n d,属性如表2所示。

表2属性数据类型定义A u t o S i z e I n t e g e r0--(缺省状态)不调整尺寸;1--把装入的图片尺寸调整为按钮的大小。

如果装入的图片是一个图标(I c o n)或按钮本身有标题,则该值不起作用;2--把按钮的尺寸调整为装入图片的大小。

如果按钮本身有标题,则该值不起作用。

B e v e l W i d t h I n t e g e r按钮周围斜角的宽度,取值范围为0~10,缺省值为2。

F o n t3D I n t e g e r设置标题的立体显示效果:0--(缺省状态)无立体效果;1--略微凸出;2--强烈凸出;3--略微凹进;4--强烈凹进。

O u t l i n e I n t e g e r确定有无边框,取值为T r u e(缺省状态)或F a l s e。

P i c t u r e I n t e g e r位图或图标,不能是图元。

R o u n d e d C o r n e r s I n t e g e r按钮是否为圆角,取值为T r u e(缺省状态)或F a l s e。

3D C o m m a n d B u t t o n的属性3D C o m m a n d B u t t o n是一个本身具有P i c t u r e属性的按钮,用它可装入一个图片,同时它还具有按钮的功能。

3D C o m m a n d B u t t o n不能接收M o u s e D o w n和M o u s e U p之类的鼠标事件,因此不能像P i c t u r e B o x那样通过装入不同的图片来显示按钮被按下和松开的状态。

3D C o m m a n dB u t t o n之所以被称为“3D”,是因为它本身能够处理按钮按动时的三维视觉效果。

用3D C o m m a n d B u t t o n制作图标按钮时,只需装入一个按钮松开时的图片(例如,)即可,其余的无需用户操心。

相关文档
最新文档