VB命令大全

常用命令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事件：当窗体由非活动窗体变为活动窗体，即当窗体得到焦点时触发该事件。

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可用指令、函数索引表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指令12Vb指令第2章Visual Basic6.0语言基础（1）Dim str1As String*5'定义限定字符串长度（2）自定义数据类型Private Type Employee04empName As String'职员姓名05empAge As Integer'职员年龄06empAddr As String'职员住址07End Type（3）Const dateRem As Date=#1/10/2008#可以赋值（只定义在自己的事件里）a)Dim<变量名>[As<常数的数据类型>]b)Static<变量名>[As<常数的数据类型>]c)Private/Dim<变量名>[As<常数的数据类型>]d)Public<变量名>[As<常数的数据类型>]第3章程序控制结构(1)Print Tab(15);"ID";Tab(26);"姓名";Tab(36);"工资"'打印表头（2）05Print Tab(14);String(27,"-")'打印分隔符选择1．If…Then语句2．If…Then…Else语句3．If…Then…ElseIf…Else语句4．IIf函数嵌套5．If语句的嵌套Select Case语句Is、To关键字的使用循环While…Wend语句For…Next语句For Each…Next语句While型Do…Loop语句Until型Do…Loop语句GoTo语句、Exit语句、End语句、With语句及第4章数组（1）Dim A(1T o10)As Integer'定义数组A，其下标从1到10（2）Public|Private|Dim|Static数组名()[As数据类型]（3）ReDim[Preserve]数组名(下标)[As数据类型]（4）Print Tab(5);"平均成绩："&Format(average,"##.00")控制输出格式（5）Randomize'初始化随机数生成器A(i,j)=Int((99-10+1)*Rnd+10)（6）Dim A()As StringReDim A(1T o5)(定义动态数组)（7）ReDim Preserve A(1To6)'Preserve保护原有数据不被破坏第5章过程和函数（1）传值调用ByVal（2）传址调用ByRef（3）Sub过程实质上是一组具有一定功能的代码块（4）Function过程是一个具有数据类型和返回值的过程第6章应用程序用户界面一。

vb编程代码大全Visual Basic (VB) 是一种广泛用于软件开发的高级编程语言，可以用于开发 Windows 应用程序、Web 应用程序、数据库应用程序等。

在本文中，将介绍一些常用的 VB 编程代码，帮助初学者快速入门和提高编程水平。

一、基本数据类型1. 整型数据在 VB 中，整型数据可以使用 Integer 类型表示，范围为 -32,768 到32,767。

定义整型变量的代码如下：```Dim num As Integernum = 10```2. 浮点数据浮点数据可以使用 Single 或 Double 类型表示，分别表示单精度浮点数和双精度浮点数。

定义浮点变量的代码如下：```Dim num As Singlenum = 3.143. 字符串数据字符串数据可以使用 String 类型表示，可以存储文本数据。

定义字符串变量的代码如下：```Dim str As Stringstr = "Hello, World!"```二、控制流程1. If...Then...Else 语句If...Then...Else 语句用于根据条件执行不同的代码块。

例如：```Dim num As Integernum = 10If num > 0 ThenMsgBox("Num is positive.")ElseMsgBox("Num is negative.")End If2. For 循环For 循环用于重复执行一段代码。

例如：```For i = 1 To 10MsgBox(i)Next i```3. Do While 循环Do While 循环在满足条件时执行代码块。

例如：```Dim i As Integeri = 1Do While i <= 10MsgBox(i)i = i + 1Loop```三、数组1. 一维数组一维数组在 VB 中用于存储相同类型的多个元素。

Vb6.0语句大全1、AppActivate 语句激活一应用程序窗口。

语法AppActivate title[, wait]AppActivate语句的语法具有以下几个命名参数：说明AppActivate语句将焦点移动到命名的应用程序或窗口，但并不影响焦点是否最大化或最小化。

当用户采取行动改变焦点或将窗口关闭时，就会将焦点从活动的应用程序窗口移动出去。

可用Shell函数启动一个应用程序并设置窗口样式。

在决定激活哪个应用程序时，请将title与每一个运行中的应用程序的标题字符串进行比较。

如果没有完全匹配，就激活任何这样的应用程序，其标题字符串以title开头。

如果以title命名的应用程序有很多实例，则激活任何一个实例。

AppActivate 语句示例本示例说明使用AppActivate语句来激活应用程序的各种用法。

示例中用到的Shell语句均假定该应用程序已经存在指定的路径中。

Dim MyAppID, ReturnValueAppActivate "Microsoft Word" ' 激活 Microsoft Word。

' AppActivate 也可利用 Shell 函数的返回值。

MyAppID = Shell("C:\WORD\WINWORD.EXE", 1) ' 运行 Microsoft Word。

AppActivate MyAppID ' 激活 Microsoft Word。

' 您也可使用 Shell 函数的返回值。

ReturnValue = Shell("c:\EXCEL\EXCEL.EXE",1) ' 运行 Microsoft Excel。

AppActivate ReturnValue ' 激活 Microsoft Excel。

2、Beep 语句通过计算机喇叭发出一个声调。

在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编程常用命令集锦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 编程代码大全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; int=100fix(num): 取整fix=99; fix=99round(num,n): 四舍五入取小数位round,3)= 中点数值四舍五入为近偶取整round,1)=log(num): 取以e 为底的num>0exp(n):取e的n次幕通常用num A nsin(num):，以为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num) 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,字符串［,次数］［,比较方法］):以分割字符串为分割标志将字符串转为字符可选参数需同时选转换函数：Cint(str) ：转换正数True -1；False 0；日期距离1899/12/31 天数；时间上午段0；下午段1；Cstr(str):日期yyyy/mm/dd ;时间输出格式Am/Pm hh:mm:ssClng(str):与Cin()类似Cbool(num): num 不为零True;反之FalseCdate(str):转换日期格式0: #Am 12:00:00# ;正数距离1899/12/31天数的日期；日期+小数时间Cbyte(num) : num<255 转换为字节Csng(str):转换为数值Cdbl(str):转换为数值Ccur(str):转换为现金格式4.时间函数：date :取系统当前日期time ：取系统当前时间now：取系统当前时间及日期值Datetime类型timer :取当前时间距离零点秒值，，可计算时间差DateAdd(间隔单位侗隔值，日期)：推算相邻日期DateDiff(间隔单位，日期一，日期二)：计算时间差日期二-日期一Datepart(间隔单位，日期)：计算日期的间隔单位值Dateserial(date) ：输出日期值(按序列计算)Timeserial(time) ：输出时间值(按序列计算)Datevalue(datetime) ：取出字符串中日期值Timevalue(datetime) ：取出字符串中时间值weekday(date) ：计算星期几MonthName(date) ：输出月分名year(datetime) ：截取年份month(datetime) ：截取月份day(datetime) ：截取日hour(datetime) ：截取小时minute(datetime) ：截取分钟second(datetime) ：截取秒5.其它函数：Array(unit，..) ：动态生成数组Asc(str):输出字符串第一个字符的ASCII码Chr(asc):转换ASCII为字符Enter：Chr(13)&Chr(10)Filter（数组名称，关键字符串，［,包含］［,比较方法］）:将字符串数组中含有关键字符串的元素存成新的数组（默认）［包含］为false 则取不包含的oin（ArrayName）：将数组中元素字符串Ubound（ArrayName［, 维数］）：取得数组相应维数的上界Lbound（ArrayName［, 维数］）：取得数组相应维数的下界一般为0Ran dmize n：启动Rnd（n）：取得，n>0或为空，取序列下一随机值，n<0，随机值相同，n=0,生产与上一随机值相同的数取介于A和B之间的随机正数C,公式：C=Int（（B-A+1）*Rnd+A）条件（B>A）子程序和自定义函数Sub StrSubName Function StrFunName（arg［1］,..）子程序体函数体Exit Sub 中途跳出Exit Function 中途跳出End Sub StrFunName= value 返回值End Function引用函数[call] StrSubName 引用子程序Var=StrFunName(arg[1],..)。