VB.NET判断数组维数具体实现方法探讨
创始人
2024-06-21 13:30:45
0

VB.NET编程人员在操作数组时,经常会遇到需要对所操作数组进行维数的判断,那么应该如何才能正确的实现这一功能呢?下面我们就一起来看看VB.NET判断数组维数的相关操作技巧,以增加大家的编程经验。

首先,大家应该知道,VB.NET语言特点非常突出:

1.代码托管。被托管的代码享受.netframework提供的安全保障和垃圾回收机制,但是这也同时表明,你的程序被框在Framework里面了。API变得不太方便。

2.强大的面向对象特性。现在VB7已经是一个完全的面向对象程序。现在VB7已经支持类的各种特性:继承,函数的覆盖,重载,虚拟,隐藏……

3.功能强大,程序界面更标准。

4.程序代码结构化更强,开发环境舒适体贴。

VB.net常常被人称为VB7.0即对VB6的升级是不对的,几乎在.net中的思想已经完全改变了,VB6中是基于事件和对象的思想,而在.net中由于使用了.net框架,并且MS为了将新的编译环境与潮流接轨,面对对象在.net中尤为突出,用过6的朋友们都很清楚,在6中过程的思想还能运用,但是在.net中过程的思想已经完全的被OOP的思想取代了。

也许这样说你也不太明白,我用一句话来解释,就是VB6及其以前的产品是DOS时代到Windows可视化时代的一个转变,VB.Net是为建造基于因特网的分布式计算的新时代的解决方案提供基础构造的一个转变。因此,对于目前的仍比较普遍的win32环境来讲VB.net并没有比VB6有什么进步。

在VB.NET中数姐最大维数是60,所以我们通过错误捕捉来处理这个问题,在这里我们用到UBound函数

  1. Public Function ArrayRange(mArray As Variant) As Integer   
  2. Dim i As Integer   
  3. Dim Ret As Integer   
  4. Dim ErrF As Boolean   
  5. ErrF = False   
  6. On Error GoTo ErrHandle   
  7. '判断代入的参数是否为数组    
  8. If Not IsArray(mArray) Then   
  9. ArrayRange = -1   
  10. Exit Function   
  11. End If   
  12. 'VB.NET中数组最大为60   
  13. For i = 1 To 60  

用UBound函数来实现VB.NET判断数组维数,并判断某一维的上界,如果大数组的实际维数时产生超出范围错误,此时我们通过Resume Next 来捕捉错这个错误

  1. Ret = UBound(mArray, i)   
  2. If ErrF Then Exit For   
  3. Next i  

最后返回

  1. ArrayRange = Ret   
  2. Exit Function   
  3. ErrHandle:   
  4. Ret = i - 1   
  5. ErrF = True   
  6. Resume Next   
  7. End Function  

VB.NET判断数组维数的相关方法就为大家介绍到这里。

【编辑推荐】

  1. VB.NET制作图片按钮实现步骤一一讲解
  2. VB.NET MyClass使用方法细讲
  3. VB.NET磁盘格式化小心使用
  4. VB.NET删除文件夹实现方法介绍
  5. VB.NET安装工程具体应用方法解析

相关内容

热门资讯

如何允许远程连接到MySQL数... [[277004]]【51CTO.com快译】默认情况下,MySQL服务器仅侦听来自localhos...
如何利用交换机和端口设置来管理... 在网络管理中,总是有些人让管理员头疼。下面我们就将介绍一下一个网管员利用交换机以及端口设置等来进行D...
施耐德电气数据中心整体解决方案... 近日,全球能效管理专家施耐德电气正式启动大型体验活动“能效中国行——2012卡车巡展”,作为该活动的...
Windows恶意软件20年“... 在Windows的早期年代,病毒游走于系统之间,偶尔删除文件(但被删除的文件几乎都是可恢复的),并弹...
20个非常棒的扁平设计免费资源 Apple设备的平面图标PSD免费平板UI 平板UI套件24平图标Freen平板UI套件PSD径向平...
德国电信门户网站可实时显示全球... 德国电信周三推出一个门户网站,直观地实时提供其安装在全球各地的传感器网络检测到的网络攻击状况。该网站...
着眼MAC地址,解救无法享受D... 在安装了DHCP服务器的局域网环境中,每一台工作站在上网之前,都要先从DHCP服务器那里享受到地址动...
为啥国人偏爱 Mybatis,... 关于 SQL 和 ORM 的争论,永远都不会终止,我也一直在思考这个问题。昨天又跟群里的小伙伴进行...