这里有个C#的网上OA的代码，可以参考一下：
索县ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为创新互联的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：028-86922220（备注：SSL证书合作）期待与您的合作！
第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，应该能看懂吧。
把按钮的Enable属性改为False。
用代码：按钮名.Enable=False。
用API：EnableWindow。
1、VB是一种可视化的面向对象的程序设计语言，Enabled是VB中控件的一种属性。
2、Enabled属性有两种值True和False,分别代表真和假。当一个控件的Enabled属性值为真时代表该控件可以用，当控件的Enabled属性为False时代表该控件不可用（图形会变度为灰色且不可以选中）。
扩展资料
vb.net 特性：
1、vb.net 完全集成到 Visual Studio 集成开发环境中，在这种集成开发环境与 VB 在若干方面有差异。主要体现在窗体的布局以及菜单等方面都有所不同。
2、vb.net 项目与 VB 不同。它使用基于文件夹的模型，所有项目均放置在项目文件夹层次结构中。
3、vb.net 中使用ado.net来访问数据库，ado.net是.netFramework的一部分。在 vb.net 中实现数据访问的方法主要有两种。
//函数层
VB支持局部Static变量
C#不支持
VB支持数组的最后一唯大小可变
C#的数组大小不能改变
VB的Try Catch语句支持Exit Try直接进入Finally
C#无类似语句
VB的Catch可以带When子句 使用 NET的异常filter功能有选择的进行捕获
C#完全不支持这一功能
VB可以使用传统的On Error方法 非结构化地处理异常C#仅支持结构化
C#支持使用checked语句暂时打开或关闭整数溢出检查
VB仅支持整个项目级别处理
VB支持使用函数名作为返回变量 也支持Return
C#只支持Return
VB的Try Using For For Each等语句支持使用前边定义的变量
C#的对应语句只能在语句开始处定义
C#可以支持unsafe语法有限地支持指针和stack数据的访问
VB不支持
C#支持yield return语法的迭代器生成
VB不支持
C#支持delegate语句就地生成支持closure的匿名方法
VB不支持
C#支持在委托与方法结合的过程中使用协变和反边规则
VB则只能使用完全匹配规则
VB和C#的循环和分支有若干次要差别
C#支持nullable类型的运算符跨类型支持
VB需要手工完成同样功能
VB支持用实例访问类的静态成员
C#只支持类明访问
VB支持按照非虚函数的规则 调用自身类型定义的一个虚函数
C#不支持这一功能
类库层
VB有一个非常好用Microsoft VisualBasic dll 实现了许多帮助函数 Application Framework应用程序框架 My命名空间等C#只能望眼欲穿了……
C#以out/ref或者大小写区分不同函数 这就是不符合CLS的
VB的每个特性几乎都是CLS兼容的（即使是那些C#不支持的） 在VB中使用不会从根本上影响到与C#的交互
lishixinzhi/Article/program/net/201311/15508
用到再学也不迟，平时最常用的就是system.windows.forms,system.io,system.data,system.xml等。恐怕没有人对每个类都了解吧，统计总数也没什么意义。
给你一段我曾经写的代码，主要是生成TreeView的节点！有什么不懂的地方你就提！
Public Sub InitializeTreeView(ByVal strvXL As TreeView, ByVal vrsRecordTwo As DataSet)
Dim treBaseNodeOne As TreeNode
Dim treBaseNodeTwo As TreeNode
Dim strDWDM As String
m_rsRecordTwo = g_clsSybase.SelectSC_PD_SBCSB1()
'查找供电局信息
g_clsSybase.SelectRS_ZZJG_ZZJGDMB(m_rsRecordOne)
'添加根节点
Do While m_rsRecordOne.Read
strDWDM = m_rsRecordOne.GetString(0) '获取单位代码
treBaseNodeOne = New TreeNode
treBaseNodeOne.Text = m_rsRecordOne.GetString(1).Trim() '获取单位名称
treBaseNodeOne.Name = m_rsRecordOne.GetString(1)
treBaseNodeOne.Tag = ""
strvXL.Nodes.Add(treBaseNodeOne)
'添加树结构第二层
Dim drsTwo() As DataRow
drsTwo = m_rsRecordTwo.Tables(0).Select("SSDW='" strDWDM "' and SC__XLBM is null")
For Each dr As DataRow In drsTwo
treBaseNodeTwo = New TreeNode
treBaseNodeTwo.Text = dr.Item("XLMC").ToString.Trim
treBaseNodeTwo.Name = dr.Item("XLMC")
treBaseNodeTwo.Tag = dr.Item("XLBM")
treBaseNodeOne.Nodes.Add(treBaseNodeTwo)
Next
Loop
m_rsRecordOne.Close()
End Sub
原因：名字错误，需要先把控件画好，并zd命名完再写代码。解决方法：
1．首先，用Inputbox在VB编程软件中输入一个数字。
2．然后进入选择案例判断语句的框架。
3．然后输入第一个分支的语句。
4．然后输入第二个语句判断否定条件权利，可以用Else代替。
5．最后，运行测试，如下图所示，就完成了。
扩展资料：
注意事项：
Vb．net特点：
1．VB。Net完全集成到VisualStudio集成开发环境中，这与VB有几个方面的不同。主要体现在布局和菜单的形式等方面有所不同。
2．VB。Net项目不同于VB。它使用基于文件夹的模型，其中所有项目都放在项目文件夹层次结构中。
3．net使用ado．net，它是。net的一部分。NetFramework，以访问数据库。在vb．net中有两种主要的数据访问方法。