VrisualBasic

1、Private Sub Cmd2_Click()如果两个Cmd控件使用复制得到 的话，那么Click()括号里要加 XX is integer这样的语句条件：使用TabPrint vbCrLf & "A="& A(1); Tab(10); "A(2) = " & A(2)Tab前要使用；分号)或(逗号)分割条件：换行时Print vbCrLf & "A(1) = " & A(1); Tab(10); "A(2) = " & A(2); Tab(10); _“ _下划线

2、前必须空格，否那么编译错误条件：间隔性TabPrint vbCrLf & "A(1) = " & A(1); Tab(10); "A(2) = " & A(2); Tab(10); "A(3) = " & A(3); Tab(10); "A(4) = " & A(4)Tab第一次出现确实是空了，只空2格 但后面出现的Tab都将把后面要现实的A(n)与前一个左对齐如图:描入前显石A(1)：=l A(2) = 2A(3J = 3A(4) = 4条件：字符间用逗号和分号的差异Pri

3、nt vbCrLf & "A(1) = " & A(1), "A(2) = " & A(2), "A(3) = " & A(3), "A(4) = " & A(4) 逗号代替分号的结果 就是A(n)到A(n+1)间的间隔为12个空格A(1J = 1A12) = 2A訂削逗号：前蛊示:1叭却附地44条件：Tab右为逗号Print vbCrLf & "A(1) = " & A(1), Tab(15), "A(2) = " &

4、amp; A(2) 只有当tab(n)括号内n>=15时，A(2)才会和A(1)在一行上n =15W I ¥ 口 1 *菇人刖21U6 «A(2) = 2当于;Tab(29) ； 14+15価入俞显示:Sri)-in =14AC?)-2条件：Tab右为分号Print vbCrLf & "A(1) = " & A(1); Tab(9); "A(2) = " & A(2)Tab(n)括号内数值=9数组才会在一条线上II播入前业TH ； W=iA|2) = 2前显/ '1J-1 A(2|-2情况：间隔差

5、异主要由于Tab右边的逗号，左边的差异如上！Print vbCrLf & "A="& A(1), Tab(15), "A(2) = " & A(2)等价与Print vbCrLf & "A(1) = " & A(1); Tab(29); "A(2) = " & A(2) 关键在于那个红色的逗号造成间隔差距。Tab左边的符号区别如上解释的那样：<0为了下述目的查看相应控件显示一个按钮Buttun Con trol显示检查框Checkbox Con trol*建立事

6、件驱动窗体FormMa nager Con trol*显示数据库中一个 HTML表中的数据Grid Con trol*尽可能从数据库中显示文本Label Con trol*对最终用户提供一组选择Listbox Con trol*提供一组排它选择Optio nGroup Con trol*把页面像一个对象来处理|PageObject Con trol在页面之间导航PageNavbar Con trol进入页面或离开页面时加上特殊效果PageTra nsiti ons Con trol使得一组记录可用于数据绑定Recordset Con trol*使用导航按钮条在一组记录中移动RecordsetN

7、avbarC on trol*从最终用户那里接受文本输入TextBox Con trol*使用期间确定改变页面TimeLines Control查看Visual In terDev 1.0控件的使用情况Legacy Con trols在设计期间设置影响页面的属性DOCUMENT可以是绑定数据<P><BR> <Hn><DIR><MENU><UL><OL><LI TYPE=a,A,I,i,1 ></>2<SELECT MULTIPLE NAME= SIZE= >vOPTION V

8、ALUE=指定提交时的控件值 ><SELECTED>g认选项3vTABLE ALIGN=BACKGROUND=BGCOLOR= BORDER=5BORDERCOLOR=BORDERCOLORDARBKO=RDERCOLORLIGHCT=ELLPADDING=CELLSPACING=COLS= FRAME= 显 示 外 框 VOID,ABOVE,BELOW,HSIDES,LHS,VSIDES,BOX,BORDER RULES= 内 框 “NONE,GROUPS,ROWS,COLS,AWLILDTH= >vTR>vTD>vTH>vCAPTION>v/

9、>v/>vCAPTIONALIGN='水 平 LEFT,CENTER,RIGHTVALIGN='竖 直“TOP,MIDDER,BOTTOM,BASEL“IN>Ev/>vTR ALIGN= BACKGROUNDB=GCOLOR=BORDERCOLOBRO= RDERCOLORDARBKO=RDERCOLORLIGHT= VALIGN>v/>vTD ALIGN= BACKGROUNDB=GCOLOR=BORDERCOLOBRO= RDERCOLORDARBKO=RDERCOLORLIGHT= COLSPAN= NOWRAP行 ROWSPAN单元格

10、占表行数 VALIGN></> 4vB,I,TT,EM,CODE><FONT COLOR= FACE 字体 SIZE=></>vTEXTAREA COLS区宽度 NAME= ROWS=区高度 >5vINPUT TYPE= BUTTONCHECKBOXHIDDER IMAGE PASSWORDRADIO RESET SUBMITTEXT TEXTAREA ALIGN= CHECKED针对 checkbox 和 radio 控件指定默认，MAXLENGT'= 针对 password, text 和 textarea。 NAME= SIZ

11、E=针对 password, text 的字符长度和 textarea 的控件高度宽度“格式 width,height 。 SRC= VALUE= password， text 和 textarea 控件默认值， checkbox 和 radio 控件的表单输入变量值，对于 reset 和 submit 控件是标题。 EVENT>v/> <INPUT>放于 <FORMx中vINPUT TYPE= BUTTONNAME= VALUE'= 显示在按钮上的文本ONCLICK= ONFOCUS=>vINPUT TYPE= CHECHBO X NAME= VA

12、LUE= CHECKEDONCLICK= ONFOCUS= >vINPUT TYPE= HIDDENNAME= VALUE= >ONFOCUS=接受焦点时激发> vINPUT TYPE= RADIO vINPUT TYPE= RESET vINPUT TYPE= SELECTONCHANGE控件改变时激发 vINPUT TYPE= SUBMITvINPUT TYPE= PASSWORD NAME= VALUE= SIZE= MAXLENGTHO=NBLUR'= 失 去 焦 点 激 发NAME= VALUE= CHECKEDONCLICK= ONFOCUS= >N

13、AME= VALUE= ONCLICK= ONFOCUS=>NAME= SIZE= MULTIPLE ONBLUR= ONFOCUS= OPTION SELECTEDV ALUE= >NAME= VALUE= ONCLICK= ONCLICK= ONFOCUS= >vINPUT TYPE= TEXT NAME= VALUE= SIZE= MAXLENGTH= ONBLUR= ONFOCUS=ONSELECT=$件内容被选中时激发 ONCHANGEh vINPUT TYPE= TEXTAREA NAME= ROWS=COLS= ONBLUR= ONFOCUS=ONSELECT=

14、ONCHANGE>=</>6<FORMACTION= URL METHOD二GET,POS NAME= ONSUBMlT=提交表单时调用的事件 处理程序 TARGET= 指向各种不同的目标窗口包括： _blank,_parent,_self,_top></>例子：<FORM NAME=MYFORM ACTION=HTTP:/NT-SERVER/MYSTUFFMETHOD=POST><INPUT TYPE= TEXT NAME=TEXTFIELD><INPUT TYPE= SUBMIT></FORM><

15、;IMG ALIGN= LEFT,RIGHT|对图像,TOP,CENTER,MIDDLE,BOTTO对文本ALT='闪显文字 BORDER=CONTROLS加载一套视频控件，和 DYNSR一起使用，配套的。DYNSRC=URL '视频 HEIGHT= HSPACE= ISMAP'锚 LOOP=播放次数SRC= url START= FILEOPEN,MOUSEOVER USEMAP二图像为映射。 VSPACE二图像上下边 距， WIDTH=>注：DYNSR优先于SRC8字幕滚动<MARQUEE ALIGN=TOP,MIDDLE,BOTTOMBEHAVIOR=

16、SCROLL,SLIDE,ALTERNATEBGCOLOR=DIRECTION= LEFT,RIGHT '方向 INFINITE " SCROLLAMOUNT滚动每次移动距离 ></>9FRAMESE框架<FRAMESETCOLS=25%,100,* ' 分 3FRAMEBORDER=0 三维边框是否显示 FRAMESET >HEIGHT= HSPACE= LOOP= 次 数 或 者 SCROLLDELA滚动时间间距 VSPACE= WIDTH=列 。 按 百 分 ， 像 素 ， 相 对 尺 寸 分FRAMESPACING框 架间距 RO

17、WS二></FRAME,IFRAME<FRAME FRAMEBORDER=0 MAGINHEIGHT=框高MARGINWIDT框宽NAME=NORESIZE'框架大小不可调整SCROLLING二YES,NO SRC= URL ></>注：不支持框架的可以在vFRAMESE容器中用<NOFRAISE【提醒。】v/NOFRAM提醒用户10vA HREF= NAME= TARGET= TITLE=>v/A>11vSCRIPTLANGUAGE“=VBS,VBSCRIPT EVENT'= 关联事件 FOR= 关联对象 >VBSC

18、RIPT关键字：数组处理 :dim， redim ， private,public ， isarray 检测是否数组 ,erase '初始化定长数组， lbound 返回数组下界， ubound赋值注释 := let set '为变量指定对象 REM常量:empty '未初始化的对象nothing '释放对象null true flase控制:do loop for next for each nextif then else select case while wend类型转换：Abs Asc ,AscB,AscW'返回字符 ASCII码 chr,ch

19、rB,chrW '返回 ASCII码的字符 cbool,cbyte,cdata,cdbl,cint,clng,csng,cstr,dataserial,datavalue,hex,oct,fix,int,sgn,timeserial,timevalue date,time,dataserial,datavalue,day,month,weekday,year,hour,minute,second,now,timeserial ,timevalue.错误处理 ： on error err输入/ 输出： INPUTBOX OUTPUT数学函数 ： atn,cos,sin,tan,exp,l

20、og,sqr,randomize,rnd对象 ：createobjectisobject过程 ： call,functionsub字符串 ：asc,ascb,ascwchr,chrb,chrwinstr,instrblen ,lenblease,ucase, left,leftbmid,midbright,rightbspace,strcomp stringltrim,rtrim,trim变体： isarray,isdate,isempty,isnull,isnumberic,isobject,vartype整理：vartype 测试变量子类型 ! 返回值为整型type name测试变量子类型

21、！返回值为字符串VBSCRIPT的根本输入输出1. 赋值注释 ：2. 信息框：let set '为变量指定对象REM1. alert “2. msgbox函数： x=msgbox(msg,type,title)type=05+16,32,48,64+0,256,512msgbox 返回值为按钮值 1-ok.2-ca ncel.3-abort中止.4-retry.5-ig nore.6-yes.7-no.3. msgbox语句:msgbox msg,type,title4. inputbox 函数：inputbox(prompt,title,default,xpos,ypos)返回值为输

22、入值prompt ： 提示输入语句 如需回车换行 插入 chr(13) chr(10) default： 输入区默认信息vbscript 的对象id,name,color,fontsize,visible对象常见属性标志： id,name,co对象事件 ：对象名. 属性名称 =新设置属性值 click,dbclick,load,mousemove ,change, sub对象名称(name)_事件() 代码 end sub对象方法 ：调用：对象名称 . 方法名称<INPUT TYPE= TEXT NAME= VALUE= SIZE= MAXLENGTH= ONBLUR= ONFOCUS=

23、ONSELECT=g件内容被选中时激发 ONCHANGEhdisabled: 不可使用 maxlength= 最大字符数 readonly accesskey: 光标定位快捷键 tabindex<INPUT TYPE= TEXTAREANAME= ROWS=COLS= ONBLUR= ONFOCUS=ONSELECT=ONCHANGE>=cols: 多行文本宽度 rows: 多行文本高度 wrap: 换行方式 取值“ off soft hard off 回车换行数组的定义：dim A(m,n)数组内容去除： erase 数组名，数组名 .数组元素输入：dim A()sub butt

24、on_onclick()redim A(size)for i=1 to ntemp= inputbox(msg)A(i) =tempnextEnd sub数组元素的先输入再输出：dim A(m,n)sub button_onclick()redim A(size)for i=0 to mfor j=0 to nA(i ，j)= inputbox(msg)NextNextDocument.write( “<pre 标签> )for i=0 to mfor j=0 to ndocument.write(A (i,j )& “)NextDocument.writeLn 换行写 N

25、ext Document.write( “</pre> )End sub数组初始化：数组变量名=array(数组元素值)window 对象window 对象： name opener top locationdefaultframeshistorynavigatedocumentwi ndow 方法： alert confirm prompt ope n, close settimeout,cleartimeoutn avigate.open 方法： newwindow = window.open url,target 窗口名 ,toolbar=bool 是否显示工具栏 “ yes

26、,no,1,0 ,lacation=bool是否显示浏览器地址框 ,directories= bool 目录表显示 ,status=bool 状态条显示 ,menuber=bool 菜单条显示 ,scrollbars=bool 滚动条显示 , resizeable=bool 窗口大小是否改 ,width=pixels,height=pixels, top=pixels, left=pixels 左上 角坐标 注： 最后四个定位的不放“内 , 其他的要带引号。黄色为必需的close:I1newwindow=window.open newwindow.closesettimeout:id 返 回

27、值 =window.settimeoutexpression 函 数 过 程 名 ,msec 调 用 过 程 前 经 历 的 时间 ,languagevbs 或者 js例如：ID=window.settimeout gourl已定义,10000,vbscriptcleartimeout:window.cleartimeout IDnavigate：window.navigate urlDOCUMENT象的属性Document.linkcolor =yellow/#00FFFF 设置超链接的颜色 Document.alinkcolor 鼠标左键按下未放的超链接颜色 Document.vlinkc

28、olor 已访问的超链接颜色 Document.bgcolor =Document.fgcolor =Anchor 属性/ 对象 ： anchor.length 文档中锚的个数 Title ： 当前文档标题 , 只读 Cookie： 客户机上存放字符串 ,vbs 的 I/O, 实现多个页面信息共享 .Cookie 的有效期 ： 例子：Document.Cookie= UserName& “expires=the,01 Dec1999 12：00：00 GMT Link ： 和 Anchor 属性相似 , 对超链接而言的 Lasemodified 返回文档最后修改日期Referrer返回

29、文档的URL地址DOCUMENT象的方法Open： 先 open 内容将被去除 后 write & writelnWrite :如果open 了要用close关闭文档后显示.字符串可以是字符串常变量以及 HTML标记，超链接. Writeln ： 同 write, 写完字符串换行 .CloseClear : 去除文档内容ColorValue =#& Hex(0)& Hex(128)& Hex(256) 颜色:#00ffff.#000000.#0000ff.#ff00ff.#00e000.#00ff00.#008000.#800000.#000080.#808000.#800080 .#ff0000.#c0c0c0.#ffffff.#ffff00.Document块输出：Document.write( “<pre>)Document.write( “输出项 )Document.write( “输出项 )Document.writeln 换行用 Document.write( “<