VB.NET使用with技巧讲解
创始人
2024-06-20 05:50:42
0

作为一款功能非常强大的面向对象语言,VB.NET深受广大开发人员的青睐。它的使用方法相对于其他编程语言来说还算是比较简单的。比如在VB.NET使用with中,就可以用简单的方式来实现。#t#

在VB.NET使用with代码中的内容看作接在with后那个对象后面就对了。

执行重复引用单个对象或结构的一系列语句。

  1. With object   
  2. [ statements ]   
  3. End With  

各部分说明

  1. object  

必选项。表达式。可以计算为任何数据类型,包括基本类型。

  1. statements  

可选项。对 object 执行的 With 后面的一条或多条语句。

  1. End With  

终止 With 块的执行。 

With...End With 允许对指定的对象执行一系列语句,而不必重新限定对象的名称。例如,在VB.NET使用with中若要修改单个对象的若干不同的属性,请将属性赋值语句放在 With...End With 中,这样只用引用一次对象,而不是在每个属性赋值中都引用它。下面的示例说明如何使用 With...End With 给同一个对象的多个属性赋值:

  1. With MyLabel   
  2. .Height = 2000   
  3. .Width = 2000   
  4. .Text = 
    "This is MyLabel"   
  5. End With  

注意 进入了 With...End With 后,直到通过 End With 后才能重新分配 object。因此,访问指定对象的方法和属性时不必限定它们。可以使用其他对象的方法和属性,但是必须用它们的对象名限定它们。

可以通过在一个 With...End With 语句中放入另一个此语句来嵌套它们。但是,由于外部语句的成员被屏蔽在内部语句内,必须在内部 With...End With 中提供对外部语句中的任何对象成员的完全限定对象引用。

在VB.NET使用with中不能使用 GoTo 从 With...End With 外部分支到它的内部标签。如果想在所有语句都执行完之前退出,请在 End With 语句上放置一个标签并分支到该标签。

本示例使用 With 语句对单个对象执行一系列语句。MyObject 对象及其属性是仅用于说明目的的一般名称。

  1. With MyObject   
  2. .Height = 100 ' Same as 
    MyObject.Height = 100.   
  3. .Text = "Hello World" ' 
    Same as MyObject.Text = 
    "Hello World".   
  4. .ForeColor = Color.Green 
    ' Same as MyObject.ForeColor 
    = Color.Green.   
  5. .Font = New Font(.Font, 
    FontStyle.Bold) ' Same as:   
  6. ' MyObject.Font = New Font
    (MyObject.Font, FontStyle.Bold).   
  7. End With   
  8. with me   
  9. .top=0   
  10. .left=0   
  11. end with  

等同于

  1. me.top=0   
  2. me.left=0  

VB.NET使用with的相关做法就为大家介绍到这里了。

相关内容

热门资讯

如何允许远程连接到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 的争论,永远都不会终止,我也一直在思考这个问题。昨天又跟群里的小伙伴进行...