锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net动态块 vb动态库制作( 二 )

IT技术bus


你可能已经注意到例一中的事件处理器使用的是宽松代表——它没有将ByVal发送器作为System Object 也没有将ByVal e作为System EventArgs作为参数因为它不需要这二者 然而 当你创建一个事件处理器来动态创建控件时 通常你需要将ByVal发送器作为System Object参数 这意味着将这两者都包含其中
有些程序员在创建事件处理器的时候会出现一个错误 即没有检查传入控件的类型 发送器对象可能包含多选择 而如果未对事件处理器进行事件处理类型的设置 那么你就会面临更多的选择 我们的示例代码一开始就检查了传入控件对象的类型 这样以来发送器就不会像下面所展示的代码一样Private　Sub　btnTest _Click()　Handles　btnTest ClickCreate　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 ClickAddressOf　NewLink_ClickPlace　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 ClickCreate　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　executablerather　than　a　DLL Parms GenerateExecutable　=　TrueThe　piler　will　create　an　output　assembly　called　Output Parms OutputAssembly　=OutputThe　piler　won t　treat　warnings　as　errors Parms TreatWarningsAsErrors　=　FalseAdd　any　assembly　you　want　to　reference Parms ReferencedAssemblies Add( System Windows Forms dll )Define　the　code　you　want　to　runDim　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(ParmsSampleCode ToString())Display　error　messages　if　there　are　any If　Executable Errors HasErrors　ThenFor　Each　Item　As　CompilerError　In　Executable ErrorsMessageBox Show(Item ErrorText)NextElseIf　there　aren t　any　error　messagesstart　theexecutable Process Start( Output )End　IfEnd　Sub

推荐阅读


上一篇：怎么做树洞小程序，怎么做树洞赚钱

下一篇：python爬虫解决乱码，python爬虫编码转换