vb.net控件treeview從數據庫獲得數據分層顯示

說實話一般不是你這樣存儲的，一般是用一個字段存儲ID號，然后用另一個字段存儲上級單位的ID號，然后用遞歸函數生成TreeView。建議你增加一個字段，然后將編號解析出的上級單位存儲在里面。以下是我的一個程序用的遞歸函數：

創新互聯建站是一家以網絡技術公司，為中小企業提供網站維護、成都網站建設、成都做網站、網站備案、服務器租用、域名注冊、軟件開發、成都小程序開發等企業互聯網相關業務，是一家有著豐富的互聯網運營推廣經驗的科技公司，有著多年的網站建站經驗，致力于幫助中小企業在互聯網讓打出自已的品牌和口碑，讓企業在互聯網上打開一個面向全國乃至全球的業務窗口：建站服務熱線：18982081108

表名是unit，其中包含了單位名稱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

Vb.net怎么實現圖像的處理

這問題有點籠統，軟糖來說說把：

圖像處理由System.Drawing命名空間負責。

主要是Bitmap類和Graphics類。

Bitmap表示一個位圖，可以是BMP,JPG,PNG等文件。

裝載位圖

Dim?位圖?As?Bitmap?=?Bitmap.FromFile("C:\Image1.PNG")

Graphics表示一張畫紙，能夠進行繪制操作。

它可以被窗體、控件、位圖調用CreateGraphics()方法來創建。

然后調用Graphics.Draw開頭的一系列函數來繪制圖像和圖形，Fill開頭的填充圖形。

創建畫紙并繪制位圖

Dim?畫紙?As?Graphics?=?Me.CreateGraphics()

畫紙.DrawImage(位圖,?100,?100,?256,?256)

可以將上面三行放到Form1_Load中測試，把路徑改一下，

還可以把Me改為能在上面繪圖的控件的名稱。

更多內容請看MSDN的System.Drawing命名空間。

如滿意，請采納，謝謝。

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，應該能看懂吧。