可以使用onpaint事件進行重繪使combobox的是邊框四個直角變成弧形。這里需要用到gdi+繪制的知識和onpait事件。窗體和combobox設置自動重繪為true即可。你可以參考下gdi的圓角繪制的知識的。這里很容易做到的。希望能幫到你。有疑問繼續提問哈。
江陰ssl適用于網站、小程序/APP、API接口等需要進行數據傳輸應用場景,ssl證書未來市場廣闊!成為創新互聯的ssl證書銷售渠道,可以享受市場價格4-6折優惠!如果有意向歡迎電話聯系或者加微信:18982081108(備注:SSL證書合作)期待與您的合作!
如下所示:
Private?Sub?Type(ByVal?sender?As?Control,?ByVal?p_1?As?Integer,?ByVal?p_2?As?Double)
Dim?oPath?As?New?Drawing2D.GraphicsPath()
oPath.AddClosedCurve(New?Point()?{New?Point(0,?sender.Height?/?p_1),?New?Point(sender.Width?/?p_1,?0),?New?Point(sender.Width?-?sender.Width?/?p_1,?0),?New?Point(sender.Width,?sender.Height?/?p_1),?New?Point(sender.Width,?sender.Height?-?sender.Height?/?p_1),?New?Point(sender.Width?-?sender.Width?/?p_1,?sender.Height),?_
New?Point(sender.Width?/?p_1,?sender.Height),?New?Point(0,?sender.Height?-?sender.Height?/?p_1)},?CSng(p_2))
sender.Region?=?New?Region(oPath)
End?Sub
Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load
Type(Me,?20,?0.1)
End?Sub
記得VB6當中有Shape控件,但是VB.net里這個控件不存在了。
提個思路:使用Picture控件或Label控件,通過代碼在控件里繪圖想要的圖形,可以試試。
自己用PhotoShop之類的圖像處理軟件做一個圓角按鈕圖片,放到窗體上作為Image控件,然后用下面的代碼代替按鈕的代碼:
Private Sub Image1_Click()
'這里放入點擊圖片后要執行的代碼
End Sub
如果想更美觀一些,你可以另外再做一張鼠標懸停時的圖片,以及鼠標點擊時候的圖片,然后結合Image1_MouseMove事件和Image1_MouseDown事件,做出有動態效果的圖形按鈕來
設置按鈕的屬性Style為1,且將按鈕的屬性Picture選你想加載的圖片或設置按鈕的屬性BackColor的顏色,都可作出漂亮的按鈕.如要改變按鈕形狀則較復雜.可使用2個Shape控件和1個Label控件完成(仿3D效果),3控件的顏色設成一樣。如需加載圖片則Label控件改用PictureBox控件,具體代碼:
Private Sub Form_Load()
Shape2.Visible = False
End Sub
Private Sub Label1_Click()
Form2.Show
End Sub
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape2.Visible = True
End Sub
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape2.Visible = False
End Sub
用Circle 畫圓 圓弧 橢圓 都 具體參照面詳細說明 Circle(一000,一000),500,吧,-陸,-三 一000,一000,圓坐標 500,半徑 面別代表起始角,終止角,短軸比率 吧,詳細點,Circle都說遍 象畫圓、橢圓或弧 語 object.Circle [Step] (x, y), radius, [color, start, end, aspect] Circle 語象限定符部: 部 描述 object 選 象表達式其值應用于列表象object 省略具焦點窗體作object Step 選關鍵字 指定圓、橢圓或弧相于前 object CurrentX CurrentY 屬性提供坐標 (x, y) 必需 Single (單精度浮點數)圓、橢圓或弧坐標object ScaleMode 屬性決定使用度量單位 radius 必需Single (單精度浮點數)圓、橢圓或弧半徑 object ScaleMode 屬性決定使用度量單位 color 選Long (整型數)圓輪廓 RGB 顏色省略則使用 ForeColor 屬性值用 RGB 函數或 QBColor 函數指定顏色 start, end 選 Single (單精度浮點數)弧、或部圓或橢圓畫完start end 指定(弧度單位)弧起點終點位置其范圍 -二 pi 二 pi 起點缺省值0; 終點缺省值二 * pi aspect 選 Single (單精度浮點數)圓縱橫尺寸比缺省值 一.0何屏幕都產標準圓(非橢圓) 說明 想要填充圓使用圓或橢圓所屬象 FillColor FillStyle 屬性封閉圖形才能填充封閉圖形包括圓、橢圓、或扇形 畫部圓或橢圓 start 負Circle 畫半徑 start并角度處理; end 負Circle 畫半徑 end并角度處理Circle 總逆針()向繪圖 畫圓、橢圓或弧線段粗細取決于 DrawWidth 屬性值背景畫圓取決于 DrawMode DrawStyle 屬性值 畫角度 0 扇形要畫條半徑(向右畫水平線段)給 start 規定負值要給 0 .省略語間某參數能省略隔參數逗號您指定參數面逗號省略 Circle 執行CurrentX CurrentY 屬性參數設置點 能用 With匛nd With 語句塊 -------------------------------------------------------------------------------- Circle 示例 示例用Circle 窗體央畫許同圓要運行示例代碼放入窗體 General 部按 F5 并單擊窗體 Sub Form_Click () Dim CX, CY, Radius, Limit ' Declare variable. ScaleMode = 三 ' 像素單位 CX = ScaleWidth / 二 ' X 位置 CY = ScaleHeight / 二 ' Y 位置 If CX CY Then Limit = CY Else Limit = CX For Radius = 0 To Limit ' 半徑 Circle (CX, CY), Radius,RGB(Rnd * 二55, Rnd * 二55, Rnd * 二55) Next Radius End Sub -------------------------------------------------------------------------------
本文題目:vb.net圓角控件 winform圓形控件
標題來源:http://vcdvsql.cn/article4/hephoe.html
成都網站建設公司_創新互聯,為您提供網站建設、定制開發、網站內鏈、App設計、云服務器、網站改版
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯