[Extension Method][VB.NET]Filter Specific Classes in an Assembly Using an Extension Method
今天把之前的[C#][VB.NET]取得專案內所有表單名稱這篇程式給修了一下，順便把其概念提出成擴充方法，整理如下： ...
VB.NET
[VB.NET]Compare Two Directories for Different Files
這陣子回論壇問題時，試著使用交集的方式寫了比對檔案的函式，整理紀錄如下： ...
[VB.NET]VB 10.0 Implied Line Continuation
VB.NET是line-oriented語言，與C#不同的是，在撰寫VB.NET時，不需使用像是";“的終止符號。撰寫的指令幾乎都是一行寫完，若要換行，可使用串接字元「_」，明確告知系統程式碼有斷行。 ...
[Extension Method]Deep-Copy an Object Using an Extension Method
紀錄一下用序列化來做深層複製的擴充方法 ...
[Extension Method]Sort a 2D Array Using an Extension Method
整理一下回問題所寫的二維陣列排序擴充方法 ...
[VB.NET]Get the Executable Associated with a Document Using the FindExecutable API
FindExecutable API可用來取得開啟文件用的執行檔位置，像是Doc檔就用Word開啟、Pdf檔就用Adobe開啟，這道API就是可以找到開啟文件用的執行檔位置。 ...
[VB.NET]How to Build a User Control Test Container
前一篇[Visual Studio]使用者控制項測試容器(User Control Test Container)介紹了User Control Test Container的使用方式。雖然User Control Test Container很好用，但美中不足的是一定要開啟Visual Studio才能叫用。因此這篇介紹一下如何自己來做這樣的功能。 ...
[VB.NET]Reorder Nodes Under a TreeView or TreeNode
整理一下網友問題。據網友開的需求，希望將本來長成像下面這樣的節點： ...
[VB.NET]Get Leaf Nodes Under a TreeView or TreeNode
若要取得TreeView或TreeNode下的樹葉節點，我們可以先找出所有的節點後，再去挑出Nodes.Count為0的節點： ...
[VB.NET]Get All Nodes Under a TreeView or TreeNode
若要取得TreeView或TreeNode下的所有節點，可以透過遞迴的方式把所有節點給找出來。像是下面這樣： Private Function GetAllNodes(ByVal treeOrNode As Object) As TreeNode() If Not TypeOf treeOrNode Is TreeNode AndAlso Not TypeOf treeOrNode Is TreeView Then Throw New ArgumentException("Error param type!!") End If Dim nodes As New List(Of TreeNode) If TypeOf treeOrNode Is TreeNode Then nodes.Add(treeOrNode) End If For Each tn As TreeNode In treeOrNode.Nodes nodes.AddRange(GetAllNodes(tn)) Next Return nodes.ToArray End Function 使用上把TreeView或是TreeNode當作參數帶入即可，也可以整理成擴充方法使用： Imports System.Runtime.CompilerServices Public Module TreeViewExtension #Region "Private Method" Private Function GetAllTreeNodes(ByVal treeOrNode As Object) As TreeNode() If Not TypeOf treeOrNode Is TreeNode AndAlso Not TypeOf treeOrNode Is TreeView Then Throw New ArgumentException("Error param type!!") End If Dim nodes As New List(Of TreeNode) If TypeOf treeOrNode Is TreeNode Then nodes.Add(treeOrNode) End If For Each tn As TreeNode In treeOrNode.Nodes nodes.AddRange(GetAllTreeNodes(tn)) Next Return nodes.ToArray End Function #End Region #Region "Public Method" <Extension()> _ Public Function GetAllNodes(ByVal tree As TreeView) As TreeNode() Return GetAllTreeNodes(tree) End Function <Extension()> _ Public Function GetAllNodes(ByVal node As TreeNode) As TreeNode() Return GetAllTreeNodes(node) End Function #End Region End Module