包含vb.neterr()的詞條

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

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

專注于為中小企業(yè)提供網站制作、網站建設服務,電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業(yè)西疇免費做網站提供優(yōu)質的服務。我們立足成都，凝聚了一批互聯網行業(yè)人才，有力地推動了上千家企業(yè)的穩(wěn)健成長，幫助中小企業(yè)通過網站建設實現規(guī)模擴充和轉變。

Try

’使TreeView可以被編輯

TreeView1.LabelEdit = True

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

各個工種名稱可以被編輯

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

‘添加節(jié)點

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

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é)點名字從其他處（如數據庫）得來，那么你還需要更新數據庫

編輯：

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

‘此時你改完了節(jié)點名字

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 一個是改前的名字一個是該后的名字，具體哪個對

哪個請查MSDN

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

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

。。。。 ‘我的更改

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

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

End If

End If

Catch err As Exception

MsgBox(err.ToString)

End Try

End Sub

其他：

擋treeview得到焦點時你可以使用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

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

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

件名字相似。

Err在vb的用途

Err 對象的屬性是由錯誤的生成者（Visual Basic、對象或程序員）設置的。

當發(fā)生運行時錯誤時，Err 對象的屬性由唯一地標識錯誤的信息以及可用于處理錯誤的信息填充。若要在代碼中生成運行時錯誤，使用 Raise 方法。

在錯誤處理例程中的 Exit Sub、Exit Function、Exit Property 或 Resume Next 語句執(zhí)行之后，Err 對象的屬性重置為零或零長度字符串 ("")。在錯誤處理例程以外，使用任何形式的 Resume 語句都不會重置 Err 對象的屬性。但可使用 Clear 方法顯式地重置 Err。

使用 Raise 方法而不是 Error 語句來給系統錯誤和類模塊生成運行時錯誤。是否要在其他代碼中使用 Raise 方法決定于您需要返回的信息的多少。

Err 對象是一個全局作用域的內部對象。因此，不需要在代碼中創(chuàng)建其實例。

示例

本示例在構建錯誤信息對話框時使用了 Err 對象的屬性。請注意，如果首先使用 Clear 方法，則使用 Raise 方法生成 Visual Basic 錯誤時，Visual Basic 的默認值將成為 Err 對象的屬性。

Dim Msg As String

' If an error occurs, construct an error message.

On Error Resume Next ' Defer error handling.

Err.Clear

Err.Raise(6) ' Generate an "Overflow" error.

' Check for error, then show message.

If Err.Number 0 Then

Msg = "Error # " Str(Err.Number) " was generated by " _

Err.Source ControlChars.CrLf Err.Description

MsgBox(Msg, MsgBoxStyle.Information, "Error")

End If

命名空間：Microsoft.VisualBasic

程序集：Microsoft Visual Basic .NET 運行庫（位于 Microsoft.VisualBasic.dll 中）

vb 中err的問題

On Error GoTo errorhandler

Dim sR As String, sPath As String

Set fld = fso.GetFolder(dirSource.Path)

sR = InputBox("請輸入新建文件夾的名稱：", "輸入對話框", "aaa")

If Len(Trim(sR)) 0 Then

sPath = IIf(Right(fld.Path, 1) = "\", fld.Path sR, fld.Path "\" sR)

Set fld = fso.CreateFolder(sPath)

Command1.Enabled = True

End If

Call RefDirControl

filename = fld.Path

exit sub ‘少了這句

errorhandler:

MsgBox Err.Description, vbOKOnly, "提示 "

當前標題：包含vb.neterr()的詞條
轉載注明：http://muchs.cn/article12/hcpodc.html

成都網站建設公司_創(chuàng)新互聯，為您提供搜索引擎優(yōu)化、域名注冊、網站排名、網站維護、外貿網站建設、Google

廣告

聲明：本網站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯