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行到4行上面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编程常用代码大全VB编程常用代码大全1.数值型函数:abs(num):返回绝对值sgn(num): num>01; 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)=100 fix(num): 取整fix(99.8)=99; fix(-99.2)=99 round(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.数据类型转换函数: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[,维数]):取得数组相应维数的下界一般为0Randmize 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],..) 引用函数...内容来自网络 ...。
- 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)。