|
本帖最后由 panhao1 于 2010-4-21 13:40 编辑
原帖 http://blog.sina.com.cn/s/blog_4c142e330100czyd.html
这里适用于gh
VB支持Module,是一种全部成员都是静态的特殊类型
C#支持static class,和VB的Module类似;
VB的Imports语句可以把类的静态成员导入,而C#的using语句没有这个功能
Imports System.Math
VB可以选择变量是否必须声明,以及类型是否必须指定(通过Option语句)
C#则默认是VB最严格的状态
C#可以使用extern alias指定程序集的别名,并使用别名限定运算符::来解析类名冲突的两个程序集
VB没有这个功能,但可以用Global关键字获得命名空间级别名称冲突解析能力
C#可以指定友元程序集,VB不支持
//成员层
VB可以直接重写Object.Finalize方法,而C#必须采用析构函数的语法
C#可以指定attribute的target以便清楚地放置attribute,而VB则通过尖括号的位置来决定,有时候写不出某种C#可行的语法
VB能够重载这些C#不支持的运算符:&, ^, Like, \
C#能够重载这些VB不支持的运算符:++, --, !
VB中子类的构造函数,先调用父类的构造函数,然后才初始化子类的字段
C#中子类的构造函数,先初始化子类的字段,然后才调用父类的构造函数
VB的Implemnts语句可以为实现接口的方法改名,改变访问级别
C#不支持但是有一个显式实现的语法可以帮忙
VB的函数重载,子类和父类的方法视为同级
C#的函数重载,子类优先于父类
VB的Main函数自动加,可以改
//继续成员层
C#的自定义event可以修改add和remove的规则
VB的自定义Event除了C#的之外,还支持重载RaiseEvent语句的用法
VB的Event可以直接书写Event参数,自动生成Delege类型
C#的event必须指定delegate类型
VB支持WithEvents/Handles静态事件绑定语法,也支持AddHandler动态绑定方法
C#的事件只支持使用+=动态绑定
VB的属性(Property)可以带参数
C#的属性不能带参数
尽管不支持手工定义,VB支持属性按引用传递值,C#不支持
VB可以指定一个带有参数的属性为Default,于是支持索引语法
C#则必须把这个东西声明为索引器,即this语法
VB允许方法带有若干可选参数(Optional)可指定默认值
C#不允许
C#支持out参数,传入前不需要初始化
VB不内置支持
C#支持类中使用fixed buffer,即固定大小的类似数组的成员
VB不支持
C#支持按照参数是否带有ref/out进行函数重载
VB不支持这种重载
C#允许仅大小写区分的两个函数或变量存在
VB不区分大小写,因此也不允许
(成员层一时想不起来了,呆会再想)
//函数层
VB支持局部Static变量
C#不支持
VB支持数组的最后一唯大小可变
C#的数组大小不能改变
VB的Try Catch语句支持Exit Try直接进入Finally
C#无类似语句
VB的Catch可以带When子句,使用.NET的异常filter功能有选择的进行捕获
C#完全不支持这一功能
VB可以使用传统的On Error方法,非结构化地处理异常
C#仅支持结构化
C#支持使用checked语句暂时打开或关闭整数溢出检查
VB仅支持整个项目级别处理
VB支持使用函数名作为返回变量,也支持Return
C#只支持Return
VB的Try, Using, For, For Each等语句支持使用前边定义的变量
C#的对应语句只能在语句开始处定义
C#可以支持unsafe语法有限地支持指针和stack数据的访问
VB不支持
C#支持yield return语法的迭代器生成
VB不支持
C#支持delegate语句就地生成支持closure的匿名方法
VB不支持
C#支持在委托与方法结合的过程中使用协变和反边规则
VB则只能使用完全匹配规则
VB和C#的循环和分支有若干次要差别
C#支持nullable类型的运算符跨类型支持
VB需要手工完成同样功能
VB支持用实例访问类的静态成员
C#只支持类明访问
VB支持按照非虚函数的规则,调用自身类型定义的一个虚函数
C#不支持这一功能
类库层
VB有一个非常好用Microsoft.VisualBasic.dll,实现了许多帮助函数,Application Framework应用程序框架,My命名空间等
C#只能望眼欲穿了……
C#以out/ref或者大小写区分不同函数,这就是不符合CLS的。
VB的每个特性几乎都是CLS兼容的(即使是那些C#不支持的),在VB中使用不会从根本上影响到与C#的交互
下面的代码是 vb debug用的 大家有兴趣可以尝试写一写try。。。。 end try
Try
'试图执行的任务,
Catch ex As Exception
'出了意外后让程序做挽救.至少保证你程序不会突然崩溃
End Try
Try
'5. Assign output parameters to component...
If (Crystal IsNot Nothing) Then
If (GH_Format.TreatAsCollection(Crystal)) Then
Dim __enum_Crystal As IEnumerable = DirectCast(Crystal, IEnumerable)
data_access.SetDataList(1, __enum_Crystal)
Else
If (TypeOf Crystal Is Grasshopper.Kernel.Data.IGH_DataTree) Then
'merge tree
data_access.SetDataTree(1, DirectCast(Crystal, Grasshopper.Kernel.Data.IGH_DataTree))
Else
'assign direct
data_access.SetData(1, Crystal)
End If
End If
Else
data_access.SetData(1, Nothing)
End If
If (Floating IsNot Nothing) Then
If (GH_Format.TreatAsCollection(Floating)) Then
Dim __enum_Floating As IEnumerable = DirectCast(Floating, IEnumerable)
data_access.SetDataList(2, __enum_Floating)
Else
If (TypeOf Floating Is Grasshopper.Kernel.Data.IGH_DataTree) Then
'merge tree
data_access.SetDataTree(2, DirectCast(Floating, Grasshopper.Kernel.Data.IGH_DataTree))
Else
'assign direct
data_access.SetData(2, Floating)
End If
End If
Else
data_access.SetData(2, Nothing)
End If
If (Count IsNot Nothing) Then
If (GH_Format.TreatAsCollection(Count)) Then
Dim __enum_Count As IEnumerable = DirectCast(Count, IEnumerable)
data_access.SetDataList(3, __enum_Count)
Else
If (TypeOf Count Is Grasshopper.Kernel.Data.IGH_DataTree) Then
'merge tree
data_access.SetDataTree(3, DirectCast(Count, Grasshopper.Kernel.Data.IGH_DataTree))
Else
'assign direct
data_access.SetData(3, Count)
End If
End If
Else
data_access.SetData(3, Nothing)
End If
If (Filaments IsNot Nothing) Then
If (GH_Format.TreatAsCollection(Filaments)) Then
Dim __enum_Filaments As IEnumerable = DirectCast(Filaments, IEnumerable)
data_access.SetDataList(4, __enum_Filaments)
Else
If (TypeOf Filaments Is Grasshopper.Kernel.Data.IGH_DataTree) Then
'merge tree
data_access.SetDataTree(4, DirectCast(Filaments, Grasshopper.Kernel.Data.IGH_DataTree))
Else
'assign direct
data_access.SetData(4, Filaments)
End If
End If
Else
data_access.SetData(4, Nothing)
End If
If (outer IsNot Nothing) Then
If (GH_Format.TreatAsCollection(outer)) Then
Dim __enum_outer As IEnumerable = DirectCast(outer, IEnumerable)
data_access.SetDataList(5, __enum_outer)
Else
If (TypeOf outer Is Grasshopper.Kernel.Data.IGH_DataTree) Then
'merge tree
data_access.SetDataTree(5, DirectCast(outer, Grasshopper.Kernel.Data.IGH_DataTree))
Else
'assign direct
data_access.SetData(5, outer)
End If
End If
Else
data_access.SetData(5, Nothing)
End If
Catch ex As Exception
__err.Add(String.Format("Script exception: {0}", ex.Message))
Finally
'Add errors and messages...
Dim __errors_plus_messages As New List(Of String)
If (Me.__err IsNot Nothing) Then __errors_plus_messages.AddRange(Me.__err)
If (Me.__out IsNot Nothing) Then __errors_plus_messages.AddRange(Me.__out)
If (__errors_plus_messages.Count > 0) Then
data_access.SetDataList(0, __errors_plus_messages)
End If
End Try |
评分
-
查看全部评分
|