用VB.NET設(shè)計各種形狀的窗體界面二

結(jié)合上一節(jié)介紹的方法 通過Visual Basic Net的菜單設(shè)計器 按照圖 和圖 所示的菜單結(jié)構(gòu)設(shè)計菜單 　 圖 【MDI編程】項目的菜單結(jié)構(gòu)之一 　 圖 【MDI編程】項目的菜單結(jié)構(gòu)之二 在利用菜單設(shè)計器設(shè)計完菜單后 分別在窗體中雙擊 新建 退出 層疊顯示 橫行平鋪 縱向平鋪 和 排列圖標 菜單項 這樣Visual Basic Net會在Form vb文件中分別產(chǎn)生這些菜單項的Click事件對應(yīng)的處理代碼 設(shè)定Form 的 IsMdiContainer 屬性值為 True 這把Form 窗體定義為MDI窗體容器 這一步設(shè)置是后面編程的基礎(chǔ) 當設(shè)置此屬性值后 Form 的窗體也發(fā)生了改變 圖 是設(shè)置此屬性后的窗體模樣 　 圖 把Form 窗體設(shè)置為MDI窗體容器后的模樣 選中圖 中的 窗口 菜單項 并設(shè)置此菜單項的 MdiList 屬性值為 True 其作用是當程序運行后 如果新建了一個MDI窗體 就會在 窗口 菜單項后 自動加入一個以新建MDI窗體名稱命名的菜單項 如果新建了多個MDI窗體 則會在 窗口 菜單項后 會加入以這些MDI窗體名稱命名的菜單項 當MDI窗體被關(guān)閉 那些以此MDI窗體命名的菜單項也會自動刪除 具體可圖 所示 把Visua Basic Net的當前窗口切換到Form vb的代碼編輯窗口 并在定義Form 中組件的代碼區(qū)加入下列代碼 下列代碼是定義一個變量 此變量用以統(tǒng)計程序中新建MDI窗體的數(shù)量 Private iFormCount As Integer = 用下列代碼替換Form vb中的MenuItem 的Click事件對應(yīng)的處理代碼 MenuItem 即為圖 中的 新建 菜單項 下列代碼的作用是在新建一個MDI窗體 Private Sub MenuItem _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles MenuItem ClickDim frmTemp As Form = New Form ( ) 新建一個窗體frmTemp MdiParent = Me 為當前創(chuàng)建的窗體設(shè)置MDI父窗體frmTemp Text = MDI窗體 + iFormCount ToString ( )iFormCount = iFormCount + frmTemp Show ( ) 把此MDI窗體顯示出來End Sub 用下列代碼替換Form vb中的MenuItem 的Click事件對應(yīng)的處理代碼 MenuItem 即為圖 中的 退出 菜單項 下列代碼的作用是退出應(yīng)用程序 Private Sub MenuItem _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles MenuItem ClickApplication Exit ( ) 退出應(yīng)用程序End Sub 用下列代碼替換Form vb中的MenuItem 的Click事件對應(yīng)的處理代碼 MenuItem 即為圖 中的 層疊顯示 菜單項 下列代碼的作用是層疊排列窗體中的所有MDI窗體 Private Sub MenuItem _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles MenuItem ClickMe LayoutMdi ( MdiLayout Cascade ) 層疊排列窗體中的所有MDI窗體End Sub 用下列代碼替換Form vb中的MenuItem 的Click事件對應(yīng)的處理代碼 MenuItem 即為圖 中的 水平平鋪 菜單項 下列代碼的作用是水平平鋪窗體中的所有MDI窗體 Private Sub MenuItem _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles MenuItem ClickMe LayoutMdi ( MdiLayout TileHorizontal ) 水平平鋪窗體中的所有MDI窗體End Sub 用下列代碼替換Form vb中的MenuItem 的Click事件對應(yīng)的處理代碼 MenuItem 即為圖 中的 垂直平鋪 菜單項 下列代碼的作用是垂直平鋪窗體中的所有MDI窗體 Private Sub MenuItem _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles MenuItem ClickMe LayoutMdi ( MdiLayout TileVertical ) 垂直平鋪窗體中的所有MDI窗體End Sub 用下列代碼替換Form vb中的MenuItem 的Click事件對應(yīng)的處理代碼 MenuItem 即為圖 中的 排列圖標 菜單項 下列代碼的作用是窗體中的所有MDI窗體排列圖標 Private Sub MenuItem _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles MenuItem ClickMe LayoutMdi ( MdiLayout ArrangeIcons ) 窗體中的所有MDI窗體排列圖標End Sub至此【MDI編程】項目的全部工作就完成了 圖 圖 和圖 是程序運行后的界面 　 圖 【MDI編程】運行界面之一 　 圖 【MDI編程】運行界面之二 圖 【MDI編程】運行界面之三 此時我們注意到圖 所示的 窗口 菜單中增加許多子菜單 而在程序設(shè)計時 并沒有處理這些功能的代碼 這是由于第十一步中設(shè)置 窗口 菜單項的 MdiList 屬性值為 True 造成的 可見正確的設(shè)置組件的屬性值有時的確能夠代替煩雜的代碼編寫工作 五 總結(jié) 本文主要內(nèi)容有二個 其一是介紹的在Visual Basic Net定制不規(guī)則窗體的實現(xiàn)方法 在Visual Basic Net中創(chuàng)建不規(guī)則窗體主要使用的是Region類和GraphicsPath類 GraphicsPath主要是繪制窗體的形狀 Region主要是以GraphicsPath來構(gòu)建窗體 結(jié)合本文的實現(xiàn)思路和具體方法 我想對于其他形狀的窗體 在掌握GraphicsPath類提供的使用方法的前提下 加上對所要創(chuàng)建不規(guī)則窗體的規(guī)劃設(shè)計 用Visual Basic Net實現(xiàn)起來應(yīng)該不算很困難 本文的另外一個主要內(nèi)容就是介紹在Visual Basic Net編寫MDI應(yīng)用程序的基本過程 技巧和注意事項 通過本文的介紹可見Visual Basic Net的MDI編程并沒有什么復雜的地方 只需了解一些對MDI窗體處理的方法及其調(diào)用方式 當然更重要的是要了解并掌握某些組件的針對MDI的屬性及其設(shè)置方式 lishixinzhi/Article/program/net/201311/11698

站在用戶的角度思考問題，與客戶深入溝通，找到睢縣網(wǎng)站設(shè)計與睢縣網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗，讓設(shè)計與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個性化、用戶體驗好的作品，建站類型包括：成都網(wǎng)站制作、成都網(wǎng)站設(shè)計、外貿(mào)營銷網(wǎng)站建設(shè)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣、域名申請、網(wǎng)絡(luò)空間、企業(yè)郵箱。業(yè)務(wù)覆蓋睢縣地區(qū)。

vb.net中有沒有哪個控件可以自定義形狀（如圓形，多邊形）和顏色，如果有，希望你您給出代碼

記得VB6當中有Shape控件，但是VB.net里這個控件不存在了。

提個思路：使用Picture控件或Label控件，通過代碼在控件里繪圖想要的圖形，可以試試。

VB.NET Textbox Array 齒輪圖案控件怎么實現(xiàn)的？求大神幫忙 謝謝

那是后臺功能型的控件，自定義類，繼承即可實現(xiàn)，比如

新建一個類

Public Class Text1

Inherits Timer‘這里繼承Timer 控件

End Class

運行程序一次后在右邊工具欄左上方就可以看到我們自己建的類控件，拖動到窗體上就有了你說的效果

vb.net中如何實現(xiàn)vb中的shape功能

你用的是控件數(shù)組

光發(fā)了代碼不知道你用的是動態(tài)的還是靜態(tài)的數(shù)組

還有就是有沒有shape1(0)呢

動態(tài)的話你的用

load

shape1(i)

放到

for循環(huán)下面就可以了

vb.net怎樣改變picturebox控件的形狀

'我給你找到了，設(shè)置region屬性就可

Private?Sub?PictureBox1_DoubleClick(sender?As?System.Object,?e?As?System.EventArgs)?Handles?PictureBox1.DoubleClick

If?PictureBox1.Region?Is?Nothing?Then

Dim?path?As?New?System.Drawing.Drawing2D.GraphicsPath

path.AddEllipse(0,?0,?200,?200)

PictureBox1.Region?=?New?Region(path)

Else

PictureBox1.Region?=?Nothing

End?If

End?Sub

'這個雙擊圖片框使其變形，通過GraphicsPath對象可以作出各種形態(tài)來，比如可作出文字形狀

Dim?stringText?As?String?=?"我是誰"

Dim?family?As?New?FontFamily("Arial")

Dim?myfontStyle?As?Integer?=?CInt(FontStyle.Italic)

Dim?emSize?As?Integer?=?86

Dim?origin?As?New?Point(20,?20)

Dim?format?As?StringFormat?=?StringFormat.GenericDefault

path.AddString(stringText,?family,?myfontStyle,?emSize,?_

origin,?format)

PictureBox1.Region?=?New?Region(path)

vb.net中 如何改變button控件的形狀

vb.net中控件都是矩形的，如果一定要看起來是其他形狀的，只能用背景圖片，一般要三個背景圖片，正常時候、鼠標移上時候、按下時候的。分別在按鈕的四個事件：MouseHover MouseLeave MouseDown MouseUp的時候更換成相應(yīng)的背景圖片