搜索
vb欣赏语言魔力认识vb•特点：可视化，面向对象，采用事件驱动方式的结构化高级程序设计语言。•退出：alt+q•工程文件（.vbp）窗体文件（.frm）标准模块文件（.bas）类模块文件(.cls)资源文件（.res）•对象的三要素：属性【name，caption，color，font对象名.属性名=属性值】，事件（响应某个事件，所执行的操作通过一段代码来实现也叫对事件的响应）【getfocus()】，方法[setfocus()]•属性窗口【f4】代码窗口【f7】重点•Privatesub对象名_事件名[参数列表]•//事件响应代码endsub•对象名.方法名【参数列表】•逐语句【f8】逐过程【shift+f8】标签•标签属性：Name【名称】caption【标题】height，width，top，left。Enabled【可用】visible【可见TRUE=form.showFALSE=form.hide•Font【字体】backcolor【十六进制】forecolor【正文颜色】backstyle【背景样式0-transparent（不显示背景色）；1-opaque不透明】borderstyle【0-none没边框；1-fixedsingle单边框】alighment【0左对齐1右对齐2居中】autosize【自动调大小】tabindex【决定对象的tab顺序】wordwrap【控制caption属性的内容能否自动换行，只有autosize为TRUE时才起作用】标签事件【click，dblclick】•文本框没有backstyle，autosize；按钮没有forecolor，backstyle，borderstyle，alignment，autosize。文本框•属性：Name【名称】height，width，top，left。Enabled【可用】visible【TRUE=form.showFALSE=form.hide•Font【字体】text【文本信息】maxlength【文内容最大长度0-任长字符串不超过32k；非0-可容纳的字符数】multiline【在属性中改多行文本】scrollbars【0-无滚动条1-horizontal水平2-vertical垂直3-水平和垂直】locked【运行是文本可编辑】passwordchar【文本显示效果】backcolor【十六进制】forecolor【正文颜色】borderstyle【0-none没边框；1-fixedsingle单边框】alighment【0左对齐1右对齐2居中】tabindex【决定对象的tab顺序】•事件：change，keypress，lostfocus•方法;setfocus按钮•属性：Name【名称】caption【标题】height，width，top，left。Enabled【可用】visible【可见TRUE=form.showFALSE=form.hide•Font【字体】backcolor【十六进制】特有属性：default【TRUE相当于enter键】cancel【TRUE相当于esc】只能有一个为TRUE；value【命令按钮是否被按下】；style【0-standard不显示图形；1-graphical即可显示图形也可显示文字】picture【前提style为1图形文件.bmp.ico】tooltiptext[在按钮停留时显示的提示信息]•事件：click不支持双击窗体•属性：Name【名称】caption【标题】height，width，top，left。Enabled【可用】visible【可见TRUE=form.showFALSE=form.hide•Font【字体】backcolor【十六进制】forecolor【正文颜色】appearance【窗体显示效果0-平面1-立体】borderstyle【0-无标题栏不可改变窗体大小1-固定单边框2-sizable可调整边框（默认的）】maxbutton，minbutton决定窗体是否有最大化最小化按钮moveable【设置窗体位置是否可改变】picture属性【form.picture=loadpicture(“c:\picture\1.bmp”)括号里是路径】函数loadpicture()还可用于图片框【picturebox】图像框【image】visible设置窗体是否可见•清空图片用loadpicture()cls是清空文本框等控件的图形【用shape，circle,;line画的】和文本•方法：print，cls，move（left，top，width，height）•事件：click，dblclick，load，unload，activate【激活】deactivate【不在是活动窗体】实例•在按钮点击后end【结束】unloadme【卸载当前窗体】form2.show；iftext1.text=“11”thenform3.showunloadmeelseform4.showendif[如果if..then..else.在同一行endif不写]form2.text1.text=“”调用第二个窗体•对当前窗体进行引用时可直接使用控件名对控件进行访问，而引用其他窗体上的控件时应在控件名前加上该控件所在窗体的名称关键字和标识符•输入时系统会自动将关键字的首字母变为大写。•以字母和汉字开头，只能包括字母，汉字，下划线，数字，不能用关键字，不能超过255个字符控件窗体模块不超40字符多条语句用冒号：隔开；断开换行写在语句断开处用下划线_结尾与最后一个字符至少隔一个空格数据类型•字节【byte1个字节】布尔【Boolean2字节】整【integer2字节%】长整【long4个字节&】单精度【single4个字节！】双精度【double8个字节#】货币【currency8个字节@】日期【date8个字节】字符串【String$】定长字符串【String*长度$】对象【object4个字节】自定义数据类型：【public|private】type数据类型名数据类型元素名as数据类型….endtype。Public对整个工程有效，private在声明的模块中有效实例•SubForm_Load()•Form1.Move100,200,_•4000,6000•Form1.Show•Dima%•DimbAsBoolean•a=10•b=a•Printb•DimzhongAsString•c=zhong•PrintLen(c)•DimyAsDate•y=#5/1/1991#-3•Printy•EndSub实例•PrivateTypeStudent只能用private在声明【为全局的】中•NoAsInteger•NameAsString•SexAsString•EndType•SubForm_Click()•Dimt1AsStudent【局部的】•t1.No=1•t1.Name=zhang•t1.Sex=nv•Printt1.No•Printt1.Name•Printt1.Sex•EndSub枚举•【public|private】enum枚举名称成员1【=常量表达式】成员2【=常量表达式】..endenum运算符和表达式•Mod取余【乘方到负数到乘除到整除到取模到加减】字符串运算符+【同为数值是加，同为字符串是连接】&【强转为字符串后连接】关系：,=,,,=,=逻辑not,andor常量和变量•Const常量名=表达式•Dim变量名【as数据类型】可声明多个dima%，b%隐式声明：a=50printa•也可在声明中自定义类型变量名也可自定义eg：dimliningasstudent或dimmyworkdayasworkday【student，workday是在声明中定义的类型】局部变量：在事件过程或通用过程用关键字dim或static声明，隐式声明变量为局部的只作用于过程内部。模块变量【在声明中用关键字dim或private】作用于窗体或标准模块。全局变量：标准模块的声明中【public或global】作用于整个工程字符串函数和随机函数•Left（字符串表达式,n）从字符串左端截取n个字符；mid（字符串表达式，n，m）从字符串第n个字符截取m个字符；•Len（字符串表达式）或len（变量名）•随机函数rnd函数rnd[(x)]x0每次产生相同随机数x0或省略每次产生不同随机数x=0该次与上次相同：产生区间[n,m)int(rnd*(m-n)+n)产生区间[n,m]int(rnd*(m-n+1)+n)数据输入输出•Print方法cls方法•输入框Inputbox(提示信息【，标题】【，缺省值】【，x坐标】【，y坐标】)•消息框msgbox(提示信息【，按钮类型】【，标题】)控制流语句•If..then..endif[如果if..then在一行endif可省]单行if语句不用endif.if..then.else..endif•必须参数【】可选•Selectcase测试表达式case值一语句块一…caseelse语句块n+1endselect•For..nextfor循环变量=初值to终值【step步长】next【循环变量】•Exit强制跳出实例•PrivateSubCommand1_Click()•Fors=1To200•Ifs^2=200Then•ExitFor•Else•Prints•EndIf•Next•EndSub实例•PrivateSubCommand2_Click()•x=ABCDE•Fori=1To5•PrintMid(x,6-i,1)•Next•EndSub•PrivateSubCommand3_Click()•x=ABCDE•Fori=5To1Step-2•PrintMid(x,i,1)•Next•EndSub实例•PrivateSubCommand4_Click()•m=InputBox(请输入一个数)•Fori=2Tom-1•IfmModi=0Then•ExitFor•EndIf•Next•Ifi=mThen•Printm;是素数•Else•Printm;不是素数•EndIf•EndSub实例•Fori=1to9•Forj=1toi•printtab(4*j);i*j每个输出间隔四位•Nextj•Print•Nexti单选和复选•单选按钮optionbutton：caption属性【单选按钮的标题】value【设置其状态TRUE选定FALSE没有】style【按钮显示方式0-标准1-graphical图形（与命令按钮相似）】alignment【0-左对齐1-右对齐】事件：click•复选checkbox：caption属性【复选按钮的标题】value【设置其状态0-没选定1-选定2-禁止选择】style【按钮显示方式0-标准1-graphical图形（与命令按钮相似）】alignment【0-左对齐1-右对齐】事件：click框架和滚动条•框架[frame]:caption，enabled是否可用，visible是否可见。事件：click，dblclick•滚动条[scollbar]水平【hscollbar】垂直【vscollbar】max最大位置的值min最小位置的值value【滑块在滚动条的位置】列表框和组合框•列表框【listbox】：list【选项】，listcount【选项数量】，listindex【被选中项在list数组中的下标】selected【选定状态】sorted【是否升序排列】text【选中选项的文本内容】multiselect【0-禁止多项选择1-简单多项选择】style【0-标准1-复选框形式】•事件：click，dblclick，scroll•方法:additem[对象名.]additem项字符串[,项的索引号]eg：list1.additem”留洋”【末尾添加】list1.a