在vb.net環(huán)境下圖像處理，用什么建立3D

首先，還是談?wù)剤D像像素時(shí)數(shù)據(jù)獲取方面吧，.net中的圖像相關(guān)類基本上都是基于GDI+的，因此，圖像數(shù)據(jù)的獲取其實(shí)也是調(diào)用GDI+的一些函數(shù)。這個(gè)函數(shù)就是LockBits，在vb.net中彩色圖像數(shù)據(jù)的快速獲取 一文中，我們是調(diào)用了Marshal.Copy把LockBits鎖定的內(nèi)存數(shù)據(jù)拷貝到數(shù)據(jù)中，然后對(duì)數(shù)組中的值進(jìn)行處理。這樣做主要的原因是VB.NET不好直接訪問(wèn)內(nèi)存（Marshal.ReadByte之類的函數(shù)不適合用于大型的循環(huán)中)。那么，這就造成了2個(gè)不好的事情，第一：在同一時(shí)間需要2倍于圖像數(shù)據(jù)量的內(nèi)存，第二：內(nèi)存數(shù)據(jù)拷貝到數(shù)據(jù)，以及處理后再把數(shù)組的數(shù)據(jù)拷貝會(huì)內(nèi)存中都是會(huì)減低速度的。作為一種改進(jìn)，我們應(yīng)該充分利用LockBits的功能。LockBits中的LockMode中有一種模式為ImageLockMode.UserInputBuffer，該模式下需要用戶先申請(qǐng)內(nèi)存，然后在把圖像數(shù)據(jù)按照相關(guān)格式填充如這個(gè)內(nèi)存中。這樣，就可以先定義個(gè)數(shù)組，然后把圖像數(shù)據(jù)填充到這個(gè)數(shù)組中，就避免了來(lái)回拷貝的耗時(shí)了，簡(jiǎn)單示例代碼如下：

創(chuàng)新互聯(lián)公司于2013年成立，公司以成都做網(wǎng)站、成都網(wǎng)站制作、系統(tǒng)開(kāi)發(fā)、網(wǎng)絡(luò)推廣、文化傳媒、企業(yè)宣傳、平面廣告設(shè)計(jì)等為主要業(yè)務(wù)，適用行業(yè)近百種。服務(wù)企業(yè)客戶上千余家，涉及國(guó)內(nèi)多個(gè)省份客戶。擁有多年網(wǎng)站建設(shè)開(kāi)發(fā)經(jīng)驗(yàn)。為企業(yè)提供專業(yè)的網(wǎng)站建設(shè)、創(chuàng)意設(shè)計(jì)、宣傳推廣等服務(wù)。 通過(guò)專業(yè)的設(shè)計(jì)、獨(dú)特的風(fēng)格，為不同客戶提供各種風(fēng)格的特色服務(wù)。

Dim BmpData As New BitmapData

Stride = ((Bmp.Width * 3 + 3) And HFFFFFFFC)

Dim PixleValue(Stride * Bmp.Height) As Byte

Dim Hanlde As GCHandle = GCHandle.Alloc(PixleValue, GCHandleType.Pinned)

BmpData.Scan0 = Hanlde.AddrOfPinnedObject()

VB.net如何動(dòng)態(tài)獲取菜單欄中的菜單名并用樹(shù)型表示

添加：（先在加一個(gè)contextMenu,再它的添加子菜單的click事件編程）

Try

’使TreeView可以被編輯

TreeView1.LabelEdit = True

‘判斷你是不是選定的是不可編輯的節(jié)點(diǎn)，我這里工種節(jié)點(diǎn)不可以被編輯，只有工種下級(jí)的

各個(gè)工種名稱可以被編輯

If Trim(TreeView1.SelectedNode.Text) = "工種" Then

‘添加節(jié)點(diǎn)

AddNode = New TreeNode("請(qǐng)輸入新工種名字")

TreeView1.SelectedNode.Nodes.Add(AddNode)

TreeView1.ExpandAll()

AddNode.BeginEdit()

TreeView1.LabelEdit = True

NodeAdded = True

End If

Catch err As Exception

MsgBox(err.ToString)

End Try

刪除與添加類似，只是如果你的節(jié)點(diǎn)名字從其他處（如數(shù)據(jù)庫(kù)）得來(lái)，那么你還需要更新數(shù)據(jù)庫(kù)

編輯：

Private Sub TreeView1_BeforeLabelEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.NodeLabelEditEventArgs) Handles TreeView1.BeforeLabelEdit

TreeView1.LabelEdit = True ‘使可以編輯

AddNode = TreeView1.SelectedNode

End Sub

Private Sub TreeView1_AfterLabelEdit(ByVal sender As Object, ByVal e As System.windows.Forms.NodeLabelEditEventArgs) Handles TreeView1.AfterLabelEdit

Try

‘此時(shí)你改完了節(jié)點(diǎn)名字

TreeView1.SelectedNode.EndEdit(True)

If e.Label Is Nothing Then

'do nothing

ElseIf e.Node.Text = "工種" Then ‘工種不能改

e.CancelEdit() = True

‘e.Node.Text ，e.Label.ToString 一個(gè)是改前的名字一個(gè)是該后的名字，具體哪個(gè)對(duì)

哪個(gè)請(qǐng)查MSDN

ElseIf Trim(e.Node.Text) "工種" And e.Node.Text e.Label.ToString Then

If MsgBox("此操作會(huì)導(dǎo)致當(dāng)前工種中的所有人員的工種都被更改，是否確定？", MsgBoxStyle.YesNo + MsgBoxStyle.Information, "警告") = MsgBoxResult.Yes Then

。。。。 ‘我的更改

MsgBox("更改成功！", MsgBoxStyle.OKOnly, "提示")

'Call InitTree() ‘有時(shí)要重新把treeview初始化一遍，視需求定

End If

End If

Catch err As Exception

MsgBox(err.ToString)

End Try

End Sub

其他：

擋treeview得到焦點(diǎn)時(shí)你可以使用ContextMenu，反之ContextMenu禁用

Private Sub TreeView1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TreeView1.GotFocus

TreeView1.ContextMenu = ContextMenu1

End Sub

Private Sub TreeView1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TreeView1.LostFocus

TreeView1.ContextMenu = Nothing

End Sub

注意：這里沒(méi)有在ContextMenu菜單添加“更改”項(xiàng)，而是直接更改：即左鍵單擊節(jié)點(diǎn)表示

選中，再單擊一下就可以編輯了，更改之后單擊他處就完成更改，和你在windows中更改文

件名字相似。

VB.net如何動(dòng)態(tài)創(chuàng)建ContextMenuStrip控件，并寫入三個(gè)菜單選項(xiàng)，每個(gè)選項(xiàng)菜

動(dòng)態(tài)生成的控件： Private?Sub?UserControl1_Load(sender?As?System.Object,?e?As?System.EventArgs)?Handles?MyBase.Load ????????????????Dim?myPicture?=?New?System.Windows.Forms.PictureBox() ????????????????Me.Panel3.Controls.Add(myPicture) ????????????????myPicture.Size?=?New?System.Drawing.Size(115,?160) ????????????????myPicture.TabStop?=?False ????????????????myPicture.Name?=?"p"? ????????????????myPicture.Cursor?=?Cursors.Hand ????????????????AddHandler?myPicture.Click,?AddressOf?mypic_Click?'添加事件 ????End?Sub ? 處理事件的過(guò)程： Private?Sub?mypic_Click()?'ByVal?id?As?String ????????Dim?bookInfo?As?New?BookInfo ????????bookInfo.Show() ????????Me.Parent.Enabled?=?Fals