VB.NET中，如何取得標(biāo)題欄的高度

有兩種方法：

我們提供的服務(wù)有：網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè)、微信公眾號(hào)開(kāi)發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、薊州ssl等。為上千家企事業(yè)單位解決了網(wǎng)站和推廣的問(wèn)題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的薊州網(wǎng)站制作公司

1.?Windows.Forms.SystemInformation.CaptionHeight

這個(gè)方法取的是系統(tǒng)參數(shù)，它表示的標(biāo)題欄的?藍(lán)條條部分的高度(不包括邊框)

2.?Me.ClientSize.Height?-?Me.Height

這種方法?獲得的是當(dāng)前窗體的標(biāo)題欄加上它的邊框的高度。

通常建議使用第2種方法。更準(zhǔn)確一些。

比如你的窗體是個(gè)沒(méi)有標(biāo)題欄的，用第一種方法返回值就?不?準(zhǔn)確了。

VB.net里面的工具欄怎么能自動(dòng)隱藏？

工具欄 一般都有自動(dòng)隱藏，在工具欄的左或者右上方 有個(gè)圖標(biāo)可以選擇隱藏的，我用的VS2010 反正在那里有設(shè)置的！

VB.NET菜單和狀態(tài)欄的內(nèi)容不見(jiàn)了

你是不是把類似

Me.Controls.Add(MenuStrip1)

Me.Controls.Add(StatusBar1)

這樣的語(yǔ)句弄沒(méi)了？放在initializeComponent方法里即可

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中怎么實(shí)現(xiàn)導(dǎo)航條?

可以用VB調(diào)用一些ASP.NET上現(xiàn)成的類庫(kù)啊，很多別人編寫(xiě)好了的，你拿來(lái)調(diào)用就OK了。

至于識(shí)別，無(wú)非就是一行代碼的事情了

怎樣在VB.net中用Tooltrip做出這種工具欄？

用樹(shù)結(jié)構(gòu)TreeView，添加圖標(biāo)就可以實(shí)現(xiàn)！

再添加一個(gè)ImageList 想添加什么圖標(biāo)就自行添加。

分享標(biāo)題：vb.net導(dǎo)航欄,vbnet導(dǎo)航欄
分享鏈接：http://vcdvsql.cn/article26/hsdscg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站維護(hù)、企業(yè)網(wǎng)站制作、軟件開(kāi)發(fā)、網(wǎng)站導(dǎo)航、用戶體驗(yàn)、網(wǎng)站改版

廣告

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