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