VB常用命令大全
VB 可用指令、函数 索引表
VB 可用指令、函数索引表1、Abs求绝对值●适用于VB、VBA、VBScript。
●用法：传回值= Abs(数值)○VB与VBA：Private Sub Command1_Click()Dim HerVal As IntegerHerVal = 345MyVal = Abs(HerVal)End Sub●MyVal的值为345。
Private Sub Command1_Click()Text1.Text = "5679"MyVal = Abs(Val(Text1.Text))End Sub●MyVal的值为5679Private Sub Command1_Click()MyVal = Abs(12345)Debug.Print Abs(-12345)End Sub●于Debug对话框内打出12345○vbScript：<script language="vbscript">Dim MyValMyVal = InputBox("请输入数值")document.write Abs(MyVal)</script>2、ActiveControl得到焦点的对象●适用于VB。
●用法：变量= 对象.ActiveControl.属性●用法：对象.ActiveControl.属性= 资料○VB：Private Sub Command1_Click()MsgBox End SubPrivate Sub Command1_Click()MsgBox Screen.ActiveControl.Left & ":" &Screen.ActiveControl.TopEnd SubPrivate Sub Command1_Click()Me.ActiveControl.Caption = "我得到焦点" End SubPrivate Sub Timer1_TimerMe.Caption = "Focus:" &End Sub3、ActiveForm得到焦点的表单●如果你的程序是以MDI的方式为诉求，AvtiveForm 这个方法将提功你更多的便利。
VB命令大全
VB命令大全VB命令大全VB可用指令、函数索引表AAbs求绝对值ActiveControl得到焦点的对象ActiveForm得到焦点的表单Array指定数组App得知程序信息AppActivate激活执行中的应用程序Asc求字符的内码AscB求字符的ASCIIAscW求字符的UniCodeAtn求Tan-1BBeep发出预设的警示声CCall调用子程序Calendar选择月历Choose取出一列值的某个值CBool数值转成布尔数CByte数值转成位元格式CCur数值转成货币格式CDate数据转成时间CDbl数值转成双精度浮点数CDec数据转成十进数ChDir改变目前路径缓充的路径ChDrive 改变目前磁盘缓充的磁盘Chr由内码求得一字符ChrB由ASCII求得一字符ChrW由UniCode求得一字符CInt数据转成IntegerCLng数据转成LongCommand读出程序的参数Const定义常数Cos COSCSng数值转成单精度浮点数CurDir得知目前路径缓充的路径CVar数值转成可变变量DDate得到目前电脑的时间Date$得到目前电脑时间字符串DateAdd 日期加法得日期DateDiff日期相减得数值DatePart日期部份资讯DateSerial字符串转日期DateValue数字转日期Day得知日期变量内是几号DDB折旧的计算DeleteSetting删除系统登录内的数据得知目前路径内的文件名DoEvents 闲置函数EEnd结束程序Environ取得环境变量的数据EOF某个文件缓冲的指标是否到档尾Erase 重新初始化数组Err错误资讯Error错误代码信息全国注册建筑师、建造师考试备考资料历年真题考试心得模拟试题Exp得到自然对数FFix去除小数FileCopy T o复制文件FileAttr文件开启模式FileDateTime文件存档日期FileLen文件长度筛选数组Format数据格式化输出FreeFile空的文件编号FV求得定期、定额支付且固定利率下之年金的值G GetAllSetting得到所有系统登录的资讯GetAttr得知文件属性GetSetting得到系统登录的资讯HHex将数值转成16进数表示的字符串Hour得知日期变量内是几时IIf . Then . Else判断结构IMEStatus得知IME输入法状态InStr寻找字符串里的字符串寻找字符串里的ASCIIIntStrRev由字符串右边开始寻找字符串里的字符串Int取整数JJoin将数组数据加入分隔字符后组合成一新字符串K Kill删除文件LLBound得知数组最小起始范围LCase字符串转小写Left截取字符串左边几个字Len得知字符串的字数LenB得知变量占用记忆体几个ByteLoadPicture载入图形Log求对数值LSet字符串向左对齐移除字符串最左边的空白字符MMid截取字符串里某些字符串Minute得知日期变量内是几分MkDir建立新的数据颊Month得知日期变量内是第几月NName As更改文件名Now得知目前点脑的日期与时间OOct字符转成八进制的字符串Option VB内部一些选项设定PPopupMenu跳出菜单Print列印数据QQBColor设定颜色(16)RRandomize随机数初始化声明Replace取代字符串中某些字符串V B6提供RGB设定颜色(255*255*255色)RmDir移除数据颊Rnd得到一个随机数RSet字符串向右对齐RTrim去除字符串最右边的空白字符S SavePicture储存图形Screen得知屏幕简易资讯Second得知日期变量内是几秒SetAttr设定文件属性得知是整数还是负数vShell执行外部程序Sin得知SinSpace填入数个空白字符Split以某字符串将字符串拆解成数组V B6 提供Sqr求平方根Str数值转字符串StrComp比较字符串StrConv改变字符串型态String设定一个重覆的字符串StrReverse字符串反转VB6提供TTab列印n个制表符Tan得知TanTime得知、设定电脑时间Time$得知、设定时间字符串Timer得知今天电脑总秒数TimeSerial字符串转时间TimeValue数字转时间Trim去除字符串首尾的空白字符TypeName 得知变量类别的名称UUBound得知数组的最值UCase字符串转大写VVal将字符串转成数字VarType得知变量的类型WWeekDay得知日期变量内是星期几WeekdayName将WeekDay传回值改成文字显示VB6提供YYear得知日期变量内是几年。
VB常用内部语句大全
SelectCase语句
SendKeys语句
Set语句
SetAttr语句
Static语句
Stop语句
Sub语句
Time语句
Type语句
While...Wend语句
Width#语句
With语句
Write#语句
类型转换函数
1、 Int(x):求不大于自变量x的最大整数
5、FreeFile():取得一个未使用的文件号
6、Loc(文件号)：返回指定文件的当前读写位置
7、LOF（文件号）：返回文件长度
8、EOF（文件号）：用来测试文件是否结束，结束返回true
9、Print #文件号，变量1，变量2，…变量n:按顺序将各变量的值写入顺序文件
如果是print #文件号，则写入空行
5)、记录长度：是一个整型表达式。当选择该参量时，为随机存取文件设置记录长度。对于用随机访问方式打开的文件，该值是记录长度；对于顺序文件，该值是缓冲字符数。”记录长度”不能超过32767字节。对于二进制文件，将忽略Len子句
举例：Open “price.dat” for Output as #1
2)、存取类型：放在关键字Access之后，用来指定访问文件的类型。可以是下列类型之一
a、 Read:打开只读文件
b、Write:打开只写文件
c、 Read Write:打开读写文件。这种类型只对随机文件、二进制文件及用Append方式打开的文件有效
3)、锁定：该子句只在多用户或多进和环境中使用，用来限制其他用户或其他进程对打开进行读写操作。锁定类型包括：
4、Right$(字符串,n):取字符串右部的n个字符
VB操作Excel文件常用命令总结
VB操作Excel文件常用命令总结VB操作Excel文件常用命令总结一、声明变量Dim a as integer '声明a为整型变量Dim a '声明a为变体变量Dim a as string '声明a为字符串变量Dim a as currency ,b as currency ,c as currency '声明a,b,c 为货币变量声明变量可以是：Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（当前不支持）、Date、String（只限变长字符串）、String * length（定长字符串）、Object、Variant、用户定义类型或对象类型。
二、声明常数ConstConst My = 456 '常数的默认状态是 Private。
Public Const MyString = "HELP" ' 声明 Public 常数。
Private Const MyInt As Integer = 5 ' 声明 Private Integer 常数。
Const MyStr = "Hello", MyDouble As Double = 3.4567 ' 在同一行里声明多个常数。
三、行数列数查看行数：hang=edRange.Rows.CountEndRow = Sheets(sheetsCaption).Range(Col & "65536").End(xlUp).Row查看列数：lie=edRange.Columns.Count返回选定区域的行数：MsgBox Selection.Rows.Count返回选定区域的列数：MsgBox Selection.Columns.Count返回选定区域的地址：Selection.Address四、赋值：Workbooks("12.xls").Worksheets("sheet2").Range("B5"). Value = "abcde"Sheets("sheet1").Range("a1").Value = "hello"sheets("sheet2").selectRange("a1").value="hello"Sheets("sheet1").Range("a1")selectActiveCell.Value = "你好"五、工作表相关： = "liu" '给活动工作表改名"liu"Worksheets.Add '增加一个工作表activesheet.delete '删除活动工作表Workbooks.Open FileName:="C:\My Documents\Book2.xls" '打开一个工作簿文件ActiveWindow.Close '关闭活动窗口With Sheets("sheet1") '设定操作区域End With示例：Application.ScreenUpdating = FalseDim sheetsCaption As String: sheetsCaption = "Sheet4"Dim EndRow As Integer: EndRow = Sheets(sheetsCaption).Range("B" & "65536").End(xlUp).Row Dim i As Integer: i = 1With Sheets(sheetsCaption)Doi = i + 1Range("d" & i).Value = Range("b" & i).Value & Range("c" & i).ValueLoop While i < EndRow + 1End WithMsgBox 完毕Application.ScreenUpdating = True六、行的操作：Rows(i & ":" & i).Select '剪切I行到４行上面Selection.CutRows("4:4").SelectSelection.Insert Shift:=xlDown七、单元格位移：sub my_offsetActiveCell.Offset(0, 1).Select'当前单元格向左移动一格ActiveCell.Offset(0, -1).Select'当前单元格向右移动一格ActiveCell.Offset(1 , 0).Select'当前单元格向下移动一格ActiveCell.Offset(-1 , 0).Select'当前单元格向上移动一格end sub八、单元格的设置：Range("A5").Select '设置成红色With Selection.Interior.ColorIndex = 3九、报错：如果上述程序产生错误那是因为单元格不能移动，为了解除上述错误，我们可以往sub my_offset 之下加一段代码 on error resume next忽略所有的错误ON ERROR RESUME NEXT遇错跳转：on error goto err_handle'中间的其他代码err_handle: ' 标签'跳转后的代码十、单元格格式：ActiveCell.Clear '清除单元格:删除所有文字、批注、格式Selection.HorizontalAlignment = xlLeft '选定单元格左对齐Selection.HorizontalAlignment = xlCenter '选定单元格居中Selection.HorizontalAlignment = xlRight '选定单元格右对齐Selection.Style = "Percent" '选定单元格为百分号风格Selection.Font.Bold = True '选定单元格字体为粗体Selection.Font.Italic = True '选定单元格字体为斜体With Selection.Font '选定单元格字体为宋体20号字.Name = "宋体".Size = 20End Withmsgbox ActiveCell.Address '得到当前单元格的地址msgbox date & chr(13) & time '得到当前日期及时间十一、VBA专属特性：删除一个文件：kill "c:\1.txt"定制自己的状态栏：Application.StatusBar = "现在时刻: " & Time恢复自己的状态栏：Application.StatusBar = false用代码执行一个宏：Application.Run macro:="text"滚动窗口到a1的位置：ActiveWindow.ScrollRow = 1：ActiveWindow.ScrollColumn = 1定制系统日期Dim MyDate, MyDayMyDate = #12/12/69#MyDay = Day(MyDate)返回当天的时间Dim MyDate, MyYearMyDate = DateMyYear = Year(MyDate)MsgBox MyYearinputbox<输入框>：XX=InputBox ("Enter number of months to add")得到一个文件名Dim kk As Stringkk = Application.GetOpenFilename("EXCEL (*.XLS), *.XLS", Title:="提示：请打开一个EXCEL文件：")msgbox kk打开zoom（显示比例）对话框：Application.Dialogs(xlDialogZoom).Show激活字体对话框：Application.Dialogs(xlDialogActiveCellFont).Show打开另存对话框Dim kk As Stringkk = Application.GetSaveAsFilename("excel (*.xls), *.xls")Workbooks.Open kk返回当前单元格中数据删除前后空格后的值sub my_trimmsgbox Trim(ActiveCell.Value)end sub保护工作簿：ActiveSheet.Protect取消保护工作簿：ActiveSheet.Unprotect打开一个应用程序：AppActivate (Shell("C:\WINDOWS\CALC.EXE"))隐藏SHEET1这张工作表：sheets("sheet1").Visible=False显示SHEET1这张工作表：sheets("sheet1").Visible=True打印预览：有时候我们想把所有的EXCEL中的SHEET都打印预览，请使用该段代码，它将在你现有的工作簿中循环，直到最后一个工作簿结束循环预览。
VB编程常用代码大全
VB编程常用代码大全1.数值型函数：abs（num）: 返回绝对值sgn(num): num>0 1；num=0 0; num<0 -1；判断数值正负hex(num): 返回十六进制值直接表示：＆Hxx 最大8位oct（num)：返回八进制值直接表示：&Oxx 最大8位sqr（num）：返回平方根num>0int(num）：取整int（99.8)=99; int（—99。
2)=100fix（num）：取整fix(99.8）=99; fix（—99。
2）=99round(num，n）：四舍五入取小数位round（3。
14159，3)=3.142 中点数值四舍五入为近偶取整round(3。
25,1）=3.2log（num): 取以e为底的对数num>0exp(n): 取e的n次幂通常用num^nsin(num)：三角函数，以弧度为值计算（角度＊Pai)/180=弧度con（num）; tan(num)；atn（num）2.字符串函数:len（str)：计算字符串长度中文字符长度也计为一！mid(str,起始字符,[读取长度］）：截取字符串中间子字符串left(str,nlen)：从左边起截取nlen长度子字符串right(str，nlen）：从右边起截取nlen长度子字符串Lcase（str）：字符串转成小写Ucase（str）：字符串转成大写trim（str)：去除字符串两端空格Ltrim（str)：去除字符串左侧空格Rtrim（str)：去除字符串右侧空格replace（str，查找字符串，替代字符串,[起始字符,替代次数,比较方法]):替换字符串注：默认值：起始字符1；替代次数不限;比较方法区分大小写（0）InStr([起始字符,]str，查找字符串［,比较方法])：检测是否包含子字符串可选参数需同时选返回起始位置InStrRev（str,查找字符串［，起始字符］[，比较方法］）：反向检测是否包含子字符串返回起始位置space（n）:构造n个空格的字符串string（n,str)：构造由n个str第一个字符组成的字符串StrReverse(str）：反转字符串split（str,分割字符串[，次数][,比较方法]）：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选3。
wincc中常用的vb指令
在WinCC中，常用的VB指令有很多，以下是一些常见的示例：
1. **ScreenItems**：这个函数用于获取屏幕上的项目。
例如，你可以使用`ScreenItems(圆1)`来获取名为"圆1"的项目。
2. **HMIRuntime.Screens**：这个函数用于获取要操作的窗体。
例如，你可以使用`HMIRuntime.Screens(Home1)`来获取名为"Home1"的窗体。
3. **Set**：这个函数用于设置对象的属性。
例如，你可以使用`Set objCircle= ScreenItems(圆1)`来获取名为"圆1"的项目并将其赋值给`objCircle`变量。
4. **InStr**和**InStrRev**：这两个函数都在主字符串中搜索子字符串，并返回找到的子字符串在主字符串中出现的位置。
不同之处在于，InStr从左到右搜索，而InStrRev从右到左搜索。
以上只是WinCC中VB指令的一部分，还有很多其他的指令和函数可供使用，具体取决于你的需求和场景。
vb常用语句
Vb常用语句解析下面10条语句是最常用的语句，将指针移到上面按ctrl键单击可查看用法：包括功能、语法、参数、举例等。
1、Let（赋值语句即=）3、Dim语句7、If...Then...Else 语句21、Select case6、For...Next 语句19、While...Wend 语句15、Randomize 语句16、Rem 语句17、Static 语句18、Unload 语句1、Let（赋值语句即=）功能：将表达式的值赋给变量或属性。
语法[Let] varname=expressionLet语句的语法包含下面部分：2、call语句将控制权转移到一个Sub过程，Function过程，或动态连接库 (DLL)过程。
语法[Call] name [argumentlist]Call语句的语法具有以下几个部分：说明调用一个过程时，并不一定要使用Call关键字。
如果使用Call关键字来调用一个需要参数的过程，argumentlist 就必须要加上括号。
如果省略了Call关键字，那么也必须要省略argumentlis 外面的括号。
如果使用Call 语法来调用内建函数或用户定义函数，则函数的返回值将被丢弃。
若要将整个数组传给一个过程，使用数组名，然后在数组名后加上空括号。
3、Dim语句声明变量并分配存储空间。
语法Dim[WithEvents] varname[([subscripts])] [As[New] type] [, [WithEvents] varname[([subscripts])] [As [New] type]] . . .Dim语句的语法包含下面部分：说明在模块级别中用Dim声明的变量，对该模块中的所有过程都是可用的。
在过程级别中声明的变量，只在过程内是可用的。
可以使用Dim语句在模块级或过程级中声明变量的数据类型。
例如，下面的语句声明了Integer 类型的变量。
Dim NumberOfEmployees As Integer也可以使用Dim语句来声明变量的对象类型。
vb语句大全
Beep语句
描述：通过计算机喇叭发出声音。 一、语法：
Beep 二、说明：
呼叫的频率与时间长短取决于硬件和系统软件，并随计算机不同而不同。 三、应用举例：
在调试程序时，有时需要在发生错误时发出音响。本例在程序运行时，如果某一步发生 错误，则转到错误处理入口，使用 Beep 语句让计算机发出响声，同时 MsgBox 函数将提示 错误。
必需的。文字，其它常量，或由除 Is 之外的任意的算术操作符和逻辑操作符所 expression 构成的任意组合。
二、说明： 对于程序中多次出现的数值、文字等最好使用常量，这样在程序运行时不易出错。常量
可以使程序更具可读性，以及易于修改。 在缺省情况下常量是局部的。在 Sub、Function 或 Property 过程中声明的常量都是该过
用 AppActivate 语句时必须打开应用程序，否则程序会报错。所以通常先用 Shell 函数启动 一个应用程序，然后使用 AppActivate 语句激活。 三、应用举例：
本例使用 AppActivate 语句来激活 Microsoft Excel。建立一个标准工程，在窗体上添加 一个命令按钮，将下面的程序粘贴过去。 Private Sub Command1_Click()
若省略 filenumberlist，则将关闭 Open 语句打开的所有活动文件。文件被关闭后，相关 联的缓冲区空间被释放，文件与其文件号之间的关联也将终结。 三、应用举例：
本示例使用 Close 语句来关闭为 Output 而打开的文件。建立一个标准工程，在窗体上 添加一命令按钮，将下面的程序粘贴过去。 Private Sub Command1_Click()
程的局部常量，在类模块声明的常量也是局部的。在标准模块中，可以用 Public 关键字来 声明常量为全局的。
(word完整版)vb编程常用命令集锦
vb编程常用命令集锦API函数声明数据类型与”类型安全”常数结构小结一些API函数集：控件与消息函数、硬件与系统函数、菜单函数、绘图函数什么是API首先，有必要向大家讲一讲，什么是API。
所谓API本来是为C和C++程序员写的.API说来说去，就是一种函数，他们包含在一个附加名为DLL的动态连接库文件中.用标准的定义来讲，API就是Windows的32位应用程序编程接口，是一系列很复杂的函数，消息和结构，它使编程人员可以用不同类型的编程语言编制出的运行在Windows95和Windows NT操作系统上的应用程序.可以说，如果你曾经学过VC，那么API对你来说不是什么问题。
但是如果你没有学过VC，或者你对Windows95的结构体系不熟悉,那么可以说，学习API将是一件很辛苦的事情。
如果你打开WINDOWS的SYSTEM文件夹，你可以发现其中有很多附加名为DLL的文件。
一个DLL中包含的API 函数并不只是一个，数十个，甚至是数百个。
我们能都掌握它嘛?回答是否定的∶不可能掌握.但实际上，我们真的没必要都掌握，只要重点掌握Windos系统本身自带的API函数就可以了.但,在其中还应当抛开掉同VB本身自有的函数重复的函数。
如，VB的etAttr命令可以获得文件属性，SetAttr可以设置文件属性。
对API来讲也有对应的函数GetFileAttributes和SetFileAttributes，性能都差不多。
如此地一算，剩下来的也就5、600个.是的，也不少。
但,我可以敢跟你说，只要你熟悉地掌握100个,那么你的编程水平比现在高出至少要两倍。
尽管人们说VB和WINDOWS具有密切的关系，但我认为，API更接近WINDOWS。
如果你学会了API,首要的收获便是对WINDOWS体系结构的认识。
这个收获是来自不易的。
如果你不依靠API会怎么样?我可以跟你说，绝大多是高级编程书本(当然这不是书的名程叫高级而高级的，而是在一开始的《本书内容》中指明《本书的阅读对象是具有一定VB基础的读者》的那些书)，首先提的问题一般大都是从API开始。
VB编程常用代码大全(精品)
VB编程常用代码大全ＶB编程常用代码大全１.数值型函数：ａｂｓ(nuｍ)：返回绝对值sgn(num): ｎum>０１; nｕm＝0 0; nuｍ＜0 -1；判断数值正负hex(ｎum)：返回十六进制值直接表示:&Ｈxx 最大８位oｃｔ(ｎｕｍ): 返回八进制值直接表示:&Oxx 最大8位sqｒ(ｎum): 返回平方根ｎｕm>0int(num）: 取整 iｎt（9９．８)=9９； iｎt(-99.2)=100 fix(ｎｕm): 取整fix(９９.8）=９9; ｆix(-99.2)＝99 round(ｎum,n)：四舍五入取小数位rouｎd(3.１4１５9，3)=3．14２中点数值四舍五入为近偶取整 rｏund(3.２５,1)=３.2lｏｇ(num): 取以e为底的对数 nｕm>0exp(n): 取ｅ的ｎ次幂通常用 num＾nsｉn(nｕm): 三角函数,以弧度为值计算 (角度*Pai)/1８0=弧度 con(num); taｎ(ｎuｍ); aｔn(ｎuｍ)2.字符串函数:leｎ(ｓtr)：计算字符串长度中文字符长度也计为一!miｄ(str,起始字符,[读取长度])：截取字符串中间子字符串left(ｓtr,nlen)：从左边起截取nleｎ长度子字符串ｒight(sｔr，ｎleｎ)：从右边起截取nlen长度子字符串Lcase(stｒ）:字符串转成小写Ｕcase(str）:字符串转成大写triｍ(str):去除字符串两端空格Ltｒim（str）：去除字符串左侧空格Ｒtrim(str):去除字符串右侧空格ｒeｐlａce（ｓtr,查找字符串，替代字符串，［起始字符,替代次数,比较方法］):替换字符串注:默认值:起始字符 1;替代次数不限；比较方法区分大小写(0)ＩｎStｒ（［起始字符,]ｓtr,查找字符串［,比较方法]):检测是否包含子字符串可选参数需同时选返回起始位置InＳtrRｅv（str，查找字符串[,起始字符]［,比较方法])：反向检测是否包含子字符串返回起始位置space(ｎ):构造n个空格的字符串string(ｎ,str）:构造由n个str第一个字符组成的字符串StrReｖerse(sｔr）：反转字符串spｌit(ｓtr,分割字符串[,次数］[,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选３.数据类型转换函数：Cinｔ（sｔr):转换正数 Tｒue -１;False 0;日期距离1899/12／31天数；时间上午段０；下午段 1；Cｓｔｒ(str)：日期输出格式ｙyyｙ/ｍm/ｄd；时间输出格式 Am/Pm ｈh:mｍ:ssCｌｎg(ｓｔｒ）：与Cin（)类似Cｂｏoｌ(num)：num不为零 Truｅ;反之 FalseCdate（ｓtr)：转换日期格式0:#Am 1２:０0:00#；正数距离１899/１２／３１天数的日期;浮点数日期＋小数时间Cｂyｔe(nuｍ)：ｎum<255 转换为字节Ｃsng(stｒ):转换为单精度数值Cdbl(ｓtr):转换为双精度数值Ｃcur(ｓtｒ)：转换为现金格式４.时间函数：daｔe：取系统当前日期ｔime：取系统当前时间ｎｏｗ：取系统当前时间及日期值Ｄatｅtime类型ｔimｅr：取当前时间距离零点秒值，计时器，可计算时间差ＤateAdd(间隔单位,间隔值，日期）：推算相邻日期DateDiff(间隔单位,日期一，日期二)：计算时间差日期二-日期一Ｄａｔｅpart(间隔单位,日期)：计算日期的间隔单位值Dateｓｅriaｌ（datｅ)：输出日期值(按序列计算)Ｔｉmeｓerial(time):输出时间值（按序列计算）Ｄａtevalue(ｄａteｔimｅ):取出字符串中日期值Timeｖａlue(ｄatetiｍe）：取出字符串中时间值weekdａy（datｅ):计算星期几MontｈＮaｍe(datｅ）：输出月分名yeaｒ(ｄatetimｅ):截取年份moｎth(dａtetｉme)：截取月份day(ｄatetimｅ):截取日ｈoｕｒ(datetime)：截取小时minutｅ(datetｉme):截取分钟sｅconｄ(daｔetimｅ)：截取秒５.其它函数:Aｒray(ｕｎit,．.)：动态生成数组Aｓc(str):输出字符串第一个字符的ASCIＩ码Chr(ａsc):转换ASＣII为字符 Enter:Ｃhｒ(13)&Ｃhr（10) Fｉlteｒ（数组名称,关键字符串,[,包含][,比较方法]）：将字符串数组中含有关键字符串的元素存成新的数组(默认） [包含]为fａlsｅ则取不包含的元素oiｎ（ArrａｙName）:将数组中元素连成字符串Ubound（ArraｙNamｅ［,维数])：取得数组相应维数的上界Lbounｄ(ArrayＮame[,维数］）：取得数组相应维数的下界一般为0Randmize ｎ：启动随机数种子Rｎｄ(n）：取得随机数,n>０或为空,取序列下一随机值，ｎ<0,随机值相同，n=０,生产与上一随机值相同的数取介于A和B之间的随机正数Ｃ,公式:Ｃ=Int((Ｂ－A+1）*Rｎd+Ａ) 条件(B＞Ａ)子程序和自定义函数Sub ＳtrＳubName Ｆｕｎction StｒＦunName（arg[１］，..)子程序体函数体Eｘit Ｓｕb 中途跳出 Eｘit Funcｔｉon 中途跳出Ｅnd Sub StrFunＮamｅ=vａlue 返回值Enｄ Fｕnctioｎ［ｃall] SｔrＳｕbNａme 引用子程序Ｖar=ＳtｒFuｎName(arg[1］，．.) 引用函数...内容来自网络 ...。
最为常用的VB代码大全
隐藏form1：form1.hide显示form1：form1.show--------------------------------------------------------------------------------------------- 退出程序时，弹出窗口提示是否要退出：Private Sub Form_Unload(Cancel As Integer)Dim iAnswer As IntegeriAnswer = MsgBox("真要退出吗?", vbYesNo)If iAnswer = vbNo ThenCancel = TrueElseEndEnd IfEnd Sub---------------------------------------------------------------------------------------------- 只能用任务管理器关闭程序的代码：Private Sub From_Unload(Cancel As Integer)Cancel = trueEnd Sub------------------------------------------------------------------------------------------------ 点击command1打开33IQ网：Dim strURLPrivate Sub Command1_Click()strURL = "错误！超链接引用无效。
Shell "explorer.exe " & strURL, 1End Sub------------------------------------------------------------------------------------------------ 运行c:\1.exeshell "c:\1.exe"执行c:\1.batshell "c:\1.bat"注：只适用于大部分exe和全部bat。
VB命令语名一览表
X必须定义为wariant类型
子程序过程定义
Sub过程名(byval x!, byref Y!)
……
Exit sub
End sub
值传递：byval
地址传递：byref(缺省方式)
调用子过程
Call过程名(x0,y0)
过程名x0,y0
函数过程定义
Function函数名( byval x!, byref Y!) as类型
…….
Case else
…….
End select
循环语句
For变量=a to b step c
…
Next变量
循环次数=(b-a)\c
while (条件)
…
wend
Do while |until(条件)
…
loop
Do
…
loop while |until(条件)
定义数组P76
Dim a(最大下标) as类型
……
Exit function
函数名=表达式
End function
调用函数
W=函数名（x0,Y0）
打开文件
Open “路径\文件名.TXT” for模式as #文件号
Output|input|
append
写文件
Write #文件号，表达式列表
读文件记录数据
Input #文件号，表达式列表
关闭文件
Close #文件号
VB语句（命令）一览表
作用
语法格式
参数举例
定义变量（关注变量的作用域）
Dim变量as数据类型
Dim变量<类型符>
基本数据类型：Integer, long, single, double, string
VB命令大全
VB命令(mìng lìng)大全VB命令(mìng lìng)大全VB命令(mìng lìng)大全命令(mìng lìng)Call：调用(diàoyòng)事件处理器Close关闭(guānbì)用Open命令所打开文件(wénjiàn)的输入输出。
格式：Close #文件号1, #文件号2……。
若无文件号，则关闭打开的所有活动文件。
Const：声明常量,格式:Const常量名[As类型] =常量值DoEvents：让应用程序提供少量时间处理等待的任务，然后控制权立即返回应用程序。
Dim声明变量，格式：Dim变量名As变量类型Exit sub：中途退出子程序End：结束程序Global：声明全局变量Load：装入窗体MsgBox消息(xiāo xi)内容：将结果显示在消息框中Open打开或保存(bǎocún)文件。
格式：Open文件(wénjiàn)全名For模式(móshì)As #文件(wénjiàn)号[Len =文件长度]其中，模式有：Append、Binary、Input、Output、Random(缺省)；文件号在1到511之间，可用FreeFile函数取得；文件长度在1到32767之间。
例：Open CommonDialog1.FileName For Output As #1Option Base 1：放在声明部分,强制数组从1开始索引,(如果不习惯从0开始的话)Option Explicit：强制声明变量(放在窗体或模块的声明部分)PopupMenu调出弹出式菜单。
格式：PopupMenu弹出式菜单名, flags, x, y, Boldcommand（只有前面两项为必选）。
vb命令汇总
·常量定义Const name [as type] = valueName:常量名Value:值type:常量数据类型（可有可无）变量定义Dim name [as type]如：Dim I as long, j as longName:变量名type:变量数据类型（可有可无）选取范围Range(“A1”). Font.ColorIndex = 3 ' Red Worksheets("Sheet1").Cells(1, 1).Value = 10条件语句：If anyDate < Now Thencar = oldElsecar = newEnd If或If condition1 Then [statements] ElseIf condition2Select Case markCase 0Msgbox(“缺考”)Case is<60Msgbox(“不及格”)Case 60 to 98Msgbox(“合格”) Case 99,100Msgbox(“优秀”) Case ElseMsgbox(“出错”) End Select循环语句：i=1Do while i<=10sum=sum+ii=i+1Loopi=1Do until i>10sum=sum+ii=i+1Loopi=1dosum=sum+ii=i+1Loop while i<=10i=1dosum=sum+ii=i+1Loop until i>10Do While n<100n=n+1m=m*nif m>=100000 Then Exit Do LoopFor i=1 To 100 Step 1sum=sum+iNext iFor Each mycell In SelectionIf mycell.Value Like "OK" Thenmycell.Font.Bold = TrueEnd IfNext当前活动工作簿（一个Workbook对象）Application.ActiveWorkbook当前活动工作表（一个Sheet对象）Application.ActiveSheet当前活动单元格（一个Range对象）Application.ActiveCell当前活动窗口中被选中的对象Application.Selection命令：ClearContents删除内容Msgbox 输出内容InputBox 输入内容命名Sheets(1).Name=”VBA世界”字体属性Application.Worksheets(“Sheet 1”).Cells(5,3).Font.Size=14ActiveCell.Font.Bold=True获取对象属性Sheet_name=Sheets(3).Name 获取工作表3的名称窗体1.Load:加载窗体Load UserForm2Unload：卸载窗体Show：显示窗体UserForm2.ShowHide：隐藏窗体Move：移动窗体Private Sub UserForm_Initialize（初始化事件）/ Termiate（销毁事件）/ Activate/Deactivate（激活/非激活事件）控件：控件名_事件名。
vb命令
（一）类型转换类函数1. CType(X)[格式]：P=CBool(X) ' 将X转换为“布尔”（Boolean）类型P=CByte(X) ' 将X转换为“字节”（Byte）类型P=CCur(X) ' 将X转换为“金额”（Currency）类型P=CDate(X) ' 将X转换为“日期”（Date）类型P=CDbl(X) ' 将X转换为“双精度”（Double）类型P=CInt(X) ' 将X转换为“整型”（Integer）类型P=CLng(X) ' 将X转换为“长整型”（Long）类型P=CSng(X) ' 将X转换为“单精度”（Single）类型P=CStr(X) ' 将X转换为“字符串”（String）类型P=Cvar(X) ' 将X转换为“变体型”（Variant）类型P=CVErr(X) ' 将X转换为Error值[ 范例 ]：(1). CStr(13)+CStr(23)' 数值转换成字符串后，用"+"号连接，结果：1323(2). CInt("12")+12' 字符串转换成整型后与12相加，结果：24(3). P=CInt(True)' 输出结果为-1' 布尔值与数值的转换时要注意，布尔值只有True和False，其中True在内存中为-1,False存为0 (4). CBool(-0.001)' 输出结果为True' 将数值转换为布尔型时，等于0的数值将得到False，不等于0的数值得到True.2. Int(X),Fix(X)：取X的整数值[格式]：P=Int(X) ' 取<=X的最大整数值P=Fix(X) ' 取X的整数部分，直接去掉小数[范例]：(1) Int(-54.6) ' 结果为-55，取<=-54.6的最大整数(2) Fix(54.6) ' 结果为54，取整数并直接去掉小数（二）常用数学函数[格式]：1. Abs(N) 取绝对值例：Abs(-3.5) 结果：3.52. Cos(N) 余弦函数例：Cos(0) 结果：13. Exp(N) e为底的指数函数例：Exp(3) 结果：20.0684. Log(N) 以e为底的自然对数例：Log(10) 结果：2.35. Rnd[(N)] 产生随机数例：Rnd 结果：0--1之间的数6. Sin(N) 正弦函数例：Sin(0) 结果：07. Sgn(N) 符号函数' 说明：取正负号。
vb指令集1
Calendar 常数: vbCalGreg vbCalHijriColor 常数: vbBlack vbRed vbGreen vbYellow vbBlue vbMagenta vbCyan vbWhiteComparison常数: VbUseCompareOption VbBinaryCompare VbTextComparevbDatabaseCompareCompiler 常数: Win16 Win32Date 常数: vbUseSystem vbSunday vbMonday vbTuesday vbWednesdayvbThursday vbFriday vbSaturdayfirstdayofyear: vbUseSystem VbUseSystemDayOfWeek VbFirstJan1vbFirstFourDays vbFirstFullWeek返回值: vbSunday vbMonday vbTuesday vbWednesdayvbThursday vbFriday vbSaturday日期格式常数: vbGeneralDate vbLongDate vbShortDate vbLongTimevbShortTimeDir、GetAttr 和 SetAttr 常数: vbNormal vbReadOnly vbHidden vbSystemvbVolume vbDirectory vbArchive驱动器类型常数: Unknown Removable Fixed Remote CDROM RAMDisk文件属性常数: Normal ReadOnly Hidden System Volume DirectoryArchive Alias Compressed文件输入/输出常数: ForReading ForWriting ForAppendingIMEStatus 常数: vbIMEModeNoControl vbIMEModeOn vbIMEModeOffvbIMEModeDisable vbIMEModeHiragana vbIMEModeKatakana vbIMEModeKatakanaHalf vbIMEModeAlphaFull vbIMEModeAlpha Keycode 常数: vbKeyLButton vbKeyRButton vbKeyCancel vbKeyMButtonvbKeyBack vbKeyTab vbKeyClear vbKeyReturn vbKeyShift vbKeyControl vbKeyMenu vbKeyPause vbKeyCapital vbKeyEscape vbKeySpace vbKeyPageUp vbKeyPageDownvbKeyEnd vbKeyHome vbKeyLeft vbKeyUp vbKeyRightvbKeyDown vbKeySelect vbKeyPrint vbKeyExecutevbKeySnapshot vbKeyInsert vbKeyDelete vbKeyHelpvbKeyNumlockvbKeyA vbKeyB vbKeyC vbKeyD vbKeyE vbKeyF vbKeyG vbKeyH vbKeyI vbKeyJ vbKeyK vbKeyL vbKeyM vbKeyNvbKeyO vbKeyP vbKeyQ vbKeyR vbKeyS vbKeyT vbKeyU vbKeyV vbKeyW vbKeyX vbKeyY vbKeyZvbKey0 vbKey1 vbKey2 vbKey3 vbKey4 vbKey5 vbKey6vbKey7 vbKey8 vbKey9vbKeyNumpad0 vbKeyNumpad1 vbKeyNumpad2 vbKeyNumpad3 vbKeyNumpad4 vbKeyNumpad5 vbKeyNumpad6 vbKeyNumpad7 vbKeyNumpad8 vbKeyNumpad9 vbKeyMultiply vbKeyAdd vbKeySeparator vbKeySubtract vbKeyDecimal vbKeyDivide vbKeyF1 vbKeyF2 vbKeyF3 vbKeyF4 vbKeyF5 vbKeyF6vbKeyF7 vbKeyF8 vbKeyF9 vbKeyF10 vbKeyF11 vbKeyF12 vbKeyF13 vbKeyF14 vbKeyF15 vbKeyF16Miscellaneous 常数: vbCrLf vbCr vbLf vbNewLine vbNullCharvbNullString vbObjectError vbTab vbBackvbFormFeed vbVerticalTabMsgBox 常数: vbOKOnly vbOKCancel vbAbortRetryIgnore vbYesNoCancelvbYesNo vbRetryCancel vbCritical vbQuestionvbExclamation vbDefaultButton1 vbDefaultButton2vbDefaultButton3 vbDefaultButton4 vbApplicationModalvbSystemModal vbMsgBoxHelpButton VbMsgBoxSetForeground vbMsgBoxRight vbMsgBoxRtlReadingvbOK vbCancel vbAbort vbRetry vbIgnore vbYes vbNo QueryClose常数: vbFormControlMenu vbFormCode vbAppWindowsvbAppTaskManagerShell 常数: vbHide vbNormalFocus vbMinimizedFocus vbMaximizedFocus vbNormalNoFocus vbMinimizeNoFocus特殊文件夹常数: WindowsFolder SystemFolder TemporaryFolderStrConv 常数: vbUpperCase vbLowerCase vbProperCase vbWide vbNarrow vbKatakana vbHiragana vbUnicode vbFromUnicodeSystem Color 常数: vbScrollBars vbDesktop vbActiveTitleBarvbInactiveTitleBar vbMenuBar vbWindowBackgroundvbWindowFrame vbMenuText vbWindowText vbTitleBarText vbActiveBorder vbInactiveBorder vbApplicationWorkspace vbHighlight vbHighlightText vbButtonFace vbButtonShadow vbGrayText vbButtonText vbInactiveCaptionTextvb3Dhighlight vb3DDKShadow vb3Dlight vbInfoTextvbInfoBackground三态常数: TristateTrue TristateFalse TristateUseDefaultVarType 常数: vbEmpty vbNull vbInteger vbLong vbSingle vbDouble vbCurrency vbDate vbString vbObject vbError vbBoolean vbVariant vbDataObject vbDecimal vbBytevbUserDefinedType vbArrayBoolean 数据类型 Byte 数据类型 Currency 数据类型 Date 数据类型Decimal 数据类型 Double 数据类型 Integer 数据类型 Long 数据类型Object 数据类型 Single 数据类型 String 数据类型用户定义数据类型Variant 数据类型#Const 指令 #If...Then...#Else 指令 Abs(number) Array(arglist) Asc(string) Atn(number) CallByName(object, procedurename, calltype,[arguments()])Choose(index, choice-1[, choice-2, ... [, choice-n]]) Chr(charcode) CommandCos(number) CreateObject(class,[servername]) CurDir[(drive)]CVErr(errornumber) Date DateAdd(interval, number, date)DateDiff(interval, date1, date2[, firstdayofweek[,firstweekofyear]])DatePart(interval,date[,firstdayofweek[,firstweekofyear]])DateSerial(year, month, day) DateValue(date) Day(date)DDB(cost,salvage, life, period[, factor]) Dir[(pathname[, attributes])]DoEvents( ) Environ({envstring| number}) EOF(filenumber) Error[(errornumber)] Exp(number) FileAttr(filenumber, returntype) FileDateTime(pathname)FileLen(pathname) Filter(InputStrings,Value[,Include[,Compare]])Format(expression[, format[, firstdayofweek[, firstweekofyear]]]) FormatCurrency(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit[,UseParensForNegativeNumbers [,GroupDigits]]]])FormatDateTime(Date[,NamedFormat])FormatPercent(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit[,UseParensForNegativeNumbers [,GroupDigits]]]])FreeFile[(rangenumber)] FV(rate, nper, pmt[, pv[, type]])GetAllSettings(appname,section) GetAttr(pathname)GetObject([pathname] [, class]) GetSetting(appname,section,key[,default])Hex(number) Hour(time) IIf(expr,truepart,falsepart) IMEStatusInput(number, [#]filenumber)InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context]) InStr([start, ]string1, string2[, compare])InstrRev(string1,string2[,start[,compare]])Int(number) Fix(number) IPmt(rate, per, nper, pv[, fv[, type]])IRR(values()[, guess]) IsArray(varname) IsDate(expression)IsEmpty(expression) IsError(expression) IsMissing(argname)IsNull(expression) IsNumeric(expression) IsObject(identifier)Join(list[, delimiter]) LBound(arrayname[, dimension]) LCase(string)Left(string, length) Len(string | varname) Loc(filenumber) LOF(filenumber)Log(number) LTrim(string) RTrim(string) Trim(string)Mid(string, start[, length]) Minute(time)MIRR(values(),finance_rate, reinvest_rate) Month(date)MonthName(month[,abbreviate])MsgBox(prompt[, buttons] [, title] [, helpfile, context])Now NPer(rate, pmt, pv[, fv[, type]]) NPV(rate, values()) Oct(number) Partition(number, start, stop, interval) Pmt(rate, nper, pv[, fv[, type]])PPmt(rate, per, nper, pv[, fv[, type]]) PV(rate, nper, pmt[, fv[, type]]) QBColor(color) Rate(nper, pmt, pv[, fv[, type[, guess]]])Replace(expression,find,replacewith[,start[,count[,compare]]])RGB(red, green, blue) Right(string, length) Rnd[(number)]Round(expression [,numdecimalplaces]) Second(time) Seek(filenumber)Sgn(number) Shell(pathname[,windowstyle]) Sin(number)SLN(cost, salvage, life) Space(number) Spc(n)Split(expression[,delimiter[,count[,compare]]])Sqr(number) Str(number) StrComp(string1, string2[, compare])StrConv(string, conversion, LCID) StrReverse(string1)String(number, character)Switch(expr-1,value-1[,expr-2,value-2 _ [,expr-n,value-n]])SYD(cost, salvage, life, period) Tab[(n)] Tan(number) TimeTimer TimeSerial(hour,minute,second) TimeValue(time)CBool(expression)CByte(expression) CCur(expression)CDate(expression)CDbl(expression)CDec(expression)CInt(expression)CLng(expression)CSng(expression)CStr(expression)CVar(expression)CStr(expression) TypeName(varname) UBound(arrayname[, dimension]) UCase(string)VarType(varname) Weekday(date, [firstdayofweek])WeekdayName(weekday,abbreviate,firstdayofweek) Year(date)数据类型概述: Byte Boolean Integer Long Single Double CurrencyDecimal Date Object String String Variant VariantType导出的数学函数: Secant Cosecant Cotangent Inverse SineInverse Cosine Inverse Secant Inverse CosecantInverse Cotangent Hyperbolic Sine Hyperbolic CosineHyperbolic Tangent Hyperbolic SecantHyperbolic Cosecant Hyperbolic CotangentInverse Hyperbolic Sine Inverse Hyperbolic Cosinenverse Hyperbolic Tangent Inverse Hyperbolic SecantInverse Hyperbolic Cosecant nverse Hyperbolic Cotangent 逻辑运算符: And Eqv Imp Not Or Xor数学函数: Abs Atn Cos Exp Fix Int Log Rnd Sgn Sin Sqr Sqr运算符优先顺序: ^ - (*、/) \Mod (+、-) &= <> < > <= >= LikeNot And Or Xor Eqv Imp Is数组关键字总结: IsArrayArrayOption BaseDim, Private, Public, ReDim, StaticLBound, UboundErase, ReDimCollection 对象关键字总结: IsArrayArrayOption BaseDim, Private, Public, ReDim, StaticLBound, UboundErase, ReDim编译命令关键字总结: #Const#If...Then...#Else控制流关键字总结: GoSub...Return, GoTo, On Error, On...GoSub, On...GoTo DoEvents, End, Exit, StopDo...Loop For...Next, For Each...Next, While...Wend, With Choose, If...Then...Else, Select Case, SwitchCall, Function, Property Get, Property Let, Property Set, Sub 变换关键字总结: Chr Format, LCase, UCase DateSerial, DateValue Hex, Oct Format, StrCBool, CByte, CCur, CDate, CDbl, CDec, CInt, CLng, CSng,CStr, CVar, CVErr, Fix, IntDay, Month, Weekday, YearHour, Minute, Second Asc ValTimeSerial, TimeValue数据类型关键字总结: CBool, CByte, CCur, CDate, CDbl, CDec, CInt, CLng,CSng, CStr, CVar, CVErr, Fix, IntBoolean, Byte, Currency, Date, Double, Integer, Long, Obect, Single,String, Variant (default)IsArray, IsDate, IsEmpty, IsError, IsMissing, IsNull,IsNumeric, IsObject日期与时间关键字总: Date ,Now, Time DateAdd, DateDiff, DatePartDateSerial, DateValue TimeSerial, TimeValueDate, Time Timer目录和文件关键字总结: ChDir ChDrive FileCopy MkDirRmDir Name CurDir FileDateTimeGetAttr FileLen Dir SetAttr错误关键字总结: Clear, Error, Raise Error Err CVErrOn Error, Resume IsError金融关键字总结: DDB, SLN, SYD FV Rate IRR, MIRRNPer IPmt, Pmt, PPmt NPV, PV输入与输出关键字总结: DDB, SLN, SYD FV Rate IRR,MIRR NPer IPmt, Pmt, PPmt NPV, PV 数学关键字总结: Atn, Cos, Sin, Tan Exp, Log, Sqr Randomize, RndAbs Sgn Fix, Int其他关键字总结: DoEvents AppActivate, Shell SendKeysBeep Environ Command MacID, MacScriptCreateObject, GetObject QBColor, RGB运算符关键字总结: DoEvents AppActivate, Shell SendKeysBeep Environ Command MacID, MacScriptCreateObject, GetObject QBColor, RGB注册关键字总结: DoEvents AppActivate, Shell SendKeysBeep Environ Command MacID, MacScriptCreateObject, GetObject QBColor, RGB字符串处理关键字总结: StrComp StrConv Format, LCase, UCaseSpace, String Len Format LSet, RSetInStr, Left, LTrim, Mid, Right, RTrim, TrimOption Compare Asc, Chr变量与常数关键字总结: Let Const, Dim, Private, Public, New, StaticOption Private ModuleIsArray, IsDate, IsEmpty, IsError, IsMissing, IsNull,IsNumeric, IsObject, TypeName, VarTypeMe Option Explicit DeftypeAs: Const 语句 Declare 语句 Dim 语句 Function 语句 Name 语句Open 语句 Private 语句 Property Get 语句 Property Let 语句Property Set 语句 Public 语句 ReDim 语句 Static 语句Sub 语句 Type 语句Binary: Open 语句 Option Compare 语句ByRef: Call 语句 Declare 语句 Function 语句 Property Get 语句Property Let 语句 Property Set 语句 Sub 语句ByVal: Call 语句 Declare 语句 Function 语句 Property Get 语句Property Let 语句 Property Set 语句 Sub 语句Date: Date 数据类型 Date 函数 Date 语句Else: If...Then...Else 语句 Select Case 语句Empty: Empty关键字是用作 Variant 子类型。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
常用命令
FontStrikeThru属性是逻辑型，决定对象上正文是否加一删除线。
FontItalic属性是逻辑型，决定对象上正文是否是斜体。
窗体的其它常用属性
2．Icon 控制图标属性：返回或设置窗体左上角显示或最小化时显示的图标。
注意：此属性必须在ControlBox属性设置为Ture才有效
3．ControlBox控制菜单框属性：设置Ture为有，如设置为False则无控件菜单，同时窗体也无最大化按钮和最小化按钮，即使MaxButton属性和MinButton属性设置为Ture。
5. BorderStyle：边框风格, 通过改变BorderStyle 属性，可以控制窗体如何调整大小。
0-None：无边框；
1-Fixed Single：单线边框，不可以改变窗口大小；
2-Sizable：双线边框，可以改变窗口大小；
3-Fixed Double：双线框架，不可以改变窗口大小。
4-Fixed Tool Window:窗体外观与工具条相似。
有关闭按钮，不可以改变窗口大小。
5-Sizable Tool Window：窗体外观与工具条相似。
有关闭按钮，可以改变窗口大小。
6. WindowsState属性
用来设置窗体的运行状态。
0-Normal：正常窗口状态，有窗口边界；
1-Minimized：最小化状态，以图标方式运行；
2-Maximized：最大化状态，无边框，充满整个屏幕。
7. AutoRedraw属性
该属性决定窗体被隐藏或被另一窗口覆盖之后，是否重新还原该窗体被隐藏或覆盖以前的画面。
即是否重画如Circle、Line、Pset和Print等方法的输出。
当为True时，重新还原该窗体以前的画面。
当为False时，则不重画AutoRedraw属性。
4 Resize事件
无论是因为用户交互，还是通过代码调整窗体的大小，都会触发一个Resize事件。
5 Activate事件：当窗体由非活动窗体变为活动窗体，即当窗体得到焦点时触发该事件。
窗体常用的方法有：
打印输出Print
移动Move
清除Cls
显示Show
隐藏Hide等方法。
方法的使用的形式:
[对象.]方法[参数]
1.Print方法
形式: [窗体名.]Print[{Spc(n)|Tab(n)}][表达式列表][；|，]
作用: 在对象上输出信息
Spc(n)函数：插入n个空格，允许重复使用。
Tab(n)函数：从窗体第n列开始输出，允许重复使用。
；(分号)：光标定位上一个显示的字符后(紧凑格式)。
，(逗号)：光标定位在下一个打印区的开始位置处。
每个打印区占14列(标准格式)。
无；，换行。
2. Cls方法
形式: [对象.]Cls
作用: 清除运行时在窗体中显示的文本或图形。
注意:
Cls方法不能清除在设计时的文本和图形。
清屏后坐标当前回到原点。
3. Move方法
形式: [对象.]Move Left[，Top[，Width[，Height]]]
作用: 移动窗体或控件，并可改变其大小。
对象：可以是窗体及除时钟、菜单外的所有可视控件，省略代表窗体。
左边距离，上边距离，宽度，高度：数值表达式，以twip为单位。
如果是窗体对象，则“左边距”和“上边距”是以屏幕左边界和上边界为准。
其它则是以窗体的左边和上边界为准。
Move方法至少需要一个Left参数值，其余均可省略。
4．Show(显示)方法
Show方法用于在屏幕上显示一个窗体，调用Show 方法与设置窗体Visible 属性为True 具有相同的效果。
其调用格式如下：
窗体名.Show [vbModal | vbModeless]
说明:（1）它有两种可能值：0-vbModal（缺省）或1-vbModeless。
当参数为vbModal时，要求用户必须对当前的窗口或对话框做出响应，才能切换到其他窗口。
（2）如果要显示的窗体事先未装入，该方法会自动装入该窗体再显示。
Form2.Show vbModal
Form2.Show VbModaless
5．Hide（隐藏）方法
Hide方法用于使指定的窗体不显示，但不从内存中删除窗体。
其调用格式为：
窗体名.Hide
说明：当一个窗体从屏幕上隐去时，其Visible属性被设置成False，并且该窗体上的控件也变得不可访问，但对运行程序间的数据引用无影响。
若要隐去的窗体没有装入，则Hide方法会装入该窗体但不显示。
2．常用属性
（1）Caption: 标题属性——命令按钮显示的内容，可在某字母前加“&“设置快捷键。
例如：&Ok , 显示Ok
（2）Default：确认属性（逻辑值），设置为True时，按Enter键相当于用鼠标器单击了该按钮。
注意：在一个窗体只能的一个按钮的Default设置为Ture
（3）Cancel:取消功能属性（逻辑值），当设置为Ture时，程序运行时按Esc键与单击此命令按钮的效果相同。
注意：在一个窗体只能的一个按钮的Cancel属性设置为Ture
（4）Picture : 按钮可显示图片文件(.bmp和.Ico)，只有当Style属性值设为1时有效（5）Style : 确定显示的形式. 0 只能显示文字, 1 文字、图形均可。
（6）ToolTipText ：设置工具提示，和Picture结合使用。
三、文本框TextBox
是一个文本编辑区域，在该区域输入，编辑和显示文本。
（一）属性
1．基本属性
Name、Height、Width、Top、Left、Enabled、Visible、Font，ForeColor、BackColor等与标签控件相同。
?
2．常用属性
（1）Text文本属性
在文本框中显示的正文内容存放在Text属性中。
当程序运行时，用户通过键盘输入正文内容，保存在Text属性中。
文本框没有Caption属性
（2）Maxlength：设置正文的最多字符个数, 0任意长度值。
（3）MultiLine：是否为多行,默认一行. False
（4）ScrollBars：当MultiLine为True时,该属性才有效,滚动条的形式。
0-None：无滚动条、1-Horizontal：水平滚动条、
2-Vertical垂直滚动条、3-Both水平和垂直滚动条。
（5）Locked：是否可被编辑属性，False，表示为可编辑。
（6）PassWordChar属性
设置PasswordChar属性为了掩盖文本框中输入的字符。
该属性的设置只有在MultiLine设为False才有效
（7）SelStart、SelLength和SelText属性
这三个属性是文本框中对文本的编辑属性。
SelStart：确定在文本框选中文本的起始位置。
SelLength：设置或返回文本框中选定的文本字符串长度（字符个数）。
SelText：设置或返回当前选定文本中的文本字符串。
Text2.Text = Text1.SelStart
Text2.Text = Text1.SelText
LostFocus ：当控件失去焦点时发生。
GotFocus ：当控件获得焦点时发生。
文本框最有用的方法是：SetFocus，使用形式：[对象.]SetFocus
功能：是把光标移到指定的文本框对象中。
一、工程的组成
工程文件(.vbp)包含了一个应用程序的所有文件
窗体文件（.frm）:控件及属性、事件过程和自定义过程
窗体的二进制数据文件（.frx）,自动产生同名..frx文件。
标准模块文件（.bas）
类模块的文件（.cls）
资源文件（.res）
ActiveX控件的文件（.ocx）。