VB6相关资源
|
也许，又要捡起VB6了，做维护！复习一下！ 1，基础 常用快捷键： ------------------------------------------------------------------------------------ F3：查找下一个 F4：查看对象的属性 F5：开始运行、调试 F8：单步调试 F7：进入代码模式 Home：定位到当前代码行的行首 End：定位到当前代码行的行末 Shift + F7：进入设计模式 Shift + F2: 查看某函数/变量的定义 Shift + F3：查找前一个 Shift + F10：查看快捷键菜单 Ctrl + Home：定位到代码开头 Ctrl + End：定位到代码结尾 Ctrl + Shift + F9：删除所有断点 Ctrl + F5：全编译执行 左下角有2按钮：分别是查看某一个过程查看、全模块查看 ------------------------------------------------------------------------------------ 代码实现窗体的对齐方式： Form1.Top = (Screen.Height - Form1.Height) / 2 ’垂直居中 Form1.Left = (Screen.Width - Form1.Width) / 2 ’ 水平居中 ------------------------------------------------------------------------------------ 显示窗体：Form1.Show 显示模式窗体：Form1.Show 1 或者 Form1.Show vbModal 关闭窗体：Unload Form1 隐藏窗体：Form1.Hide ------------------------------------------------------------------------------------ 示例使用Err对象的HelpContext属性来显示用于overflow错误 dim Msg Err.Clear on error resume next Err.Raise 6 'generate overflow error if Err.Number <>0 then Msg="Press F1 or HELP to see " & Err.HelpFile & _ " topic for " & _ " the following HelpContext: " & Err.HelpContext MsgBox Msg,"Error: " & Err.Description,_ Err.HelpFile,Err.HelpContext end if ------------------------------------------------------------------------------------- 变量名 var1%=23 ’表示var1是一个整型变量 var2!=23 '表示var2是一个单精度变量 var3#=23 '表示var3是一个双精度变量 dim student_name,student_home,student_age as string * 20 表示这些变量都是string型，且长度都为20 % 整型 ! 单精度型 # 双精度型 $ 字符串型 & 长整型 @ 货币类型 为避免写错变量名，可以在类模块、窗体模块、标准模块的声明断中写： option explicit Tools菜单-->选项--> 编辑器-->要求声明变量 勾中，这样会在任何新建的模块中自动插入 option explicit,注意已存在的模块中不会自动插入，需要手工添加进去 模块级变量：private iTemp as integer 只对当前模块有效，它与 dim iTemp as integer表示意义一样，但前者可读性更强； public iTemp as integer 在其它模块中也有效 注意：只能在模块的声明断中用private 或 public ；在过程中只能用 dim 在过程中声明的变量，是过程级变量，一般也叫局部变量； 还有一种局部变量：静态变量，在过程中声明，它使用之后，尚保存值！用法：static iPermanent as integer ------------------------------------------------------------------------------------- 调试输出内容：debug.print "aaa" ------------------------------------------------------------------------------------- 变量类型：byte,boolean,integer,long,currency,decimal,single,date,string,object,variant等 常量修饰符：const ------------------------------------------------------------------------------------- 判断函数 isNumeric() 返回 true / false,检测表达式是否是一个数值型变量，如整数、单精度数、双精度数 isArray() 返回 true / false,判断表达式是否是一个数组 isMissing() 返回 true / false,判断当前过程中调用的参数是否是可选参数 isNull() 返回 true / false,判断数据库中某个字段中是否有有效数值 isEmpty() 返回 true / false,判断某个变量是否进行了初始化 ------------------------------------------------------------------------------------- 数组 固定数组 dim count(14) as integer '表示15元素 dim sum(20) as double ' 表示21个元素 dim counts(1 to 15) as integer '表示15个元素，下标从1到15 dim sums(100 to 120) as double '表示20个元素，上界100，下界120 多维数组 static MatrixA(9,9) as double static MatrixA(1 to 10,1 to 10) static MatrixA(3,1 to 10,1 to 15) '3维数组，元素个数为 4*10*15=600 dim student(14,35) as string 取某个值用：student(2)(4) 动态数组 redim preserve student(14) '用preserve会保留原来sudent数组中的元素，否则redim之后，student中的值将全部丢失;redim只能用于过程中； 集合 collection add(),remove(),item,count dim student as new collection student.items.add "张三" 遍历集合 for I=0 to student.count '操作 next I fore ach item in student '操作 next item ------------------------------------------------------------------------------------ 提示框 inputbox msgbox ------------------------------------------------------------------------------------- 过程有几类： sub 过程（子过程）：一般只完成一定的操作和功能，不产生返回值 function过程（函数）：除了完成一般的功能，还返回值 property过程(属性过程)：用于为对象添加属性 子过程： privatate sub DisplayMsg(msg as string) cls '清屏 print msg '输出 end sub 调用方法： call DisplayMsg("aaabbb") 或 DisplayMsg "aaabbb" ‘前面可以不用call，但后面一定不能用括号 函数： function CalculateSquareRoot(numberArg as double) as Double if(numberArg<0) then exit function else CalculateSqureRoot=sqrt(numberArg) end if end function 调用方法： t1=CalculateSquareRoot(352.33) 嵌套调用： t1=CalculateSquareRoot(CalculateSquareRoot(352.33)) 传参方式：按值传参，按地址传参 （byval,byref） vb缺省（默认）是byref的形式传参 可选参数修饰符：optional ------------------------------------------------------------------------------------- 条件结构： 1, if Condtion then Statement end if 2, if Condition then --- else --- end if 3, if Condition then --- elseif conditino1 then -- else -- end if ------------------------------------------------------------------------------------- ------------------------------------------------------------------------------------- 编 程 入 门 --看实例学VB 6.0--VB的简单语法学习 http://wangluodiannaozhishi.blog.hexun.com/25457021_d.html 通过各种实例来学习VB6.0 http://wenku.baidu.com/view/8ad469ceda38376baf1faeb2.html 2，实例 VB6.0开发网络应用的5个技巧http://www.233.com/ncre2/VB/fudao/20080321/092544220.html （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |