博客园-水如烟http://www.cnblogs.com/LzmTW/                 顺其自然,水到渠成 LzmTW 文或代码皆是面向初学者.我是爱好者,也是初学者.那些"文章",只按自己理解写,我是不知术语名词的.所以只供参考,也仅供参考.zh-cnFri, 05 Dec 2008 16:15:04 GMTFri, 05 Dec 2008 16:15:04 GMT60.NET的变量在代码集中是不安全的http://www.cnblogs.com/LzmTW/archive/2007/11/20/965411.html水如烟(LzmTW)水如烟(LzmTW)Tue, 20 Nov 2007 03:39:00 GMThttp://www.cnblogs.com/LzmTW/archive/2007/11/20/965411.htmlhttp://www.cnblogs.com/LzmTW/comments/965411.htmlhttp://www.cnblogs.com/LzmTW/archive/2007/11/20/965411.html#Feedback17http://www.cnblogs.com/LzmTW/comments/commentRss/965411.htmlhttp://www.cnblogs.com/LzmTW/services/trackbacks/965411.html阅读全文

[新闻]Google操作系统已开始内部测试？
博客园首页 社区 新闻频道 小组 博问 网摘 闪存]]>一个创建快捷方式类http://www.cnblogs.com/LzmTW/archive/2007/02/08/644699.html水如烟(LzmTW)水如烟(LzmTW)Thu, 08 Feb 2007 04:24:00 GMThttp://www.cnblogs.com/LzmTW/archive/2007/02/08/644699.htmlhttp://www.cnblogs.com/LzmTW/comments/644699.htmlhttp://www.cnblogs.com/LzmTW/archive/2007/02/08/644699.html#Feedback0http://www.cnblogs.com/LzmTW/comments/commentRss/644699.htmlhttp://www.cnblogs.com/LzmTW/services/trackbacks/644699.html阅读全文

[新闻]Google阅读器界面升级 全新改版
博客园首页 社区 新闻频道 小组 博问 网摘 闪存]]>一个简单的CodeAccessPermission生成器http://www.cnblogs.com/LzmTW/archive/2007/02/07/643917.html水如烟(LzmTW)水如烟(LzmTW)Wed, 07 Feb 2007 10:38:00 GMThttp://www.cnblogs.com/LzmTW/archive/2007/02/07/643917.htmlhttp://www.cnblogs.com/LzmTW/comments/643917.htmlhttp://www.cnblogs.com/LzmTW/archive/2007/02/07/643917.html#Feedback0http://www.cnblogs.com/LzmTW/comments/commentRss/643917.htmlhttp://www.cnblogs.com/LzmTW/services/trackbacks/643917.html阅读全文

[新闻]微软官方下载：Windows Vista SP2 Beta测试版
博客园首页 社区 新闻频道 小组 博问 网摘 闪存]]>认识一下Attributehttp://www.cnblogs.com/LzmTW/archive/2007/02/05/641122.html水如烟(LzmTW)水如烟(LzmTW)Mon, 05 Feb 2007 12:27:00 GMThttp://www.cnblogs.com/LzmTW/archive/2007/02/05/641122.htmlhttp://www.cnblogs.com/LzmTW/comments/641122.htmlhttp://www.cnblogs.com/LzmTW/archive/2007/02/05/641122.html#Feedback0http://www.cnblogs.com/LzmTW/comments/commentRss/641122.htmlhttp://www.cnblogs.com/LzmTW/services/trackbacks/641122.htmlAuthor:水如烟

1、CustomAttribute何时实例化？仅当查询时。

Public Class Author
    Private gUser As String
    Private gCanRead As Boolean
    Public Property CanRead() As Boolean
        Get
            Return gCanRead
        End Get
        Set(ByVal value As Boolean)
            gCanRead = value
        End Set
    End Property

    Public Property User() As String
        Get
            Return gUser
        End Get
        Set(ByVal value As String)
            gUser = value
        End Set
    End Property
End Class

Public Module EnvironmentVars
    Public CurrentUser As New Author
End Module

<AttributeUsage(AttributeTargets.Method)> _
Public Class ReadPermissionAttribute
    Inherits Attribute
    Sub New()
        Console.WriteLine("Attribute .ctor AT {0}", Now)

        If EnvironmentVars.CurrentUser.CanRead Then
            Console.WriteLine("Please!")
        Else
            Console.WriteLine("Sorry!")
            Throw New Exception("Sorry!")
        End If
    End Sub

    Protected Overrides Sub Finalize()
        Console.WriteLine("Attribute Finalize AT {0}", Now)
    End Sub
End Class

Public Class ReadInformations

    Private Function GetDriversCount() As Integer
        Dim mCount As Integer = IO.DriveInfo.GetDrives.Length
        Return mCount
    End Function

    <ReadPermission()> _
    Public Function GetDriversLenth() As Integer
        Return GetDriversCount()
    End Function

End Class


Public Class Programs
    <MTAThread()> _
    Public Shared Sub Main()
        Run()
    End Sub

    Private Shared Sub Run()
        EnvironmentVars.CurrentUser.User = "LzmTW"
        Dim Read As New ReadInformations
        Dim mCount As Integer = Nothing


        EnvironmentVars.CurrentUser.CanRead = True
        Try
            mCount = Read.GetDriversLenth
        Catch ex As Exception
        End Try
        Console.WriteLine("Read Drivers: {0}", mCount)

        EnvironmentVars.CurrentUser.CanRead = False
        mCount = Nothing
        Try
            mCount = Read.GetDriversLenth
        Catch ex As Exception
        End Try
        Console.WriteLine("Read Drivers: {0}", mCount)

        Console.ReadLine()
    End Sub
End Class

结果是：

Read Drivers: 7
Read Drivers: 7

将

    <ReadPermission()> _
    Public Function GetDriversLenth() As Integer
        Return GetDriversCount()
    End Function

改为

 

    <ReadPermission()> _
    Public Function GetDriversLenth() As Integer
        Reflection.MethodBase.GetCurrentMethod.GetCustomAttributes(False)
        Return GetDriversCount()
    End Function

结果是：

Attribute .ctor AT 2007-2-5 17:48:16
Please!
Read Drivers: 7
Attribute .ctor AT 2007-2-5 17:48:16
Sorry!
Read Drivers: 0

2、CustomAttribute实例何时释放？仅当GC回收时。

    Private Shared Sub Run()
       '...

        GC.Collect()
        Console.ReadLine()
    End Sub

结果是：

Attribute .ctor AT 2007-2-5 17:53:41
Please!
Read Drivers: 7
Attribute .ctor AT 2007-2-5 17:53:42
Sorry!
Read Drivers: 0
Attribute Finalize AT 2007-2-5 17:53:42
Attribute Finalize AT 2007-2-5 17:53:42

3、引入CodeAccessSecurityAttribute呢？效果又不一样。简单的:

Imports System.Security
Imports System.Security.Permissions

Public Class Author
    Private gUser As String
    Private gCanRead As Boolean
    Public Property CanRead() As Boolean
        Get
            Return gCanRead
        End Get
        Set(ByVal value As Boolean)
            gCanRead = value
        End Set
    End Property

    Public Property User() As String
        Get
            Return gUser
        End Get
        Set(ByVal value As String)
            gUser = value
        End Set
    End Property
End Class

Public Module EnvironmentVars
    Public CurrentUser As New Author
End Module

<AttributeUsage(AttributeTargets.Method)> _
Public Class ReadPermissionAttribute
    Inherits CodeAccessSecurityAttribute

    Public Sub New(ByVal action As SecurityAction)
        MyBase.New(action)
    End Sub

    Public Overrides Function CreatePermission() As System.Security.IPermission
        If Not EnvironmentVars.CurrentUser.CanRead Then
            Throw New Exception
        End If
        Return Nothing
    End Function
End Class


Public Class ReadInformations

    Private Function GetDriversCount() As Integer
        Dim mCount As Integer = IO.DriveInfo.GetDrives.Length
        Return mCount
    End Function

    <ReadPermissionAttribute(SecurityAction.Deny)> _
    Public Function GetDriversLenth() As Integer
        Return GetDriversCount()
    End Function

End Class


Public Class Programs
    <MTAThread()> _
    Public Shared Sub Main()
        Run()
    End Sub

    Private Shared Sub Run()
        EnvironmentVars.CurrentUser.User = "LzmTW"
        Dim Read As New ReadInformations
        Dim mCount As Integer


        EnvironmentVars.CurrentUser.CanRead = True
        mCount = Nothing
        Try
            mCount = Read.GetDriversLenth
        Catch ex As Exception
        Finally
            Console.WriteLine("Read Drivers: {0}", mCount)
        End Try


        EnvironmentVars.CurrentUser.CanRead = False
        mCount = Nothing
        Try
            mCount = Read.GetDriversLenth
        Catch ex As Exception
        Finally
            Console.WriteLine("Read Drivers: {0}", mCount)
        End Try

        Console.ReadLine()
    End Sub
End Class

结果:

Read Drivers: 7
Read Drivers: 0



[新闻]微软发布PC Live单机游戏客户端
博客园首页 社区 新闻频道 小组 博问 网摘 闪存]]>HOW TO:端口打印(比较粗糙) http://www.cnblogs.com/LzmTW/archive/2007/02/05/640844.html水如烟(LzmTW)水如烟(LzmTW)Mon, 05 Feb 2007 08:26:00 GMThttp://www.cnblogs.com/LzmTW/archive/2007/02/05/640844.htmlhttp://www.cnblogs.com/LzmTW/comments/640844.htmlhttp://www.cnblogs.com/LzmTW/archive/2007/02/05/640844.html#Feedback1http://www.cnblogs.com/LzmTW/comments/commentRss/640844.htmlhttp://www.cnblogs.com/LzmTW/services/trackbacks/640844.html阅读全文

[新闻]微软发布PC Live单机游戏客户端
博客园首页 社区 新闻频道 小组 博问 网摘 闪存]]>标记法定义和创建数据库(四)http://www.cnblogs.com/LzmTW/archive/2007/01/30/634901.html水如烟(LzmTW)水如烟(LzmTW)Tue, 30 Jan 2007 08:53:00 GMThttp://www.cnblogs.com/LzmTW/archive/2007/01/30/634901.htmlhttp://www.cnblogs.com/LzmTW/comments/634901.htmlhttp://www.cnblogs.com/LzmTW/archive/2007/01/30/634901.html#Feedback0http://www.cnblogs.com/LzmTW/comments/commentRss/634901.htmlhttp://www.cnblogs.com/LzmTW/services/trackbacks/634901.html是谁搬过去新手区了,能否给个原因呢?  阅读全文

[新闻]Firefox遭“独家”恶意软件攻击
博客园首页 社区 新闻频道 小组 博问 网摘 闪存]]>标记法定义和创建数据库http://www.cnblogs.com/LzmTW/archive/2007/01/24/629410.html水如烟(LzmTW)水如烟(LzmTW)Wed, 24 Jan 2007 09:02:00 GMThttp://www.cnblogs.com/LzmTW/archive/2007/01/24/629410.htmlhttp://www.cnblogs.com/LzmTW/comments/629410.htmlhttp://www.cnblogs.com/LzmTW/archive/2007/01/24/629410.html#Feedback2http://www.cnblogs.com/LzmTW/comments/commentRss/629410.htmlhttp://www.cnblogs.com/LzmTW/services/trackbacks/629410.html
因为它信息丰富,甚至可以据此信息直接来读写数据库了.

  阅读全文

[新闻]Python 3.0正式发布
博客园首页 社区 新闻频道 小组 博问 网摘 闪存]]>Sql2005数据类型与Framework类型的对应关系http://www.cnblogs.com/LzmTW/archive/2007/01/21/626176.html水如烟(LzmTW)水如烟(LzmTW)Sun, 21 Jan 2007 09:16:00 GMThttp://www.cnblogs.com/LzmTW/archive/2007/01/21/626176.htmlhttp://www.cnblogs.com/LzmTW/comments/626176.htmlhttp://www.cnblogs.com/LzmTW/archive/2007/01/21/626176.html#Feedback0http://www.cnblogs.com/LzmTW/comments/commentRss/626176.htmlhttp://www.cnblogs.com/LzmTW/services/trackbacks/626176.html阅读全文

[新闻]JavaFX千呼万唤始出来
博客园首页 社区 新闻频道 小组 博问 网摘 闪存]]>HOW TO:重启程序(WinForm)http://www.cnblogs.com/LzmTW/archive/2006/12/21/599460.html水如烟(LzmTW)水如烟(LzmTW)Thu, 21 Dec 2006 09:02:00 GMThttp://www.cnblogs.com/LzmTW/archive/2006/12/21/599460.htmlhttp://www.cnblogs.com/LzmTW/comments/599460.htmlhttp://www.cnblogs.com/LzmTW/archive/2006/12/21/599460.html#Feedback0http://www.cnblogs.com/LzmTW/comments/commentRss/599460.htmlhttp://www.cnblogs.com/LzmTW/services/trackbacks/599460.htmlAuthor：水如烟  

Public Class RestartProgramService

    Private Shared gAppLocation As String

    Public Shared Sub Run()
        AddHandler AppDomain.CurrentDomain.ProcessExit, AddressOf AppDomain_ProcessExit
        gAppLocation = Reflection.Assembly.GetEntryAssembly.Location
        System.Diagnostics.Process.GetCurrentProcess.CloseMainWindow()
    End Sub

    Private Shared Sub AppDomain_ProcessExit(ByVal sender As Object, ByVal e As System.EventArgs)
        System.Diagnostics.Process.Start(gAppLocation)
    End Sub

End Class

可怜,我居然不知道已有Application.Restart这玩意儿.


[新闻]Moonlight: Linux 平台下的 Silverlight
博客园首页 社区 新闻频道 小组 博问 网摘 闪存]]>HOW TO:设置默认打印机http://www.cnblogs.com/LzmTW/archive/2006/12/21/599115.html水如烟(LzmTW)水如烟(LzmTW)Thu, 21 Dec 2006 04:30:00 GMThttp://www.cnblogs.com/LzmTW/archive/2006/12/21/599115.htmlhttp://www.cnblogs.com/LzmTW/comments/599115.htmlhttp://www.cnblogs.com/LzmTW/archive/2006/12/21/599115.html#Feedback0http://www.cnblogs.com/LzmTW/comments/commentRss/599115.htmlhttp://www.cnblogs.com/LzmTW/services/trackbacks/599115.htmlAuthor：水如烟  
需要引用System.Management空间再Imports System.Management
使用:

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For Each printer As String In PrinterService.GetPrinterNames(".")
            Console.WriteLine(printer)
        Next
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Console.WriteLine(PrinterService.SetDefaultPrinter(".", "EPSON LQ-1600KIII"))
    End Sub

 

Public Class PrinterService

    Public Shared Function GetPrinterNames(ByVal computerName As String) As String()
        Dim mResult(-1) As String

        Dim gManagementObject As New ManagementObject
        gManagementObject.Scope = New ManagementScope(String.Format("\\{0}\root\cimv2", computerName))
        Dim gSearcher As New ManagementObjectSearcher(String.Format("SELECT DeviceID FROM {0}", "Win32_Printer"))
        gSearcher.Scope = gManagementObject.Scope
        Try
            For Each mManagementObject As ManagementObject In gSearcher.Get()
                ReDim Preserve mResult(mResult.Length)
                mResult(mResult.Length - 1) = mManagementObject.Properties.Item("DeviceID").Value
            Next
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        Finally
            gSearcher.Dispose()
            gManagementObject.Dispose()
        End Try

        Return mResult
    End Function

    Public Shared Function SetDefaultPrinter(ByVal computerName As String, ByVal PrinterName As String) As Boolean
        Dim mResult As Boolean = False

        Dim gManagementObject As New ManagementObject
        gManagementObject.Scope = New ManagementScope(String.Format("\\{0}\root\cimv2", computerName))
        Dim gSearcher As New ManagementObjectSearcher(String.Format("SELECT DeviceID FROM {0}", "Win32_Printer"))
        gSearcher.Scope = gManagementObject.Scope
        Try
            For Each mManagementObject As ManagementObject In gSearcher.Get()
                If mManagementObject.Properties.Item("DeviceID").Value.ToString.Equals(PrinterName) Then
                    mManagementObject.InvokeMethod("SetDefaultPrinter", Nothing)
                    Exit For
                End If
            Next

            mResult = True
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        Finally
            gSearcher.Dispose()
            gManagementObject.Dispose()
        End Try

        Return mResult
    End Function
End Class


[新闻]Moonlight: Linux 平台下的 Silverlight
博客园首页 社区 新闻频道 小组 博问 网摘 闪存]]>HOW TO:避免“将COM对象与其基础RCW分开后不能再使用该对象”错误http://www.cnblogs.com/LzmTW/archive/2006/12/21/598916.html水如烟(LzmTW)水如烟(LzmTW)Thu, 21 Dec 2006 01:44:00 GMThttp://www.cnblogs.com/LzmTW/archive/2006/12/21/598916.htmlhttp://www.cnblogs.com/LzmTW/comments/598916.htmlhttp://www.cnblogs.com/LzmTW/archive/2006/12/21/598916.html#Feedback0http://www.cnblogs.com/LzmTW/comments/commentRss/598916.htmlhttp://www.cnblogs.com/LzmTW/services/trackbacks/598916.htmlAuthor：水如烟  

出现这个情形，是在重写了Finalize并在里面含有调用Com对象的代码，同时在销毁对象前没有显式释放Com对象。

解决的办法是，显式调用释放代码。

如:

Public Sub Quit()
 ...
End Sub

Protected Overridable Sub Dispose(ByVal disposing As Boolean)
    If Not Me.disposedValue Then
        If disposing Then

            If gApplicationComObject IsNot Nothing Then
                Me.Quit()
            End If

        End If

    End If
    Me.disposedValue = True
End Sub

Public Sub Dispose() Implements IDisposable.Dispose
    Dispose(True)
    GC.SuppressFinalize(Me)
End Sub

使用时：

一是

MyCom.Quit()

或是

Using MyCom

   ...

End Using

不知我的认识是否正确，仅供参考．



[新闻]Moonlight: Linux 平台下的 Silverlight
博客园首页 社区 新闻频道 小组 博问 网摘 闪存]]>HOW TO:控制是否允许用户退出ExcelApplication的Workbook http://www.cnblogs.com/LzmTW/archive/2006/12/21/598906.html水如烟(LzmTW)水如烟(LzmTW)Thu, 21 Dec 2006 01:39:00 GMThttp://www.cnblogs.com/LzmTW/archive/2006/12/21/598906.htmlhttp://www.cnblogs.com/LzmTW/comments/598906.htmlhttp://www.cnblogs.com/LzmTW/archive/2006/12/21/598906.html#Feedback3http://www.cnblogs.com/LzmTW/comments/commentRss/598906.htmlhttp://www.cnblogs.com/LzmTW/services/trackbacks/598906.htmlAuthor：水如烟  

程序中若打开了一个Workbook给用户直接操作，那么，用户有可能将Workbook关闭了甚至退出了整个ExcelApplicatoin。可以通过以下方法防止这种情形(这个问题留意的人较少，故发首页)：

Imports Microsoft.Office.Interop
Public Class Form1

    Private gWorkbookCanClose As Boolean = False

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ExcelApplication As New Excel.Application
        Dim Workbook As Excel.Workbook = ExcelApplication.Workbooks.Add

        AddHandler Workbook.BeforeClose, AddressOf OnWorkbookBeforeClose

        Dim Worksheet As Excel.Worksheet = CType(Workbook.Sheets.Add, Excel.Worksheet)
        With CType(Worksheet.Cells(1, 1), Excel.Range)
            .Interior.ColorIndex = 40
            .Value = "123"
        End With

        ExcelApplication.Visible = True
    End Sub

    Private Sub OnWorkbookBeforeClose(ByRef cancel As Boolean)
        cancel = Not gWorkbookCanClose
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        gWorkbookCanClose = Not gWorkbookCanClose
    End Sub

End Class

 



[新闻]Moonlight: Linux 平台下的 Silverlight
博客园首页 社区 新闻频道 小组 博问 网摘 闪存]]>树和自联表(五) http://www.cnblogs.com/LzmTW/archive/2006/11/11/557856.html水如烟(LzmTW)水如烟(LzmTW)Sat, 11 Nov 2006 12:27:00 GMThttp://www.cnblogs.com/LzmTW/archive/2006/11/11/557856.htmlhttp://www.cnblogs.com/LzmTW/comments/557856.htmlhttp://www.cnblogs.com/LzmTW/archive/2006/11/11/557856.html#Feedback2http://www.cnblogs.com/LzmTW/comments/commentRss/557856.htmlhttp://www.cnblogs.com/LzmTW/services/trackbacks/557856.html对于它们的处理，.NET没有专门的处理类。
控件类TreeNode，也没有直接跟自联表挂上钩。

所以，我也尝试一下写写这方面的代码。
如我以往所写的一样，仅提供一种方法，至于更好的方法，更好的效率，鉴于自己学识所限，不深究。

通常的，要做成泛型类才能通用。所以，若还是使用.Net FrameWork1.1的话，无法使用下面的类了。
  阅读全文

[新闻]印度软件外包企业秘密收购中国公司
博客园首页 社区 新闻频道 小组 博问 网摘 闪存]]>树和自联表(六) http://www.cnblogs.com/LzmTW/archive/2006/11/11/557855.html水如烟(LzmTW)水如烟(LzmTW)Sat, 11 Nov 2006 12:23:00 GMThttp://www.cnblogs.com/LzmTW/archive/2006/11/11/557855.htmlhttp://www.cnblogs.com/LzmTW/comments/557855.htmlhttp://www.cnblogs.com/LzmTW/archive/2006/11/11/557855.html#Feedback1http://www.cnblogs.com/LzmTW/comments/commentRss/557855.htmlhttp://www.cnblogs.com/LzmTW/services/trackbacks/557855.htmlAuthor：水如烟  

三种情形示例

第一个示例，树情形。取MainForm主菜单的数据。ToolStripMenuItem本身是一个树。

随便在一个Form上加一些菜单。我的如图：

结果是：

代码：

Public Class FormTree

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mCollection As New LzmTW.uSystem.uCollection.SinceLink.SinceLinkItemCollection(Of Integer, MenuItemInformation)
        mCollection.AppendFromBlankCodeNode(GetMenuNode(Me))

        Me.TreeView1.Nodes.Clear()
        Me.TreeView1.Nodes.Add(mCollection.Node.ConvertToTreeNode("Text", True))

        Me.DataGridView1.DataSource = mCollection.Node.ConvertToDataTable(True)
    End Sub

    Private Function GetMenuNode(ByVal form As Form) As LzmTW.uSystem.uCollection.Node(Of MenuItemInformation)
        If form.MainMenuStrip Is Nothing Then Return Nothing
        Dim mNode As New LzmTW.uSystem.uCollection.Node(Of MenuItemInformation)(New MenuItemInformation)
        mNode.Item.Name = "Root"

        For Each item As ToolStripMenuItem In form.MainMenuStrip.Items
            AppendNode(mNode, item)
        Next

        Return mNode
    End Function

    Private Sub AppendNode(ByVal node As LzmTW.uSystem.uCollection.Node(Of MenuItemInformation), ByVal menuItem As ToolStripMenuItem)
        Dim mCurrentNode As LzmTW.uSystem.uCollection.Node(Of MenuItemInformation) = Nothing
        mCurrentNode = node.Nodes.Add(New MenuItemInformation(menuItem))

        For Each item As ToolStripMenuItem In menuItem.DropDownItems
            AppendNode(mCurrentNode, item)
        Next

    End Sub
End Class

Public Class MenuItemInformation
    Inherits LzmTW.uSystem.uCollection.SinceLink.SinceLinkItemBase(Of Integer)

    Private gText As String
    Public Property Text() As String
        Get
            Return gText
        End Get
        Set(ByVal value As String)
            gText = value
        End Set
    End Property

    Sub New()
    End Sub

    Sub New(ByVal menuItem As ToolStripMenuItem)
        With menuItem
            Me.Name = .Name
            Me.Text = .Text
        End With
    End Sub

End Class

 

第二个示例，(Code,Name)情形。仍以行政区划数据为例。

代码：

Public Class Form1


    Public gRegionalDatas As DataTable '这是列为Code,Name的行政区划数据表

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim mCollection As New LzmTW.uSystem.uCollection.SinceLink.SinceLinkItemCollection(Of String, RegionalCodeItem)("00,00,00")

        For Each row As DataRow In gRegionalDatas.Rows
            With row
                mCollection.Add(.Item("Code").ToString, .Item("Name").ToString)
            End With
        Next

        Me.TreeView1.Nodes.Clear()
        Me.TreeView1.Nodes.Add(mCollection.Node.ConvertToTreeNode("Name", True))

        Me.DataGridView1.DataSource = mCollection.Node.ConvertToDataTable(True)
    End Sub

End Class

Public Class RegionalCodeItem
    Inherits LzmTW.uSystem.uCollection.SinceLink.SinceLinkItemBase(Of String)

    Sub New()
    End Sub

    Sub New(ByVal code As String, ByVal name As String)
        MyBase.New(code, name)
    End Sub

End Class

效果：

第三个示例，自联表数据情形。这里以树和自联表(四) 上的数据为例。

要使用本示例代码，需把以上数据存为一个Excel文件，文件名为Menus.xls，数据簿工作表名称为Menus。存它到程序运行目录上。

首先把数据读进一个DataTable里面。

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim cn As New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=menus.xls;HDR=Yes;")
        Dim cm As New Odbc.OdbcCommand("SELECT * FROM [Menus$]", cn)
        Dim ad As New Odbc.OdbcDataAdapter(cm)
        Dim mds As New DataSet("Menus")
        ad.Fill(mds, "Menu")
        mds.WriteXmlSchema("Menus.xsd")
        mds.WriteXml("menus.xml")
        Me.DataGridView1.DataSource = mds.Tables(0)
    End Sub

由于我没有预建一个DataTable，所以上面代码运行后它自动的将Integer类型作为Double类型来处理。因此，需把它转为Intege类型。在此，我将数据存为xml形式，同时输出Schema文件。

之后，打开Menus.xsd文件，将所有Double类型改为Integer类型，保存。

现在可以使用这些数据了：

 

<Serializable()> _
Public Class MenuItem
    Inherits LzmTW.uSystem.uCollection.SinceLink.SinceLinkItemBase(Of Integer)

    Private gText As String
    Private gDeclare As String
    Private gToolTipText As String
    Private gShortcut As Integer
    Private gClickAction As String
    Private gVisible As Boolean
    Private gEnabled As Boolean

    Public Property Text() As String
        Get
            Return gText
        End Get
        Set(ByVal value As String)
            gText = value
        End Set
    End Property

    Public Property [Declare]() As String
        Get
            Return gDeclare
        End Get
        Set(ByVal value As String)
            gDeclare = value
        End Set
    End Property

    Public Property ToolTipText() As String
        Get
            Return gToolTipText
        End Get
        Set(ByVal value As String)
            gToolTipText = value
        End Set
    End Property

    Public Property Shortcut() As Integer
        Get
            Return gShortcut
        End Get
        Set(ByVal value As Integer)
            gShortcut = value
        End Set
    End Property

    Public Property ClickAction() As String
        Get
            Return gClickAction
        End Get
        Set(ByVal value As String)
            gClickAction = value
        End Set
    End Property

    Public Property Visible() As Boolean
        Get
            Return gVisible
        End Get
        Set(ByVal value As Boolean)
            gVisible = value
        End Set
    End Property

    Public Property Enabled() As Boolean
        Get
            Return gEnabled
        End Get
        Set(ByVal value As Boolean)
            gEnabled = value
        End Set
    End Property
End Class

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ds As New DataSet
        ds.ReadXmlSchema("Menus.xsd")
        ds.ReadXml("Menus.xml")

        Dim mCol