vb.net技巧 vbnet using

使用VB.NET的五个技巧之在组件中显示时间

开发过程过程中vb.net技巧我们通常对特定代码片运行所花vb.net技巧的时间很感兴趣 当然有一些标准程序和代码工具可以查看到它 但是有经验vb.net技巧的Visual Basic 开发者有更快的办法 仅仅捕捉开始时间（使用Now关键字）和终止时间（再次使用Now关键字） 两种相减 就能知道结果了

如果使用Visual Basic NET编写 首先尝试的代码可能是这样的

Dim StartTime As DateTime = Now {code to check for timing goes here} Dim EndTime As DateTime = Now Console WriteLine((StartTime EndTime) ToString)

但是这段代码的最后一行有语法错误 错误消息是 日期类型没有定义 － 操作符 这意味着我们不能执行减法 日期数据类型不支持减法操作 那么我们怎么得到两次时间的差别呢vb.net技巧？

答案就是使用TimeSpan类 它是用于保持时间段的 上面的代码看起来与 NET框架组件中的相似

Dim StartTime As DateTime = Now {code to check for timing goes here} Dim EndTime As DateTime = Now Dim RunLength As System TimeSpan RunLength = EndTime Subtract(StartTime) Console WriteLine(RunLength ToString)

计算使用的是类Date的Subtract方法 最后一行将输出时间的跨度 格式化成小时 分钟和秒（包括秒的小数位） 典型的输出是这样的

该时间跨度是 秒半 尽管显示了 位小数 但是只能相信两位 但是已经足够了

结论

lishixinzhi/Article/program/net/201311/11820

相关问答

Q1: 使用VB.NET的五个技巧之窗体嵌套

NET框架组件太大了 比任何以前所写的封装功能的库都要大 这样有好处 因为它大幅削减了建立应用程序所需编写的代码 但是也使vb.net技巧我们不可能完全了解该框架组件 但是我们很容易从中找到一些技巧

窗体嵌套

经验丰富的Visual Basic开发者知道多文档界面（MDI）应用程序能够包含子窗体 那些子窗体由MDI父窗体管理 但是如果没有MDI的能力vb.net技巧你怎样实现包含嵌套窗体？例如一个MDI子窗体也可能需要包含另一个窗体

有时能够使用用户控件（UserControl）实现这种功能 但是如果你真的需要把一个窗体嵌套进另一个窗体 有多种方法可以实现 窗体衍生自Control类 这意味着它能被放入另一个窗体的控件集合中 使用如下的逻辑

Dim f As New frmEmbed ()Me Controls Add(f)f Show()

但是很不幸 这段代码将会导致一个运行时（runtime）异常（见图 ）

图 试图把一个窗体添加到另一个窗体的控件集合时出现的运行时错误

为了避免这种异常 该窗体的TopLevel属性必须设置为False（见下面的代码）

Dim f As New frmEmbed () f TopLevel = False Me Controls Add(f) f Show()

图 显示的是使用上面的逻辑实现的一个窗体嵌入另一个窗体 嵌入的窗体有一个标题条（它的颜色是未激活的系统颜色） 因此该嵌入窗体能在容器窗体内四处拖动 在图 中 该窗体从它的开始位置（左上角）拖到了右下角

图 在容器窗体中有一个嵌入的窗体 嵌入的窗体能在容器窗体中拖动

通常在显示嵌入的窗体前先设置它的位置 这只需要简单的设置嵌入窗体的Left和Top属性 嵌入窗体的位置与容器窗体是相对的

与MDI子窗体不同 嵌入窗体能覆盖容器窗体上的控件 图 显示了它们的不同

图 嵌入窗体（左）可以覆盖容器窗体上的控件 MDI子窗体（右）不能覆盖MDI父窗体上的控件

在右边的MDI例子中 没有办法使按钮隐藏在子窗体的后面 但是在左边该按钮被嵌入窗体覆盖了

当窗体第一次被嵌入时 它将显示在容器窗体上的已存在的控件的后面 当它被点击时 它走向前台并停留在那儿 这会打扰用户 但是能通过插入下面的代码防止这种情况发生

f BringToFront（）

嵌入的窗体可以包含其它的嵌入窗体 没有实际的限制 图 显示了一个本身包含嵌入的窗体的嵌入窗体

lishixinzhi/Article/program/net/201311/12398

Q2: 使用VB.NET的五个技巧之处理数据行

处理数据行（DataRow）

Windows窗体中的数据绑定列表框和组合框很节省时间 典型的代码如下（假定已经建立了SqlDataAdapter或者其它部件获取数据）

Dim ds As New DataSet() SqlDataAdapter Fill(ds Customers ) ListBox DataSource = ds Tables( Customers ) ListBox DisplayMember = CompanyName ListBox ValueMember = CustomerID

在这种情况下 代码使用Northwind数据库的顾客记录工作 DisplayMember属性设置为你希望用户在列表框中看到的记录字段 它是customers表的CompanyName 通常ValueMember属性设置为数据表中的一个键字段 对于customer来说是CustomerID 一旦用户选择了列表框中的一行 很容易使用列表框的SelectedValue属性获得键字段

MsgBox（ListBox SelectedValue）

但是有可能需要一个与被选择项相关的整个数据行对象的引用 例如 如果被选择的行需要被删除 就不知道键了 你需要一个数据行的引用以使用Delete方法

典型的Visual Basic开发者通常这样想 我已经得到了该行的键了 我将编写一些逻辑来查找使用该键的行 这样可以实现 但是有更好的实现方法 可以使用一行代码获取与列表框中选项关联的数据行

Dim dr As DataRow = CType（ListBox SelectedItem DataRowView） Row

通常该逻辑不会凭直觉出现 即使对经验丰富的开发者 为了解释这是怎样实现的 我把上面的一行拆成几行 下面的代码与上面代码的功能相同

Dim drv As DataRowView drv = CType(ListBox SelectedItem DataRowView) Dim dr As DataRow dr = drv Row

DataRowView类是数据行的包装 它被多个Windows窗体控件使用 它使得显示与控件中的数据行相关的数据更加容易 当列表框被数据绑定到数据表时（假定列表框中的有些行当前被选定了） 列表框的SelectedItem属性保存了一个DataRowView对象

这意味着我们能把列表框的SelectedItem属性转换到DataRowView对象 这就是上面代码中的第二行实现的 接着DataRowView暴露一个Row属性 它指向被包装的数据行 上面的代码声明了一个数据行并设置了Row属性

转换对象的类型以访问它的接口的技术在Visual Basic 中不是经常使用 但是在Visual Basic NET中这是经常的 有了上面的例子后 大多数有经验的开发者迅速跟上了这种技术

数据行的引用（dr）可用于用任何方式维护行 访问数据行中的任何特定字段是可行的 行中的数据可以被改变 能使数据行的Delete方法把该行标识为删除 或者从数据表的行集合中删除该行 下面的代码标识删除了一行

dr Delete（）

lishixinzhi/Article/program/net/201311/12974

Q3: VB.NET中的动态代码生成技巧

本文的讨论也将着眼于这两种情况 首先是当程序员需要动态建立一个控件并将代码附着于控件之上时 例如 你或许想创建一个链接列表 但是不知道需要创建链接的数量或是链接中会出现什么样的数据 第二种是当程序员需要定义代码以反映出特殊需求的时候 例如 你或许要执行能反映用户系统配置的代码

类似上述的情况当然不会每天都上演 事实上 它们只在非常情况下才出现 然而 作为程序员 仍然要意识到 NET为解决动态情形提供了方案 有了正确的技巧 你就可以写出能灵活处理动态情况的应用程序了

使用动态控件

许多程序员总会遇到需要动态创建控件的时候 我们所展示的例子中程序员向FlowLayoutPanel中添加了LinkLabels 或许你可以个这样的设置来记录和保存常用的URL 文件 网络地址或是其他资源所在位置的数值 这一示例没有真正保存链接 但是你可以使用XML序列化功能来实现保存

每次当用户点击Test按钮时 示例代码就会动态创建一个新的LinkLabel控件 真正的演示代码并不复杂 例一就展示了创建这类控件以及将控件放入FlowLayoutPanel lstLabel中通常所需要做的一切

例一 向FlowLayoutPanel中添加新的链接  Private　Sub　btnTest_Click()　Handles　btnTest Click　 　Create　a　link 　Dim　NewLink　As　LinkLabel　=New　LinkLabel()　 　Add　some　properties　to　it 　NewLink Text　=　DateTime Now　 ToLongTimeString()　 　Set　the　click　event　handler 　AddHandler　NewLink Click 　AddressOf　NewLink_Click　 　Place　the　button　on　the　form 　lstLinks Controls Add(NewLink)　End　Sub

如你所料 该代码开始的时候创建了一个新的LinkLabel并为其赋予了一些值 这一示例使用的是当前时间 你的代码或许能够对某一真实资源进行访问

请注意该代码也向链接的Click事件中指定了一个处理程序 你必须使用示例中的AddHandler技巧 因为普通的Handles关键词路径不起作用 一方面 设计应用程序的时候你并不清楚控件的名称 即便你为控件指定了一个名称 你也不知道用户要创建的控件数量 所以我们没有办法清楚会有多少处理程序会被创建 处理程序的代码与控件代码类似 因此没有必要创建多个处理程序 用于这个示例的处理代码见例二 例二 处理动态控件点击事件  Private　Sub　NewLink_Click(　_　ByVal　sender　As　System Object 　ByVal　e　As　System EventArgs) 　Verify　that　you　actually　have　a　LinkLabelIf　Not　sender GetType()　Is　GetType(LinkLabel)　ThenMessageBox Show( Wrong　control　type　provided! )ReturnEnd　If 　Convert　the　input　sender　to　a　Button Dim　ThisLink　As　LinkLabel　=　sender　 　Show　that　we　have　the　correct　button MessageBox Show( You　created　this　link　at:　 　+　ThisLink Text)End　Sub　

你可能已经注意到例一中的事件处理器使用的是宽松代表——它没有将ByVal发送器作为System Object 也没有将ByVal e作为System EventArgs作为参数因为它不需要这二者 然而 当你创建一个事件处理器来动态创建控件时 通常你需要将ByVal发送器作为System Object参数 这意味着将这两者都包含其中

有些程序员在创建事件处理器的时候会出现一个错误 即没有检查传入控件的类型 发送器对象可能包含多选择 而如果未对事件处理器进行事件处理类型的设置 那么你就会面临更多的选择 我们的示例代码一开始就检查了传入控件对象的类型 这样以来发送器就不会像下面所展示的代码一样  Private　Sub　btnTest _Click()　Handles　btnTest Click　 　Create　a　link Dim　NewButton　As　Button　=　New　Button() 　Add　some　properties　to　it NewButton Text　=　DateTime Now ToLongTimeString() 　Set　the　click　event　handler AddHandler　NewButton Click 　AddressOf　NewLink_Click 　Place　the　button　on　the　form lstLinks Controls Add(NewButton)End　Sub　

此代码在FlowLayoutPanel中创建了一个按钮 大多数情况下这都能正常运行 除非事件处理器不按照按钮所示的进行操作 如果你打算服务多个控件类型 那么每个控件类型都需要一个独特的处理 你可以使用多事件处理器或者为某些类型提供选择标准

NewLink_Click（）事件处理器照常将传入发送器转换成指定类型 在这个示例中则是LinkLabel 该代码可以访问LinkLabel属性并能用其他方式进行互动 在我们的示例中 只显示了一个能在创建链接的时候告知我们的对话框

使用动态代码

在运行时创建一个控件是在无法确定应用程序功能的时候采取的一种策略 但是动态创建控件并不适用于所有的情况 有些时候你必须建立可执行代码 虽然你的应用程序运行的目的是补偿不同极其之间的配置 不同用户的需求 不同的环境需求或是其他要求 当应用程序所运行的电脑不存在控件 那么通常是需要创建动态代码的

幸运的是 NET为我们提供了一系列动态代码选项 例如 你可以创建一个可执行的能独立运行的程序或是可以想运行中的程序加载一个DLL然后再执行 当你需要演示一个外部任务的时候可以使用选择可执行 如运行一种脚本——该DLL选项最适合扩大现有的应用程序功能

你可以运行来自文件或内存的动态代码 当你需要不止一次地运行代码时 可以使用文件 对代码的检查可以再次运行外部文件而不需要对其进行二次编译 当你需要多次演示任务的时候 如一个安装请求 那可以使用内存图像

当然我们也可以更改源代码 例如 你可以使用字符串来建立需要在应用程序中直接使用的代码 如果你需要代码具有高度灵活性 且代码本身不是很长时 这一方法的优势就非常显著 也可以从文件里建立代码 就如同VS一样 这一方法最适用于相对稳定且不需要复杂编码的需求 第三种选择是使用Documentation Object Model来创建代码并将其作为CodeDom树型结构的一个系列 该树型结构包括了CodeCormpileUnits 这就像是用DOM模式创建了一个XML文件

使用动态创建代码的最好方式是用示例来检查一下 例三展示了一个基本 Hello World 示例 该示例用源代码直接创建了代码因此你可以看到整个运行以及生成一个外部可执行文件的过程

例三 动态编码示例  Private　Sub　btnTest _Click()　Handles　btnTest Click　 　Create　a　piler Dim　Comp　As　VBCodeProvider　=　New　VBCodeProvider() 　Define　the　parameters　for　the　code　you　want　to　pile Dim　Parms　As　CompilerParameters　=　New　CompilerParameters)　 　We　do　want　to　create　an　executable 　rather　than　a　DLL Parms GenerateExecutable　=　True　 　The　piler　will　create　an　output　assembly　called　Output Parms OutputAssembly　=　 Output 　 　The　piler　won t　treat　warnings　as　errors Parms TreatWarningsAsErrors　=　False　 　Add　any　assembly　you　want　to　reference Parms ReferencedAssemblies Add( System Windows Forms dll )　 　Define　the　code　you　want　to　run 　Dim　SampleCode　As　StringBuilder　=　New　StringBuilder()　SampleCode Append( Imports　System Windows Forms 　+　vbCrLf)　SampleCode Append( Module　TestAssembly 　+　vbCrLf)　SampleCode Append( Sub　Main() 　+　vbCrLf)　SampleCode Append( MessageBox Show( 　+　Chr( )　+　_ Dynamically　Created　Code! 　+　_Chr( )　+　 ) 　+　vbCrLf)SampleCode Append( End　Sub 　+　vbCrLf)SampleCode Append( End　Module 　+　vbCrLf) 　Define　the　code　to　run Dim　Executable　As　CompilerResults　=　_　Comp CompileAssemblyFromSource(Parms 　SampleCode ToString()) 　Display　error　messages　if　there　are　any If　Executable Errors HasErrors　ThenFor　Each　Item　As　CompilerError　In　Executable ErrorsMessageBox Show(Item ErrorText)NextElse 　If　there　aren t　any　error　messages 　start　the 　executable Process Start( Output )End　IfEnd　Sub　

一开始你创建了一个使用VBCodeProvider的编译器Comp 旧一点的 NET版本使用的是不同的方法但是这里所讲的是微软推荐的一个新方法

为了使用编译器 你必须创建能描述应用程序的参数 这些参数类似于VS中你创建的参数 只是现在你可以对它们进行定义 该代码一开始就将GenerateExecutable设置为True 这意味着你需要的是一个EXE文件而不是DLL

Parms OutputAssembly属性包含了输出文件的名称 你只需要在想创建文件时提供这一信息即可 而不需要生成可执行内存了 如果你ixiang生成可执行文件的内存版本 可以将Parm GenerateInMemory属性设置为True

使用Parm TreatWarningsAsErrors属性来确定如何处理警告信息 默认的设置会使其为错误 这意味着你的应用程序可能无法对其进行编译 大多数程序员使用默认设置 尽管他们开发了程序 但是在开发完成的程序中却将其设置为False

大多数应用程序需要外部DLL以正常运行 当然 你不能创建任意的没有引用外部DLL的Windows表单程序 通常 你要使用Reference文件夹来完成这一任务 不过 当你动态创建代码的时候可以依赖于Parms ReferencedAssemblies属性 如下所示 只需添加你要的DLL即可

现在 你已经定义了项目 接下来需要为其创建源代码 如前文所述 你可以依赖于一个外部文件或DOM模式 然后 该示例创建了代码因此你可以看到整个过程 下面是代码的原始形式  Imports　System Windows Forms　Module　TestAssemblySub　Main()MessageBox Show( Dynamically　Created　Code! )End　SubEnd　Module　

这个简单的例子显示了一个对话框 注意vbCrLf的使用 如果你不使用这一方法 那编译器会发送给你一个错误信息 vbCrLf条目在该代码中所起的作用与在程序代码中的作用相同 只是添加的方式不一样

从这一点老说 你最后会用Comp CompileAsseblyFromSource（）方法编译代码 当使用DOM模式和文件的时候可以使用这一方法 而在所有三种情况中 编译器用参数和源代码创建了你请求的输出 该运算的输出出现在Executable中 是CompilerResults类型

编译的失败次数多于程序员的预计 无论你是在哪里使用动态编码技巧 你必须假设会出现失败的情况以及处理失败的方案 在本例中 代码寻找的是错误并在编译失败时将其展示在了信息框中 否则 代码会依赖于Process Start（）方法来启用可执行文件

底线

动态编码技巧并不是万能钥匙 当你为开发问题找到了好的静态解决方案时 当然也可以使用 但是在我们所列出的情况中没有可行的静态方案 因此要选择动态编码技巧 大多数情况下 要用动态编码技巧解决以下问题

◆ 用户的环境会以不可预见的方式更改时

◆ 无法控制用户电脑的安装

◆ 用户或应用程序都添加了你要用控件执行的数据要素

◆ 应用程序必须执行很早以前的安装任务 且这些任务与电脑 环境 网络或其他不确定因素联系紧密时

◆ 应用程序要执行了处理级别的任务 且这些任务取决于机器连接或其他状况

lishixinzhi/Article/program/ASP/201311/21812

vb.net技巧的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet using、vb.net技巧的信息别忘了在本站进行查找喔。