VB常用语句文库

合集下载

VB中常用的表达式、函数、运算符

VB中常用的表达式、函数、运算符

VB中常用的表达式、函数、运算符1、VB中的表达式类型有:(1)算术表达式 (2)字符串表达式 (3)关系表达式 (4)逻辑表达式(1)算术运算符(+、-、*、/、\、MOD、^)例:62MOD9+2^3=16(2)VB中常用的字符串运算符有”&”和”+”(连接)功能:把参加运算的字符串按原来的顺序首尾相接,组成新的字符串。

“I am a ” & “teacher”=“I am a teacher”(3)关系表达式的值为布尔型的值True 或False关系表达式的运算顺序是:先进行算术运算或字符串运算,然后再进行比较运算。

其运算结果是一个逻辑值,即True(真)或False(假)。

如果条件成立,则关系表达式取True;如果条件不成立,则关系表达式的值为False。

如果关系运算符的两边表达式的运算结果是数值,则按其大小比较。

例如:a<b(a=3,b=4) 其值为Truex+y>5(x=3,y= -2) 其值为False(4)逻辑表达式的值也是布尔型的值True 或False逻辑运算符:not、and、or 3种2、在VB中,几种不同性质的运算符的优先级别如下:算术运算符>字符运算符>关系运算>逻辑运算3、Vb函数的含义及使用方法函数名称函数功能Cbool(string) 转换为布尔值Cbyte(string) 转换为字节类型的值Ccur(string) 转换为货币类值Cdate(string) 转换为日前类型的值Cdbl(string) 转换为双精度值Cint(string) 转换为整数值Clng(string) 转换为长整型的值Csng(string) 转换为单精度的值Cstr(var) 转换为字符串值Str(var) 数值转换为字符串Val(string) 字符串转换为数值****** ************ ******Abs(nmb) 返回数子的绝对值Atn(nmb) 返回一个数的反正切Cos(nmb) 返回一个角度的余炫值Exp(nmb) 返回自然指数的次方值Int(nmb) 返回数字的整形(进位)部份Fix(nmb) 返回数字的整形(舍去)部份Formatpercent(表达式) 返回百分比Hex(nmb) 返回数据的16进制数Log(nmb) 返回自然对数Oct(nmb) 返回数字的8进制数Rnd 返回大于“0”而小于“1”的随机数Sgn(nmb) 判断一个数字的正负号Sin(nmb) 返回角度的正铉值Sqr(nmb) 返回数字的二次方根Tan(nmb) 返回一个数的正切值Asc(string) 返回ASCII字符串Chr(charcode) 根据字符代码返回字符Instr(string,searchstr) 返回被搜索字符串的第一个字符位置,string 是字符串,searchstr是被搜索的字符串InstrRev(string,searchstr) 同上,只是从右面开始搜索Lcase(var) 把字符串变为小写Left(string,nmb) 从string中返回从左面开始的nmb个字符串Len(string) 返回字符串的长度Ltrim(string) 截去字符串左边的空格Filter(inputstrings,value) 返回字符串数组的字集,Inputstrings是字符串组,value是在数组中寻找的字符Rtrim(string) 截去字符串右边的空格Trim(string) 截去字符串前后空格Mid(string,start,len) 在string中返回从start位置开始的len个字符Replace(string,find,withstr) 在字符串string中,用withstr来替换find字符串Right(string,nmb) 从string中返回从右面开始的nmb个字符串Space(nmb) 返回指定空格的字符串StrComp(string1,string2) 比较两个字符串Ucase(string) 把字符串变为大写****** ************ ******Date() 返回当前系统日期DateAdd(interval,nmb,date) 用一个基础时间返回指定增加了时间间隔的日期,interval是间隔类型,yyyy-年,m-月,d-日,h-小时,n-分。

VB常用函数用法详解

VB常用函数用法详解

V B函数数学函数Abs函数语法:Abs(number)绝对值返回一数值的绝对值。

参数number可以是任何数值表达式。

如果number的值为Null,则返回Null;如果其参数是没有初始值的变数,则返回0。

注解:一个数值的绝对值就是将正负号去掉以后的值。

例如Abs(-1)和A bs(1)的返回值都是1。

Atn函数语法:Atn(number)反正切该函数返回参数的「反正切」(arctangent)值。

参数number可以是任何有效的数值表达式。

注解:Atn函数的参数(number)是直角三角形中构成直角两边的比值(正切函数值),其返回值则为相对应之底角的度数,以「弧度」为单位。

正切函数值(number)的算法为「对边除以邻边」。

返回值的范围落在pi/2到pi/2的「弧度」之间。

「角度」与「弧度」的转换方法为:将「角度」乘以pi/180即为「弧度」。

反过来将「弧度」乘以180/pi便得「角度」。

Cos函数余弦函数语法:Cos(number)该函数返回一角度的cosine(余弦函数)值。

参数number可以是任何有效的数值表达式,其值代表一个角度,以「弧度」为单位。

注解:Cos函数的参数表示角度,返回值为该角度两邻边的比值。

其比值的定义为「连接另一锐角的邻边除以连接直角的邻边」。

返回值的范围在-1到1之间。

Exp函数语法:Exp(number)自然对数之底数该函数返回e(自然对数之底数)的某次方。

参数number可以是任何的数值表达式。

注解:如果number的值超过e的值大约是2.718282。

Log函数自然对数值语法:返回参数的自然对数值。

Log(number)参数number可以是任何的数值表达式,条件是参数值必须大于0。

注解:自然对数是以e为底数的对数。

常数e的值大约是2.718282。

VB函数Rnd函数随机数语法:Rnd[(number)]返回一个随机数。

参数number可以是任何的数值表达式。

VB基础语法

VB基础语法

使用static声明变量 使用static声明变量 static 变量名 as 数据类型 static a as integer 使用static声明变量为静态变量。它与dim声明的变量不同之处 使用static声明变量为静态变量。它与dim声明的变量不同之处 在于在执行一个过程结束时,过程中所用到的static变量的值会 在于在执行一个过程结束时,过程中所用到的static变量的值会 保留,下次再调用此过程时,变量的初值是上次调用结束时被子 保存留的值,而dim 保存留的值,而dim 声明的变量在过程结束时不保留,每次调用 时需要重新初始化。 3.3 运算符和表达式 算术运算符 + * / \(整除) mod ^ 关系运算符 = > >= < <= <> 逻辑运算符 not and or xor(逻辑异或) eqv(逻辑等于) xor(逻辑异或) eqv(逻辑等于)
3.5 以对象为核心的程序设计 在VB的程序设计中,对象起着最重要的角色,窗体是一个对象, VB的程序设计中,对象起着最重要的角色,窗体是一个对象, 每一个放置在窗体上控件也都是对象。由于VB是面向对象的程序 每一个放置在窗体上控件也都是对象。由于VB是面向对象的程序 设计语言,它的代码结构与对象有着很大关系,在VB中每一 设计语言,它的代码结构与对象有着很大关系,在VB中每一 个窗体和控件都有一些预先定义好了的事件。 例:命令按钮对象,当用户单击命令按钮时,命令按钮对象会产 生click事件。 click事件。
currency
逻辑类型 boolean 逻辑型变量的取值范围只能是true(-1)或false(0)。 逻辑型变量的取值范围只能是true(-1)或false(0)。 Dim switch as boolean switch=true switch=switch=-1 这两条赋值语句功能是相同。 这两条赋值语句功能是相同。 变体类型 variant 变体型变量是一种十分灵活的变量,可以保存各种类型 的数据。 在定义变量中没有明确指明数据类型时,变量缺省时定义为变体 类型。 dim x dim y as variant 上述两个语句都是定义一个变体变量。

VB中的常用命令

VB中的常用命令

VB中的常用命令一、工程的组成工程文件(.vbp)包含了一个应用程序的所有文件窗体文件(.frm):控件及属性、事件过程和自定义过程窗体的二进制数据文件(.frx),自动产生同名..frx文件。

标准模块文件(.bas)类模块的文件(.cls)资源文件(.res)ActiveX控件的文件(.ocx)二、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等方法的输出。

VB中的IF语句

VB中的IF语句
Print “呀,轻度肥胖了!” End If If (weight <= (high - 110) + (high - 110) * 0.5) And (weight > (high - 110) + (high - 110) * 0.3) Then
Print “哇,中度肥胖了!” End If If weight > (high - 110) + (high - 110) * 0.5 Then
再试一下
End If
End If If (weight <= (high - 110) + (high - 110) * 0.2) And (weight > (high - 110) + (high - 110) * 0.1) Then
Print “注意了哦,有点超重了!” End If If (weight <= (high - 110) + (high - 110) * 0.3) And (weight > (high - 110) + (high - 110) * 0.2) Then
-1 , x<0
分支结构1
if _x_<_0_ then 分支结构2 _y_=_-1_
else if _x_=_0_ then _y_=_0_ else _y_=_1_ end if
end if print y
分支嵌套——双分支嵌套双分支
if 条件1 then
语句1
else

if 条件2 then
else 语句B
end if
if 条件1 then
语句1
else
if 条件2 then

VB常用代码

VB常用代码

VB常用代码Private Declare Function fCreateShellLink Lib "" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As LongSub Command1_Click()Dim lReturn As Long'添加到桌面lReturn = fCreateShellLink("..\..\Desktop", "Shortcut to Calculator", "c:\windows\", "")'添加到程序组lReturn = fCreateShellLink("", "Shortcut to Calculator", "c:\windows\", "")'添加到启动组lReturn = fCreateShellLink("\Startup", "Shortcut to Calculator", "c:\windows\", "")End Sub问题二、如何让程序在Windows 启动时自动执行?有以下二个方法:方法1: 直接将快捷方式放到启动群组中。

方法2:在注册档HKEY_LOCAL_MACHINE 中找到以下机码\Software\Microsoft\Windows\CurrentVersion\Run新增一个字串值,包括二个部份1. 名称部份:自己取名,可设定为AP 名称。

VB程序的设计VB基本语句-精选文档

VB程序的设计VB基本语句-精选文档

第5章 基本的控制结构
For循环
例2: 求10!
例1:求1+2+3+4+ …+10之和. 分析: •重复过程(循环体): + •初值、终值和增量:1、10、1 Dim I, s As Integer For I = 1 To 10 s=s+I Next I Print I, s
分析:
•重复过程:* •初值、终值与增量不变 Dim I, s As Integer s=1 For I = 1 To 10 Fors=1 =1 1 To To 10 10 For II = s=s*I Next I Print I, s
循环体的执行次数是多少 ? 输出的I、S的值是多少 ? For I = 1 To 10执行多少次?
初值与终值换位 可以吗?
程序代码: Dim I%, s % ForI I=10 To Step For = 1 To 10 1 step 1 -1
s=s+I
Next I Print I, s
Visual Basic 程序设计
visualbasicvisualbasic程序设计程序设计第第55章章基本的控制结构基本的控制结构第第55章章基本的控制结构基本的控制结构累加和平均值累加和平均值求素数求素数求数的质因数求数的质因数穷举法穷举法递推法递推法55visualbasicvisualbasic程序设计程序设计第第55章章基本的控制结构基本的控制结构第第55章章基本的控制结构基本的控制结构例1
优:Mark ≥ 90 等级: 通过:60 ≤ Mark < 90 未通过:<60
思考?
Visual Basic 程序设计
第5章 基本的控制结构

VB常用函数大全

VB常用函数大全

VB常用函数解释及语法IsNumeric 函数返回Boolean 值,指出表达式的运算结果是否为数。

语法IsNumeric(expression)必要的 expression 参数是一个 Variant,包含数值表达式或字符串表达式。

说明如果整个expression的运算结果为数字,则IsNumeric 返回True;否则返回False。

如果expression是日期表达式,则IsNumeric 返回False。

IsObject 函数返回Boolean 值,指出标识符是否表示对象变量。

语法IsObject(identifier)必要的identifier 参数是一个变量名。

说明IsObject 只用于确定 Variant 是否属于VarTypevbObject。

如果Variant 实际引用(或曾经引用过)一个对象,或者如果Variant 包含Nothing,则可能出现这种情况。

如果identifier 是 Object类型或任何有效的类类型,或者,如果identifier是VarTypevbObject 的Variant 或用户自定义的对象,则IsObject 返回True;否则返回False。

即使变量已设置成Nothing,IsObject 也仍返回True。

使用错误捕获方法可以确认对象引用是否有效。

Chr 函数返回 String,其中包含有与指定的字符代码相关的字符。

语法Chr(charcode)必要的charcode参数是一个用来识别某字符的Long。

说明0 到 31 之间的数字与标准的非打印 ASCII 代码相同。

例如,Chr(10)可以返回换行字符。

charcode 的正常范围为0 –255。

然而,在DBCS 系统,charcode 的实际范围为-32768 到65535。

注意ChrB函数作用于包含在String 中的字节数据。

ChrB 总是返回一个单字节,而不是返回一个字符,一个字符可能是一个或两个字节。

VB基础知识点

VB基础知识点

VB基础知识点数学运算+ M. Z2 h1 k3 ]VB运算符之一:关系运算符/ \1 m- U5 k# ^. h% t! ?( U黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程=:比较两表达式是否相等.等为真,否则为假.Z9 h+ d+ u, k, r:比较表达式是否不等.不等为真,相等为假.黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程! ?& F. U g% m> 或=或<=:大小比较.& [9 ]5 ~- s4 p* r, T0 H黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程LIKE:用于比较两个字符串,模式匹配为真,否则为假.9 D8 W+ H1 J5 ?7 h9 {8 E: ?IS:比较两个对象是否一致,一致为真,否则为假.1 c; N8 u0 }! U9 W' A. _VB关系运算符使用示例. k4 y/ Q2 R( o: N* f2 F" HIT加油站全心全意的为你服务,你满意是我们最好的答案关系运算5 ^, t1 H" x$ zIS比较示例( e0 n! M( c" p: ]黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程有下列语句: Dim_ myobject,yourobject,thisobject,otherobject,mycheck set yourobject=myobject set thisobject=myobject set thatobject=otherobject mycheck=yourobject is thisobject 'true mycheck=thatobject is thisobject 'false : U5 r' ~9 ?* l. I. p黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|' a" e1 R, e1 _' w+ K8 J黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程LIKE示例- h9 l, G/ \+ _0 如:Dim Mycheck Mycheck="aBBBa" like "a*a" 'BBB与*相匹配,返回结果True6 j- Y7 y) G) O. z. v8 s( ?IT加油站全心全意的为你服务,你满意是我们最好的答案见书P582 r" Z/ B1 b/ K/ w0 g* a+ GIT加油站全心全意的为你服务,你满意是我们最好的答案VB的逻辑运算符/ G; Z& A M* u逻辑非(NOT)运算:* N/ j) D8 J1 Q! n逻辑与运算(AND)IT加油站全心全意的为你服务,你满意是我们最好的答案- y; e0 r" P& \: S逻辑或(OR)运算5 v9 t& F3 A4 C/ x4 w$ m# j黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程逻辑异或(XOR)和逻辑等(EQV)运算6 }1 m7 P8 X7 Z- C# O ?4 隐含(Imp)运算+ _ J! M/ p3 z4 y. k& O2 T3 a g" a+ p/ }3 gIT加油站VB语句与控制4 q G) X1 F& v% E" m9 ^: N黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程赋值语句+ ?3 E) L. V% n' O/ V: V- r; 注释语句:VB中用'和rem来标识一条注释语句.黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|5 ]0 q9 a" w8 q( y8 w# B5 y条件分支结构:if 语句) B) l$ |8 T" n9 KIT加油站循环语句$ _- t6 Q% G/ c u, zIT加油站END语句黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程1 ]: w( V. P' Q" V* w. zVB赋值语句# O/ g2 T& t( y2 R! v$ B8 包括两种:一种用来对一般的变量进行赋值的赋值语句,用关键字LET描述,但一般都省略.另一种是用来对对象的变量进行赋值的赋值语句,用关键字SET描述,不能省略.IT加油站% ?9 Z) o2 C7 V% I5 p格式:[let]变量或属性=表达式set 变量(对象)=表达式* o$ c9 k @* SVB注释语句5 h4 h1 l% D5 `: d. c黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程引入目的:为程序的阅读和修改提供信息,提高程序的可读性和可维护性.- {" l# ]# } Z) v, A注释方法有两种:'或REM关键字.$ N! _0 k, P7 ~. `% n5 P+ A黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|二者区别:在一行中做注释时,REM必须使用:与前面的语句隔开,撇号则不必.l8 g$ q5 \# ~! ~3 @( l) S' sIT加油站条件分支——IF语句IT加油站2 P' v- H# D" |0 d9 o第一种格式:if 条件then& `7 D. h- J: {; t% i语句8 G3 c- y# j: M6 i: B* W黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|end if 如果条件为true,则执行"语句",否则执行end if后面语句.IT加油站G7 b7 G& g2 h3 G+ M h第二种格式:if 条件then IT加油站; W$ c# y5 y- m- Y" \语句! F0 j% e2 J* j2 y& l: I/ welse$ _1 _ K9 h, I9 `/ nIT加油站语句IT加油站全心全意的为你服务,你满意是我们最好的答案) t: @- U7 Q' x. |6 Y9 Bend if IT加油站. u! I: \; l) k6 ^IF语句的第三种格式! i$ ~& e( t% S9 a: x% HIT加油站全心全意的为你服务,你满意是我们最好的答案If 条件1 then# e! N% s Q5 s* j6 b" O( X. g1 语句1. s0 O; i$ U3 z& C% nIT加油站else if 条件2 ! L) r4 t" |, F3 X语句29 H4 u, ?, x0 C) w) ~; Uelse# |, r! Q7 h$ e" r0 O+ u语句3! a6 ~, G5 X$ Y黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|end if 如果条件1为true,则执行语句1,如果为false,则检查条件2,如果条件2为true,则执行语句2,如果条件2为false,则执行语句3.6 [/ X2 B1 ^4 N; l" r0 E( E5 X5 |% k黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|条件语句——select case语句IT加油站全心全意的为你服务,你满意是我们最好的答案' U% v& r7 p: C! q+ E; L$ z格式: select case 测试表达式9 |9 R' G3 G, l# cIT加油站全心全意的为你服务,你满意是我们最好的答案case 条件1! E3 {/ l+ |; M6 z3 |6 s黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|语句1& q: R( `% y' [4 ]0 \$ m) u! ……… IT加油站) K+ z: r* X' e; D! ^" D! p& E9 dcase else 0 S. l. S' N( N5 a7 s: _, j语句: g6 ~* h8 `1 y7 A" B" end select9 m7 E1 p" e3 P- m# n P3 Z" VB将测试表达式的值与此同时结构中的每个case的值进行比较,如果相等,就执行与该case 相关的程序段,如果都不等,则执行case else所对应的程序段.: W, H3 m0 M' f# v' f6 n6 P黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|Case 语句举例一黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程; l7 y9 e4 [% i用select case…….语句判断0-9范围内整树的奇偶性.IT加油站m, v( o' R, ]! T# U0 x& M: p& dselect case Num_tenIT加油站全心全意的为你服务,你满意是我们最好的答案7 j6 H' d+ `8 m& w9 F: ^2 F' zcase 0,2,4,6,8% z7 z. R6 Q7 v$ i, Q- kIT加油站print "偶数"IT加油站全心全意的为你服务,你满意是我们最好的答案" M* R% L0 Q8 Dcase 1,3,5,7,. [. s2 O! ^% N/ h' i8 R; Xprint "奇数") A" A# P" E- W3 h/ eend select$ j, Y% \& E4 y# r- e8 b4 循环语句:Do……Loop语句* Y! V6 g. h- q3 第一种格式:Do While 条件式" t& x5 ?4 E% n2 O4 uIT加油站全心全意的为你服务,你满意是我们最好的答案[程序段]IT加油站全心全意的为你服务,你满意是我们最好的答案6 `9 }2 {4 q: H5 b% T/ qLoopIT加油站全心全意的为你服务,你满意是我们最好的答案, Z/ X( c, t: {( f+ Q 当条件为true时,循环继续,直到条件变为False为止.; e: F3 B2 E' J9 fIT加油站全心全意的为你服务,你满意是我们最好的答案示例一/ w+ y% J) n2 H4 d黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|Private Sub Form_Click()2 V. H" B) z; d# r2 ]! IDim I As , n9 _9 V. x5 ?& |2 ^) d+ D1 iI=1黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程: R# {, n( W/ q! _# f/ s0 kDo While I5IT加油站' v# X Q6 t' s1 Y/ BPrint I8 t, Y3 E; X% y, f7 f& j黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程I=I+1) } l- x3 ~4 _/ i3 C2 L0 h黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程LoopIT加油站全心全意的为你服务,你满意是我们最好的答案+E4 b; y% M+ n% b+ [2 BEnd sub$ y/ @. T& C' r. [7 E3 K& V黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程Do……Loop第三种格式, t& B) u. }! M# |. x7 B0 s& \( N6 k[程序段]0 @+ T& I9 t: F; _- a2 v+ zLoop While 条件式黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程' E( `6 e; j# ~# G" x当条件式为true时,循环继续进行,直到条件式变为false为止.[7 _4 m( @8 U f* i: \& iIT加油站全心全意的为你服务,你满意是我们最好的答案示例三, N s0 N* i( N" NIT加油站Private Sub Form_Click()8 Q4 V, I! ?3 w z$ M* H3 s1 A黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程Dim I As Integer4 }/ \) Y' z0 w0 `8 n# ^% W! BIT加油站全心全意的为你服务,你满意是我们最好的答案I=61 b/ |: `! {, `! |Do黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|5 d+ j- Y! d" x* G+ A; t, [% PPrint I8 A7 [, }& j6 q6 O6 o, [* _( I=I+1+ _4 y, I" d; M5 E黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|Loop While I5黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|9 d* c; a9 Y9 R5 YEnd Sub$ e) v2 v0 i4 \: c$ d& For …Next 语句! z1 f5 C, [0 p% m6 r" z8 m7 |黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|语法规则:黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程& e4 b1 S% I2 X8 Q, q* N& U/ rFor 计数器=初值室To 终值[step增量]+ D2 t6 d) t8 r) Z6 c& iIT加油站语句3 G t$ C% a' O[If 条件式Then Exit For]'特定条件下退出/ O- s' `7 B( g3 c' t( {7 s语句IT加油站' v, {! E- W! R8 Y1 p% d! mnext [计数器]/ v4 c X: h: h3 v4 g6 `6 ^黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|示例:P69黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|8 a! N5 j4 W4 R; q3 [' BFor Each …Next, `6 R2 ~' x0 MIT加油站For each 元素In 数组或集合IT加油站3 E3 e( A7 C* [5 }! s; n/ l[程序段]7 Y. j H6 o' V+ f; p1 Q& V黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|[IF条件式Then exit for]'特定条件下退出1 R5 ^3 j1 O E- @% [程序段]黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程; W, v) c( N9 x9 a. {3 H0 U3 n8 Unext [元素]# u/ ^: C/ t0 Z# X f7 z- H' H( dIT加油站全心全意的为你服务,你满意是我们最好的答案这里的元素变量只能是variant类型或对象类型.; S2 R0 t! }& H$ q: c4 R2 K使用时应注意的问题5 L6 x8 {$ Q' A2 ?9 V- \% [9 a: d与for…next的区别在于前者是对于指定集合或集合中的每个元素重复执行某个程序段,而后者使用计数器变量控制循环过程.黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程4 E( R% A, k% Q, R$ K每次循环时,元素变量所代表的是数组中当前元素的值,而不是元素本身.3 ?( t& D# s& {, c0 示例. U; N& e6 H; z F& M3 Z7 IIT加油站For Each I In Form1.Controls黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|9 h$ W% s4 U+ k) n% DI.Enabled=False5 C p8 [+ F, K, C/ _Next I- c% o# C! [, k% K* b5 zIT加油站全心全意的为你服务,你满意是我们最好的答案While…… Wend语句1 S, c% p! F# K) O$ QWhile 条件式IT加油站全心全意的为你服务,你满意是我们最好的答案$ l# \7 Z+ ]. ^程序段: Y- Y% Q# p' h6 ?黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|wendIT加油站& d- I% d8 ^6 Y& u如果条件式为true,则所有的语句都会执行,一直执行到wend语句.然后再回到while语句检查条件式,如果条件式为true,则重复执行.如果不为true,则wend之后的语句继续执行.4 ^7 `. ]+ |& h( B0 `8 l/ C8 VDo Events函数与闲置循环& O: D, m' {; {" B& XIT加油站在Windows 的多任务环境下,就算有程序运行在运行一个长时间循环,其他应用程序也会分到CPU时间,但是该程序在运行循环时,对该程序中的其它事件不作响应.黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|: W0 r# U- k! s/ s/ V p; z- S9 N% t因此,我们在写程序时,"事件过程"不宜写的太长,更不可以有太长的循环.如果要用长的循环,又要避免能够及时响应其它事件的发生,只有采用两种方法:其一,使用DoEvents函数;其二,写成"闲置循环". 黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|$ F* [! ?- d2 v1 oDoEvents 函数" T# c& h' z+ ^ r7 N. W+ KIT加油站全心全意的为你服务,你满意是我们最好的答案DoEvents 函数将控制权转交给操作系统,以便让系统有机会去检查是否有其他事件需要提供服务,他的语法说明如下:IT加油站) Z& i, n+ H- j: j8 p" e语法:DoEvents( )IT加油站2 A: Q3 U+ P' q: e9 E" gDoEvents 函数会返回VB应用程序中打开窗体的数目.9 n: C. F1 t( [ F/ f! cNumForms = DoEvents( )* |0 i% p2 c# J' C2 DoEvents 会将控制权传给操作系统.当操作系统处理完队列中的事件,并且在SendKeys 队列中的所有键也都已送出之后,返回控制权.黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|7 D$ H: ~: o5 P( e0 [, i7 [闲置循环% s7 L& W" f" w. m: T m! g: d! ~对VB 应用程序来说,事件之间的时间叫做"空闲时间".在"空闲时间"里,VB 自动将控制权交还给Windows.当某个应用程序中的一个事件发生时VB 再为它向Windows 请求CPU时间.; B9 B# V& o; ~7 如果你想编一个只在"空闲时间"里执行的循环,在代码模块中使用SubMain过程,使应用程序马上开始执行程序(而不必等待窗体上发生事件).0 M5 S1 W8 h. F. \5 2 o8 {3 q7 J) l' a( tVB的数学函数( t" _9 P! f9 g) i( _表3-20 数学函数功能表黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|- h! {6 n+ T+ h( f函数名7 ]' s: {5 O# x% b0 t% z: J功能IT加油站全心全意的为你服务,你满意是我们最好的答案+ K- s0 Y6 K" j0 c5 f# S% H* `, T/ W) {Abs0 K0 D" R2 D; R5 E L5 ^+ v! _: F黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|求绝对值黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|4 [4 I: O# X3 I7 sAtnIT加油站全心全意的为你服务,你满意是我们最好的答案1 J$ M& [, ]! T0 t0 N' v( J反正切函数3 y }+ F" d3 @黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|Cos- \ {1 h6 M6 k' h7 \1 P2 J9 余弦函数5 O6 F3 Q; X8 w6 _$ Y/ BExp% l+ M; ~# ]; X% ?黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程求指数黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程- x+ W1 y* n$ I! n: sFix黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|% o E$ T* k4 @) j* v7 G3 G1 j6 }) r取整数,对负数取较大的2 r( l+ I8 _8 J \9 B& ZInt& T3 n& H9 t. c取整数,对负数取较小的黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|8 h7 A9 R$ C6 J9 Z! @ {( S4 K# k7 M1 b* G4 a9 `( ^) _) L0 C求对数3 c) e/ `" W5 X3 f% {3 U; g4 sRndIT加油站* ^$ W4 A* y2 `- ?1 @. a产生一个0~1间的随机数黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程$ \% ` c+ ~3 N1 T8 {Sgn# y' G$ ]9 g 求数字符号8 n0 K( G6 t& c& A2 {1 |$ {0 rIT加油站Sin- \1 u/ n- a! A( ~6 Q* O+ |IT加油站正弦函数IT加油站: A; n5 f( x8 m9 t n! R9 [8 CSqr黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|1 N# d! Q4 ]8 r! L) H求平方根0 J6 I( V+ m9 Z4 i. { y$ H+ e黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|Tan黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|; S/ C% z' I1 E6 I. N- O正切函数" ^/ ^3 W7 \2 g3 U" P! d7 q. s7 \: w6 }VB日期和时间函数& A& [2 N8 J: M# `9 vIT加油站全心全意的为你服务,你满意是我们最好的答案表3-21 日期函数功能表7 ^* d j. z' @8 z0 {1 I函数名) n+ M0 d, `0 w0 K! ]IT加油站功能/ \" D: L. ?" X! _8 t( ]" s黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程Date# f$ }3 h% F) f% y7 h/ Z7 n; 取得系统当前日期黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程+ g1 C3 R5 T( A, E) h7 _( d# y7 `% w( q) ?- ^9 V) M& d0 a! y取得系统当前时间黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程8 z: W l! u6 ^9 r2 Q, g4 d6 D/ h1 sNow# j7 ?& Y4 r6 l. }; vIT加油站全心全意的为你服务,你满意是我们最好的答案取得系统当前日期和时间( \0 o [! \' O0 `# f$ g) FYear黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程r- F8 i2 d! l4 Y! o" Q返回指定日期中的年份IT加油站全心全意的为你服务,你满意是我们最好的答案4 f. U/ F# Z* n& s& XMonth黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程$ F; S& J* h: ^3 q/ f4 w返回指定日期中的月份(1-12)% ^ y4 Q2 O" t6 m( v1 ?/ f, k Day黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|5 ?$ `3 c0 b, J& G6 A返回指定日期中天(1-31)黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|2 K8 l/ L8 j& g# hWeekdayIT加油站# b/ P4 M- y/ z" k返回指定日期为星期几% d2 T1 o" Y. {5 tIT加油站Hour4 d* X' [/ a% ~返回指定时间量中的小时6 l t- c) @5 W1 G2 E+ q* \IT加油站Minute7 H5 t# r% S7 H* \' 返回指定时间量中的分钟; U/ {( l8 |/ I$ j3 [3 s0 ^( cIT加油站全心全意的为你服务,你满意是我们最好的答案Second黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|. B6 J/ u" t9 q; H, |7 c9 N- a返回指定时间量中的秒黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程4 q; G7 ]$ t5 G! Z$ E3 P/ }DateSerial4 W/ b0 K, X. u* P返回指定年月日的日期& E( L. \& C0 W黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程TimeSerial9 |8 V" ]9 F4 N/ }8 }' d返回指定小时分秒的时间% j0 Y( F- J- ]4 B+ iDateValue" v" q* C& S! t# ?; C4 J将字符串表示的日期转化为Variant日期黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|8 f3 z" G8 u& M; D, R, ^6 OTimeValue# z L: c Q+ e+ V6 V' f, B. b将字符串表示的时间转化为Variant时间IT加油站全心全意的为你服务,你满意是我们最好的答案, x' \' x' C# m! _; V2 ~ N: f' b' N4 ]: |0 |DateAdd' F' T* ^' \, A) 返回指定日期加上一定时间间隔后的日期IT 加油站全心全意的为你服务,你满意是我们最好的答案9 s( ]# x# j6 h( ?) P! P( @DateDiff: }! p2 ]7 r! F2 v6 q* q黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|返回两个日期的时间间隔% i! M- Y" W2 w+ g6 S% DatePartIT加油站+ K O- c4 N' Z# R- w+ I/ J返回指定日期的特定部分4 _2 K8 [ z0 r3 b' A2 d5 }+ U! d/ S0 ?黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|. X8 ]* g' m- Y5 {, r$ a8 s9 [$ }字符串函数* w3 s) y$ ]( q+ Y表3-22 字符串函数功能表# M% @2 n8 l5 V3 W+ M {& S 函数名" w8 {' J3 T( k' A. QIT加油站功能黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备| d( A) c- _: D5 J StrComp: Q5 h& u& [" q1 Z$ w) K$ [两个字符串比较, e, \" T6 c: \0 ]) f FIT加油站全心全意的为你服务,你满意是我们最好的答案Lcase,Ucase& U9 @2 L; `& X- U转换大小写2 m+ M6 ~ |( R1 t. V5 j: d/ Y( Space,String$ w5 S2 u; u% h- ^, z4 u黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|返回指定长度的字符串IT加油站* U ~) k% R' M! b# I: O+ B1 W rLen* w0 \! o* Z P黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|求字符串长度黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程p$ U+ D) j" f% ~Lset,Rset语句黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程- w5 O! r+ P( A* B. ]& I给字符串变量赋值,赋在左边或右边黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|' F6 y0 i: I$ V5 O# j7 n7 S# qInstr" W: Y2 L+ s$ s/ c! C) _黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程子串定位黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|+ P- S/ `! i* ?1 xMid' I; Q8 u! k5 ^$ \" R9 w$ o, m) Z黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程取给定字符串的子串, Q7 H: P/ w- I7 Y9 I2 d0 aIT加油站全心全意的为你服务,你满意是我们最好的答案Left,Right% E1 j# {/ b! _4 C7 H# 从字符串的左边或右边取指定长度的子串黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程! N: b1 C) ^! A5 p. d {+ @Ltrim,Rtrim,Trim. y4 t( B1 W* |& r# i3 @7 G1 P黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|去掉字符串的前导空格,尾随空格IT加油站全心全意的为你服务,你满意是我们最好的答案6 ]9 T" Z$ w) e6 R$ S& \StrConv' C1 @* k/ z* m$ t5 `! Y转换字符串IT加油站全心全意的为你服务,你满意是我们最好的答案, V/ w0 i" v# g! w4 M: ]4 j. w2 T& m3 v; q* |' x5 a3 t( M目录和文件函数IT加油站& {0 \$ [0 M" I7 o, t" m* t表表3-23 文件系统函数列表* x3 l; Z8 {$ s z& S$ S# Y函数或语句名黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|& j, E2 ^, W Q/ p& Y功能' F4 g; d0 X9 R# lChDirIT加油站' ~3 @ j$ o( E N改变当前目录/ d0 p% w y( z- i) \6 GIT加油站ChDrive+ C% Z0 z" q+ o" h% A5 `IT加油站全心全意的为你服务,你满意是我们最好的答案改变当前驱动器黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程6 G- {( Q% Q" Z' F2 ^CurDir( P- u$ f/ V$ j% X0 `: F1 R6 t0 F返回当前目录IT加油站全心全意的为你服务,你满意是我们最好的答案% A7 U/ R7 ]/ FMkDir黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程6 L2 n" i! B. O9 G创建目录4 `# `5 M! C, ^6 a黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程: J3 z; Z* | Y/ ~2 S- [# ~& L删除目录4 D0 b7 ^2 M; `6 n黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程FileCopy. H5 c! Y, j# m$ e) n1 Z( \" d! J拷贝文件4 O) M, s/ r4 L& L VKill黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|3 I* D) u1 ?1 l- a6 g) `6 D删除文件/ l7 n% |% @+ V% p5 h0 [% _5 Q+ TFileLenIT加油站全心全意的为你服务,你满意是我们最好的答案* l9 c* b1 ~4 S, Z( y1 r' d取得文件的长度(字节数)IT加油站全心全意的为你服务,你满意是我们最好的答案; \5 w: W/ U) t/ MDir0 |5 N7 W& M; M; j5 O/ V5 Z" hIT加油站查找指定的文件和目录。

vb语句大全

vb语句大全
如果改变的路径不在当前的驱动器上,则应输入包括驱动器在内的完整路径,如: ChDir "f:\talltree\yyglclient\help" 上移一层目录采用下面的格式: ChDir".." 注意:path 必须为有效路径,否则系统会报错。 三、应用举例: 本示例使用 ChDir 语句来改变当前路径,建立一标准工程,在窗体上添加一命令按钮, 一个文本框和一个文件列表框(FileListBox),将下面的程序粘贴过去。 Private Sub Command1_Click() ChDir Text1.Text File1.Path = Text1.Text End Sub 在文本框里输入一个完整路径,然后单击命令按钮,文件列表框将显示这个路径下的全 部文件。
在上面的标准工程中,用下面的程序替换上面的程序,并把路径换成你电脑中 Microsoft Excel 的路径,然后运行程序,单击命令按钮,你将看到 Excel 被打开并被激活。 Private Sub Command1_Click()
Dim MyAppID MyAppID = Shell("C:\Program Files\Microsoft Office\Office\EXCEL.EXE", 1) '运行 Microsoft Excel。 AppActivate MyAppID '激活 Microsoft Excel。 End Sub
二、说明: 调用一个过程时,并不一定要使用 Call 关键字。如果使用 Call 关键字来调用一个需要
参数的过程,argumentlist 就必须要加上括号。 Call name(argumentlist) 如果省略了 Call 关键字,那么也必须要省略 argumentlis 外面的括号。 Name argumentlist 如果需要函数的返回值,则应先定义一个变量,然后将函数的返回值赋予变量,这时虽

vb6.0函数和语句大全

vb6.0函数和语句大全

Val 函数示例
本示例使用 Val 函数返回字符串中所含的数值。
Dim MyValue
MyValue = Val("2457") ' 返回 2457。
MyValue = Val(" 2 45 7") ' 返回 2457。
MyValue = Val("24 and 57") ' 返回 24。
[格式]:
P=InStr(X,Y)
从X第一个字符起找出Y出现的位置
P=InStr(n,X,Y)
从X第n个字符起找出Y出现的位置
[说明]:
(1) 若在X中找到Y,则返回值是Y第一个字符出现在X中的位置。
(2) InStr(X,Y)相当于InStr(1,X,Y)。
(3) 若字符串长度,或X为空字符串,或在X中找不到Y,则都返回0。
例:Rnd 结果:0--1之间的数
6. Sin(N) 正弦函数
例:Sin(0) 结果:0
7. Sgn(N) 符号函数
' 说明:取正负号。Y=Sgn(X) 既 X>0 则Y=1;X=0 则Y=0;X<0 则Y= -1
8. Sqr(N) 平方根
例:Sqr(9) 结果:3
9. Tan(N) 正切函数
[范例]:
若当前时间为2003年8月29日晚上19点26分45秒,则
P=Now()
结果为:P=2003-08-29 19:26:45
6.MonthName:返回月份名称
[格式]:P=MonthName(X)
[说明]:X参数可传入1---12,则返回值为“一月”、“二月”……,但是在英文Windows环境下,返回的是”January”,”February”……

VB常用命令

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常用代码大全

vb常用代码大全

移动无标题栏的窗体dim m(borderstyle=none)ouseX as integerdim mouseY as integerdim moveX as integerdim moveY as integerdim down as booleanform_mousedown: 'mousedown事件down=truemouseX=xmouseY=yform_mouseup: 'mouseup事件down=falseform_mousemoveif down=true thenmoveX=me.left-mouseX+XmoveY=me.top-mouseY+Yme.move moveX,moveYend if********************************* **********闪烁控件比如要闪烁一个label(标签)添加一个时钟控件间隔请根据实际需要设置 enabled属性设为true代码为:label1.visible=not label1.visible ********************************* **********禁止使用 Alt+F4 关闭窗口Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nP osition As Long, ByVal wFlags As Long) As LongPrivate Declare Function GetMenuItemC ount Lib "user32" (ByVal hMenu As Long) As LongPrivate Const MF_BYPOSITION = &H400& Private Sub Form_Load()Dim hwndMenu As LongDim c As LonghwndMenu = GetSystemMenu(Me.hwnd , 0)c = GetMenuItemCount(hwndMenu) DeleteMenu hwndMenu, c - 1, MF_BYPO SITION c = GetMenuItemCount(hwndMenu) DeleteMenu hwndMenu, c - 1, MF_BYPO SITIONEnd Sub启动控制面板大全'打开控制面板Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL", 9)'辅助选项属性-键盘Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL access.cpl,,1", 9)'辅助选项属性-声音Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL access.cpl,,2", 9)'辅助选项属性-显示Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL access.cpl,,3", 9)'辅助选项属性-鼠标Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL access.cpl,,4", 9)'辅助选项属性-常规Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL access.cpl,,5", 9)'添加/删除程序属性-安装/卸载Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL Appwiz.cpl,,1", 9)'添加/删除程序属性-Windows安装程序Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL Appwiz.cpl,,2", 9)'添加/删除程序属性-启动盘Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL Appwiz.cpl,,3", 9)'显示属性-背景Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL desk.cpl,,0", 9)'显示属性-屏幕保护程序Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL desk.cpl,,1", 9)'显示属性-外观Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL desk.cpl,,2", 9)'显示属性-设置Call Shell("rundll32.exe shell32.dll,ControVB常用代码l_RunDLL desk.cpl,,3", 9)'Internet 属性-常规Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL Inetcpl.cpl,,0", 9)'Internet 属性-安全Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL Inetcpl.cpl,,1", 9)'Internet 属性-内容Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL Inetcpl.cpl,,2", 9)'Internet 属性-连接Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL Inetcpl.cpl,,3", 9)********************************* **********怎样关闭一个程序你可以使用API函数FindWindow和PostMessage来寻找一个窗口并且关闭它。

vb6.0语句大全讲解

vb6.0语句大全讲解

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 语句通过计算机喇叭发出一个声调。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
关键词: VB
语句:
1.AppActivate语句
激活一应用程序窗口。
语法
AppActivate title[, wait]
AppActivate 语句的语法具有以下几个命名参数:
可以提供任意数目的参数。ParamArray 关键字不能与 ByVal、ByRef或 Optional 一起使用。
varname 必需的。代表传给该过程的参数的变量名;遵循标准的变量命名约定。
( ) 对数组变量是必需的。指明 varname 是一个数组。
type 可选的。传递给该过程的参数的数据类型;可以是 Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal(目前尚不支
ChDir path
必要的 path 参数是一个字符串表达式,它指明哪个目录或文件夹将成为新的缺省目录或文件夹。path 可能会包含驱动器。如果没有指定驱动
器,则 ChDir 在当前的驱动器上改变缺省目录或文件夹。
说明
ChDir 语句改变缺省目录位置,但不会改变缺省驱动器位置。例如,如果缺省的驱动器是 C,则下面的语句将会改变驱动器 D 上的缺省目录,
态链接库的过程与同一范围内的公用变量、常数或任何其它过程的名称相同时,也可以使用 Alias。如果该动态链接库过程中的某个字符不符
合动态链接库的命名约定时,也可以使用 Alias。
aliasname 可选的。动态链接库或代码资源中的过程名。如果首字符不是数字符号 (#),则 aliasname 是动态链接库中该过程的入口处的名称
)、Date、String(只支持变长)或 Variant,用户定义类型,或对象类型。
arglist 参数的语法以及语法各个部分如下:
[Optional] [ByVal | ByRef] [ParamArray] varname[( )] [As type]
部分 描述
Optional 可选的。表示参数不是必需的。如果使用该选项,则 arglist 中的后续参数都必需是可选的,而且必须都使用 Optional 关键字声
[[#]filenumber] [, [#]filenumber] . . .
说明
若省略 filenumberlist,则将关闭 Open 语句打开的所有活动文件。
当关闭 Output 或 Append 打开的文件时,将属于此文件的最终输出缓冲区写入操作系统缓冲区。所有与该文件相关联的缓冲区空间都被释放
。如果首字符是 (#),则随后的字符必须指定该过程的入口处的顺序号。
arglist 可选的。代表调用该过程时需要传递的参数的变量表。
type 可选的。Function 过程返回值的数据类型;可以是 Byte、布尔、Integer、Long、Currency、Single、Double、Decimal(目前尚不支持
Lib 必需的。指明包含所声明过程的动态链接库或代码资源。所有声明都需要 Lib 子句。
libname 必需的。包含所声明的过程动态链接库名或代码资源名。
Alias 可选的。表示将被调用的过程在动态链接库 (DLL) 中还有另外的名称。当外部过程名与某个关键字重名时,就可以使用这个参数。当动
表达式的地方,都可以使用常数。
8.Date语句 返回
设置当前系统日期。
语法
Date = date
对于运行 Microsoft Windows 95 的系统,要设置的 date 必须介于 1980 年 1月 1 日与 2099 年 12 月 31 日之间。对于运行 Microsoft
部分 描述
title 必需的。字符串表达式,所要激活的应用程序窗口的标题。可以使用 Shell 函数返回的任务识别码来替换 title,以激活应用程序。
wait 可选的。Boolean值,说明在激活另一个应用程序之前调用的应用程序是否有焦点。如果为 False(缺省),那么,即使调用的应用程序
在决定激活哪个应用程序时,请将 title 与每一个运行中的应用程序的标题字符串进行比较。如果没有完全匹配,就激活任何这样的应用程序
,其标题字符串以 title 开头。如果以 title 命名的应用程序有很多实例,则激活任何一个实例。
2.Beep语句
通过计算机喇叭发出一个声调。
语法
部分 描述
Call 可选参数;关键字。如果指定了这个关键字,则 argumentlist 必须加上括号,例如:
Call MyProc(0)
name 必要参数,要调用的过程名称。
argumentlist
说明
调用一个过程时,并不一定要使用 Call 关键字。如果使用 Call 关键字来调用一个需要参数的过程,argumentlist 就必须要加上括号。如果
持)、Date、String(只支持变长)、Object、Variant、用户自定义的类型或对象类型。
说明
对Function 过程而言,过程的数据类型决定其返回值的数据类型。可以在 arglist 之后使用 As 子句来指定函数返回值的数据类型。在
arglist 中,可以使用 As 子句来指定任何传给该过程的参数的数据类型。不单可以指定为任何标准数据类型,还可以在 arglist 中指定 As
Private 可选的。用于声明只能在包含该声明的模块中使用的过程。
Sub 可选的(但 Sub 或 Function 二者需选其一)。表示该过程没有返回值。
Function 可选的(但 Sub 或 Function 二者需选其一)。表示该过程会返回一个可用于表达式的值。
name 必需的。任何合法的过程名。注意动态链接库的入口处(entry points)区分大小写。
Windows NT 的系统,date 必须介于公元 1980 年 1 月 1 日到 2079 年 12 月 31 日之间。
9.Declare语句 返回
用于在模块级别中声明对动态链接库 (DLL) 中外部过程的引用。
语法 1
[Public | Private] Declare Sub name Lib "libname" [Alias "aliasname"] [([arglist])]
但是 C 仍然是缺省的驱动器:
ChDir "D:\TMP"
5.ChDrive语句 返回
改变当前的驱动器。
语法
ChDrive drive
必要的 drive 参数是一个字符串表达式,它指定一个存在的驱动器。如果使用零长度的字符串 (""),则当前的驱动器将不会改变。如果
没有焦点,也直接激活指定的应用程序。如果为 True,则调用的应用程序会等到有焦点后,才激活指定的应用程序。
说明
AppActivate 语句将焦点移动到命名的应用程序或窗口,但并不影响焦点是否最大化或最小化。当用户采取行动改变焦点或将窗口关闭时,就
会将焦点从活动的应用程序窗口移动出去。可用 Shell 函数启动一个应用程序并设置窗口样式。
Any 来禁止类型检查,从而允许将任意数据类型传递给该过程。
空圆括号表示该 Sub 或 Function 过程没有参数,且 Visual Basic 应确保不会传递任何参数。在下面的示例中,First 不带任何参数。如果
对 First 的调用中使用了参数,就会产生错误:
Declare Sub First Lib "MyLiose 语句时,文件与其文件号之间的关联将终结。
7.Const语句 返回
声明用于代替文字量的常数。
语法
[Public | Private] Const constname [As type] = expression
Const 语句的语法包含下面部分:
部分 描述
注意 常数可以使程序更具可读性,以及易于修改。在程序运行时,常数不会象变量那样无意中被改变。
如果在声明常数时没有显式地使用 As type 子句,则该常数的数据类型是最适合其表达式的数据类型。
在 Sub、Function 或 Property 过程中声明的常数都是该过程的局部常数。在过程外声明的常数,在包含该声明的模块中被定义。在可以使用
省略了 Call 关键字,那么也必须要省略 argumentlis 外面的括号。如果使用 Call 语法来调用内建函数或用户定义函数,则函数的返回值将
被丢弃。
若要将整个数组传给一个过程,使用数组名,然后在数组名后加上空括号。
4.ChDir语句 返回
改变当前的目录或文件夹。
语法
明。如果使用了 ParamArray,则任何参数都不能使用 Optional。
ByVal 可选的。表示该参数按值传递。
ByRef 表示该参数按地址传递。 ByRef 是 Visual Basic 的缺省选项。
ParamArray 可选的。只用于 arglist 的最后一个参数,表示最后的参数是一个 Variant 元素的 Optional 的数组。使用 ParamArray 关键字
Public 可选的。该关键字用于在模块级别中声明在所有模块中对所有过程都可以使用的常数。在过程中不能使用。
Private 可选的。该关键字用于在模块级声明只能在包含该声明的模块中使用的常数。不能在过程中使用。
constname 必需的。常数的名称;遵循标准的变量命名约定。
type 可选的。常数的数据类型;可以是Byte、布尔、Integer、Long、Currency、Single、Double、Decimal(目前尚不支持)、Date、String
相关文档
最新文档