|
发表于 2020-12-21 09:00:01
|
显示全部楼层
對呀!用LABEL控件可以代替....
還有...如果自己若要用圓等類似6.0中的控件.自己可以生成一個圓控件.方法就是在自定義控件中寫入繪圓的方法.
Private Bg As Color
Public Property BgColor() As Color
Get
Return Bg
End Get
Set(ByVal Value As Color)
Bg = Value
End Set
End Property
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
Dim Brush As SolidBrush = New SolidBrush(Color.Silver)
e.Graphics.FillEllipse(Brush, 0, 0, Width, Height)
e.Graphics.DrawEllipse(New Pen(Color.Black, 1), 0, 0, Width, Height)
End Sub
這只是一個繪圓的方法.只要在ONPAINT事件中改變函數,就可以自定義直線,圓弧等6.0中才有的控件. |
|