vb.net技巧 vbnet left怎么用

使用VB.NET的五個技巧之在組件中顯示時間

開發過程過程中我們通常對特定代碼片運行所花的時間很感興趣當然有一些標準程序和代碼工具可以查看到它但是有經驗的Visual Basic 開發者有更快的辦法僅僅捕捉開始時間（使用Now關鍵字）和終止時間（再次使用Now關鍵字）兩種相減就能知道結果了

創新互聯公司2013年成立，是專業互聯網技術服務公司，擁有項目網站設計、做網站網站策劃，項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命，1280元蚌山做網站,已為上家服務,為蚌山各地企業和個人服務,聯系電話:028-86922220

如果使用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)

但是這段代碼的最后一行有語法錯誤錯誤消息是日期類型沒有定義－操作符這意味著我們不能執行減法日期數據類型不支持減法操作那么我們怎么得到兩次時間的差別呢？

答案就是使用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

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的五個技巧之窗體嵌套

NET框架組件太大了比任何以前所寫的封裝功能的庫都要大這樣有好處因為它大幅削減了建立應用程序所需編寫的代碼但是也使我們不可能完全了解該框架組件但是我們很容易從中找到一些技巧

窗體嵌套

經驗豐富的Visual Basic開發者知道多文檔界面（MDI）應用程序能夠包含子窗體那些子窗體由MDI父窗體管理但是如果沒有MDI的能力你怎樣實現包含嵌套窗體？例如一個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

VB.net2008精彩實例，窗體應用技巧

本篇文章的主要開發環境是Visual Studio Visual Studio系列產品一直以來都提供了強大的控件功能然而我們利用這些控件可以編寫出功能強大的應用程序本文主要利用微軟的最開發工具為大家展示窗體特效的應用方法為大家介紹創建炫酷的透明化窗體以及浮動型窗體的一些技巧很適開發工具的初學者具有一定的實用價值

打開 Visual Studio 在文件 (File) 菜單上單擊新建項目 (New Project) 在新建項目 (New Project) 對話框的模板 (Templates) 窗格中單擊 Windows 應用程序(Windows Application) 單擊確定 (OK)

窗體應用技巧一創建浮動窗體

創建新工程后選擇Form 窗體添加Timer 和Timer 控件為窗體選擇一個好看的背景當然你也可以使用系統默認的背景

進入代碼編輯器輸入代碼

Public Class Form ????Inherits System Windows Forms Form??Private Sub Form _Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Load????????Dim pos As Point = New Point( ) 設置窗體初始位置????????Me DesktopLocation = pos????????Timer Interval = 設置Timer的值????????Timer Enabled = True????????Timer Interval = ????????Timer Enabled = False????End Sub??? 進入Timer _Tick事件??? ?Private Sub Timer _Tick(ByVal sender As System Object ByVal e As System EventArgs) Handles Timer Tick????????Dim pos As Point = New Point(Me DesktopLocation X + Me DesktopLocation Y + ) 窗體左上方橫坐標的timer 加????????If pos X Or pos Y Then????????????Me DesktopLocation = pos????????Else????????????Timer Enabled = False????????????Timer Enabled = True????????End If????End Sub??? 進入Timer _Tick事件

Private Sub Timer _Tick(ByVal sender As System Object ByVal e As System EventArgs) Handles Timer Tick????????Dim pos As Point = New Point(Me DesktopLocation X Me DesktopLocation Y ) 窗體的左上方橫坐標隨著timer 減一????????If pos X Or pos Y Then????????????Me DesktopLocation = pos????????Else????????????Timer Enabled = True????????????Timer Enabled = False????????End If????End Sub??? 創建完成后我們來運行程序測試一下測試成功程序在屏幕中不斷地來回走動了

窗體應用技巧二創建透明的窗體

創建新工程后選擇Form 窗體添加Label TrackBar Timer 控件為了突出效果為窗體選擇一個好看的背景

相關的屬性設置如下 ??? TrackBar Value屬性:??? TickFrequency: 屬性:??? Maximum屬性: ??? ??? ??? Label Text屬性: 選擇窗體的透明度:??? Timer Interval屬性:

進入代碼編輯器輸入代碼

首先進行聲明 ??? ?Public Class Form ????Inherits System Windows Forms Form????Dim tps As IntegerDim bol As Boolean??? 進入TrackBar _Scroll事件? ?Private Sub TrackBar _Scroll(ByVal sender As Object ByVal e As System EventArgs) Handles TrackBar Scroll????????Me Opacity = TrackBar Value / ????????Label Text = 窗體透明度 CStr(Me Opacity * ) % End Sub??? 進入Timer _Tick事件

Private Sub Timer _Tick(ByVal sender As Object ByVal e As System EventArgs) Handles Timer Tick????????If bol = False Then????????????tps = tps + ????????????Me Opacity = tps / ????????????If Me Opacity = Then????????????????Timer Enabled = False????????????????bol = True????????????End If????????Else????????????tps = tps ????????????Me Opacity = tps / ????????????If Me Opacity = Then????????????????Timer Enabled = False????????????????bol = False????????????End If????????End If????End Sub??? 進入Form _Load事件

Private Sub Form _Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Load????????Timer Enabled = TrueEnd Sub??? 進入Form _Closing事件? ?Private Sub Form _Closing(ByVal sender As Object ByVal e As System ComponentModel CancelEventArgs) Handles MyBase Closing????????Timer Enabled = True????????If MsgBox( 你確實要關閉窗體嗎？ MsgBoxStyle OkCancel) = MsgBoxResult Ok Then????????????e Cancel = False????????Else????????????Timer Enabled = False????????????Me Opacity = ????????????tps = ????????????bol = True????????????e Cancel = True????????End IfEnd Sub??? 創建完成后我們來運行程序測試一下測試成功程序窗體是不是變得透明了通過調節滾動條我們甚至可以使得窗體消失達到完全隱形的目的這是不是很神奇呢？

lishixinzhi/Article/program/net/201311/11580

當前標題：vb.net技巧 vbnet left怎么用
文章鏈接：http://www.kartarina.com/article44/docspee.html

成都網站建設公司_創新互聯，為您提供網站收錄、域名注冊、網站營銷、搜索引擎優化、商城網站、企業網站制作