VisualBasic6：微软出品、简单易用，虽然几十年前的，依旧生命顽强，以下简称：VB6

VisualFreeBasic：集合VB6的易用和采用c语言的优点及编程底层操作，VB6高手的进阶语言，以下简称：VFB

-------------------------------------------------------------------------------------------------------------------

变量类型：数字变量

VB6： 8位 16位 32位 有符合变量

VFB： 8位 16位 32位 64位 无符合和有符合变量，以及大量的类型别名。

变量类型：字符变量

VB6： UNICODE字符 String      ANSI字符  无

VFB： UNICODE字符 wString   ANSI字符  String 

变量类型：指针变量

VB6：无

VFB：ptr    如：Long ptr  、 String ptr  ，ptr 不能单独用，前面+变量类型。已经占位  any ptr 

变量声明：同类型连续变量声明

VB6：Dim a as long ,b as long ,c as long

VFB：Dim as long a,b,c

变量作用范围：

VB6：全局  Public  过程 DIM

VFB：全局 Dim Shared   过程、代码块 Dim   

例题：

If xxx then 

    Dim a as long 

     if xxx then 

           Dim b as long  '就在 IF 范围内，过后就消失

            这里可以用 a 变量

      End if 

      b 变量已经销毁

      if xxx then 

           Dim b as long  '就在 IF 范围内，过后就消失

       End if 

end if 

代码块 包括 Do  For  Whil 等等

For i as long=0 to 100   'FOR 可以直接在语句中声明变量。只在 For 范围内有效

当一个函数内代码多时，就不需要为临时变量烦恼了，各用各的。

 

VisualBasic6：微软出品、简单易用，虽然几十年前的，依旧生命顽强，以下简称：VB6

VisualFreeBasic：集合VB6的易用和采用c语言的优点及编程底层操作，VB6高手的进阶语言，以下简称：VFB

有种逻辑操作符叫：短路  顾名思义就是路径比较短，那换成代码执行就更高效率了。这是VB6不存在的。

正常逻辑是： And   Or 

短路逻辑是：AndAlso  OrElse 

本来VFB比VB6代码执行效率高很多，有了这个更能加速。例题 :

'平常写法
If 表达试a And 表达试b Then ok

'短路逻辑
If 表达试a AndAlso 表达试b Then ok

看上去一样，但实际上是不一样的，等效下面的语句
If 表达试a Then

    If 表达试b Then  ok
End if 

平常写法，表达试a 和 表达试b 必须计算后2个比较

短路写法，表达试a 如果不成立，那么 表达试b 就不计算了。

最有说明的应用就是数组，判断是不是超了

If ubound(bb)>=5 AndAlso bb(5)>0 Then   
平常写法会因为 数组太少而发生代码出错， 短路写法则不会发生这问题。

 

OrElse  也是如此短路

平常写法：会计算所有的表达式，然后比较，这样太浪费时间了
If 表达试a Or 表达试b  Or 表达试c Then ok
短路写法：先算表达试a 成立就直接OK，不成立就算 b 依次算完全部
If 表达试a OrElse 表达试b  OrElse 表达试c Then ok

 

以上只是冰山一角，更多发现，期待你自己使用VFB。

VisualBasic6：微软出品、简单易用，虽然几十年前的，依旧生命顽强，以下简称：VB6

VisualFreeBasic：集合VB6的易用和采用c语言的优点及编程底层操作，VB6高手的进阶语言，以下简称：VFB

变量初始化，当声明一个变量时，B语言会初始化它，数字的为 0 ，字符的为空。

VB6 ： Dim a as long    '默认初始为 0  而且不可以干预。

VFB ： Dim a as long = 100    '可以随意初始为任意值。

其它例题：

DIM a as long = 100*8+99  ‘可以是表达式
DIM a as long = 函数(aaa)    '可以是函数返回

数组初始化赋值：
DIM bb(3) as long ={1,2,3,4}

未知数组初始化赋值：
Dim cc(...) as string ={"1","2","3","4","5"}

多维数组初始化赋值：
Dim ee(1 To 2,1 To 5) as long = {{0,0,0,0,0},{0,0,0,0,0}}

自定义类型初始化赋值：

Type mytype

    var1 As Double

    var2 As Integer

    var3 As String

End Type

Dim MyVar(2) As mytype =  {  (1.0, 1, "Hello"),  (2.0, 2, "GoodBye")  }

 

注意：对于模块级，静态或全局变量，初始化值必须是常量表达式。

    Microsoft Visual Basic 6 应用程序可以访问 .NET 类库，但它必须通过互操作层（即客户端可调用包装）才能进行此访问。这种方式先包装所需的 .NET 类，然后再显示它，这样该类就像传统的 COM 对象一样，可以在任何能够使用 COM 对象的环境中使用。了解如何创建这些包装。

转载于:https://www.cnblogs.com/oracle10g/articles/1506274.html