vb.net代码分层 vbnet foreach

如何将一个VB.NET类分解成多个文件

　今天，随着应用软件的复杂化，开发者经常需要处理一些很长的类。一种更易于管理这些类的方法就是，将这些类分成多个文件。Partial是VB.NET新引进的一个关键字，它允许您将类分成多个物理源文件。您也可以使用Partial关键字用多个文件来定义一个类。 　一般大型项目都有很多开发者，这些开发者可能会在同一时间对同一个类进行操作，这时候将一个类分解成多个源文件就更利于开发者同时对同一个类进行操作，或者当这些类定义得太长的时候，将它分解成多个文件就会更易于处理。 　您需要使用Partial关键字，这个关键字的作用就是告诉VB编译器在创建类之前去收集类的所有分块。如果您使用了多个文件，您并不需要在类的每一个地方都使用这个关键字——只要在一个地方用到就可以了。然而，同一个类的所有块都必须定义在同一个命名空间中。 　编译器将类看作是所有部分声明的集合。每个部分定义的每个修改者都可以应用完整的类。 注意：如果您使用的类是从其它类继承而来的，或者是实现了某个接口，那么只要在类的某一部分使用Inherits或者Implements关键字就可以了。

相关问答

Q1: vb.net控件treeview从数据库获得数据分层显示

说实话一般不是vb.net代码分层你这样存储的，一般是用一个字段存储ID号，然后用另一个字段存储上级单位的ID号，然后用递归函数生成TreeView。建议你增加一个字段，然后将编号解析出的上级单位存储在里面。以下是vb.net代码分层我的一个程序用的递归函数vb.net代码分层：

表名是unit，其中包含vb.net代码分层了单位名称unit_name,编号unit_id,Unit_upper就是上级单位的id号。

调用方式是 addtree(ds1, TreeView1.Nodes, 0)，其中ds1是一个DataSet，对应单位的表，treeview1是控件名称，0是固定值，与表中根节点部门的Unit_upper一致(这个单位没有上级)。

Public Function addtree(ByVal ds As DataSet, ByVal treename As TreeNodeCollection, ByVal x1 As Integer) As Boolean

Dim dt As DataTable = ds.Tables("unit")

Dim dm As BindingManagerBase = Me.BindingContext(ds, "unit")

Dim dr As DataRow() = dt.Select("unit_upper=" x1.ToString)

Dim dr1 As DataRow

Dim nd As TreeNode

Dim nd1 As TreeNode

Dim x2 As Integer

If dr.GetLength(0) 0 Then

For Each dr1 In dr

nd = treename.Add(dr1("unit_name"))

nd.Tag = (dr1("unit_id"))

x2 = treename.IndexOf(nd)

addtree(ds, treename.Item(x2).Nodes, dr1("unit_id"))

Next

End If

Return True

End Function

Q2: vb.net 怎么分层

这里有个C#的网上OA的代码，可以参考一下：

第10章（\C10）

示例描述：本章实现了办公自动化系统，通过该系统，公司不同角色的员工可以通过网路完成日常的办公，包括撰写报告、审阅公文等。另外，系统还将实现一个系统管理员角色，对整个系统进行动态的维护。

\MyOA\Affix 网络办公系统用户上传附件目录

\MyOA\App_Code\BusinessLogicHelper 网络办公系统业务逻辑接口层，包括文件：

\FileHelper.cs 公文接口类

\ValidateUtility.cs 数据验证功能类

\MyOA\App_Code\BusinessLogicLayer 网络办公系统业务逻辑层，包括以下文件：

\Department.cs 部门类

\File.cs 公文类

\FileStatus.cs 公文状态类

\Plan.cs 工作计划类

\Role.cs 用户角色权限类

\User.cs 用户类

\MyOA\App_Code\CommonComponent 网络办公系统通用组件层，包括文件：

\Encrypt.cs 字符串加密类

\EventsLog.cs 系统日志类

\Tree.cs 权限树类

\MyOA\App_Code\DataAccessHelper 网络办公系统数据访问接口层，包括文件：

\SQLString.cs 构造SQL语句的通用类

\GetSafeData.cs 安全获取数据类

\MyOA\App_Code\DataAccessLayer 网络办公数据访问层，包括文件：

\Database.cs 数据访问类

\MyOA\App_Code\UserControls 网络办公用户控件，包括文件：

\LeftTree.ascx 权限树菜单控件

\MyOA\DB\MyOA_CreateTable.sql 网络办公数据库创建脚本

\MyOA\DB\MyOA_InitData.sql 网络办公数据库数据初始化脚本

\MyOA\Images\ 网络办公系统图片文件夹

\MyOA\Styles\Styel.css 网络办公系统样式表文件

\MyOA\Default.aspx 系统首页

\MyOA\FileAdd.aspx 添加公文页面

\MyOA\FileDetail.aspx 查看公文详细信息页面

\MyOA\FileList.aspx 浏览、查询公文页面

\MyOA\Login.aspx 登录页面

\MyOA\LogView.aspx 日志管理页面

\MyOA\PlanList.aspx 工作计划管理页面

\MyOA\RoleManage.aspx 权限管理页面

\MyOA\UserAdd.aspx 添加用户页面

\MyOA\UserList.aspx 浏览、查询用户页面

\MyOA\UserResetPwd.aspx 用户修改密码页面

\MyOA\UserUpdate.aspx 修改用户信息页面

虽然不是VB，不过都是.net，应该能看懂吧。

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