VB教案命令按钮（CommandButton）
第一篇：VB教案命令按钮(CommandButton)
（五）命令按钮（CommandButton）
是VB中一个最常用的控件，一般用来接收单击事件，并调用指定的过程以实现程序的进程。
一、命令按钮的属性：
1、Name属性：
2、Caption属性：
山竹苗3、Enabled属性：
4、Left属性和Top属性：
5、Height属性和Width属性：
6、Default属性：
设置为Ture时为缺省活动按钮（一个窗体只允许一个按钮为缺省活动按钮）按回车即相当于单击。
程实7、Cancel属性：
设置为True时，按 键即相当于单击，为缺省取消按钮。（一个窗体也只能有一个按钮设置为缺省取消按钮）
8、Visible属性：微信图像男
9、Value属性：（编程用）
设为True 时相当于单击事件。
10、Style属性：
0：表示无图象功能，按钮只能显示文字
1：表示有图象功能，按钮表面可加载图片
11、Picture属性：
为按钮表面添加指定的图片。
12、DownPicture属性：
在按钮按下时为按钮表面添加指定的图片。
13、DisabledPicture属性：
当按钮无效时，为按钮表面添加指定的图片。
14、BackColor属性：
15、ToolTipText属性：
为按钮设置提示文本内容（鼠标指点时显示按钮功能提示）
二、命令按钮的事件和方法：
1、Click事件：
注：命令按钮不支持双击事件
2、MouDown事件：
3、MouUp事件：
4、Hide 方法：
5、Show方法：
第二篇：Vb操作excel的命令（范文模版）
用VB操作Excel的办法
[日期：2008-11-23]
来源：
作者：
[字体：大 中
小] Private Sub Command3_Click()
On Error GoTo err1
Dim i As Long
Dim j As Long
Dim objExl As Excel.Application '声明对象变量
Me.MouPointer = 11
'改变鼠标样式
Set objExl = New Excel.Application
'初始化对象变量
objExl.SheetsInNewWorkbook = 1 '将新建的工作薄数量设为1
objExl.Workbooks.Add
'增加一个工作薄
objExl.Sheets(objExl.Sheets.Count).Name = “book1” '修改工作薄名称
objExl.Sheets.Add , objExl.Sheets(“book1”)'增加第二个工作薄在第一个之后
objExl.Sheets(objExl.Sheets.Count).Name = “book2”
objExl.Sheets.Add , objExl.Sheets(“book2”)'增加第三个工作薄在第二个之后
objExl.Sheets(objExl.Sheets.Count).Name = “book3”
玛瑙和玉髓哪个好objExl.Sheets(“book1”).Select
'选中工作薄
For i = 1 To 50
'循环写入数据
For j = 1 To 5
If i = 1 Then
自制面具
objExl.Selection.NumberFormatLocal = “@” '设置格式为文本
objExl.Cells(i, j)= “ E ” & i & j
El
objExl.Cells(i, j)= i & j
三年级元宵节作文
End If
Next
Next
objExl.Rows(“1:1”).Select
'选中第一行
objExl.Selection.Font.Bold = True '设为粗体
objExl.Selection.Font.Size = 24
'设置字体大小
objExl.Cells.EntireColumn.AutoFit '自动调整列宽
objExl.ActiveWindow.SplitRow = 1 '拆分第一行
objExl.ActiveWindow.SplitColumn = 0 '拆分列
objExl.ActiveWindow.FreezePanes = True '固定拆分
objExl.ActiveSheet.PageSetup.PrintTitleRows = “$1:$1” '设置打印固定行
objExl.ActiveSheet.PageSetup.PrintTitleColumns = “"
积木图片'打印标题
objExl.ActiveSheet.PageSetup.RightFooter = ”打印时间: “ & _
Format(Now, ”yyyy年mm月dd日 hh:MM:ss“)
objExl.ActiveWindow.View = xlPageBreakPreview
'设置显示方式
objExl.ActiveWindow.Zoom = 100
'设置显示大小赵云怎么死的
'给工作表加密码
objExl.ActiveSheet.Protect ”123“, DrawingObjects:=True, _
Contents:=True, Scenarios:=True
objExl.Application.IgnoreRemoteRequests = Fal
objExl.Visible = True
'使EXCEL可见
objExl.Application.WindowState = xlMaximized
'EXCEL的显示方式为最大化
objExl.ActiveWindow.WindowState = xlMaximized
'工作薄显示方式为最大化
objExl.SheetsInNewWorkbook = 3
'将默认新工作薄数量改回3个
Set objExl = Nothing
'清除对象
Me.MouPointer = 0 '修改鼠标
Exit Sub
err1:
objExl.SheetsInNewWorkbook = 3
objExl.DisplayAlerts = Fal '关闭时不提示保存
objExl.Quit
'关闭EXCEL
objExl.DisplayAlerts = True '关闭时提示保存
Set objExl = Nothing
Me.MouPointer = 0 End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
全面控制 Excel
首先创建 Excel 对象，使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Application
1)显示当前窗口：ExcelID.Visible := True;
2)更改 Excel 标题栏：ExcelID.Caption := '应用程序调用 Microsoft Excel';
3)添加新工作簿：ExcelID.WorkBooks.Add;
4)打开已存在的工作簿：ExcelID.WorkBooks.Open('C:ExcelDemo.xls');
5)设置第2个工作表为活动工作表：ExcelID.WorkSheets[2].Activate;或 ExcelID.WorkSheets[ 'Sheet2' ].Activate;
6)给单元格赋值：ExcelID.Cells[1,4].Value := '第一行第四列';
7)设置指定列的宽度（单位：字符个数），以第一列为例：
ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5;
8)设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035;// 1厘米
9)在第8行之前插入分页符：
ExcelID.WorkSheets[1].Rows[8].PageBreak := 1;
