双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

.net中C#怎样自定义不规则用户控件

2009-10-30 09:54:16 162 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

shdxs 墨衍会员 · AI 创作全网分发关注 + 加入社区

创建不规则窗体和控件2 这样，你就可以创建任何自定义形状的控件了。前面我们创建不规则窗体的时候用到了TransparencyKey属性，但是控件是没有该属性的，所以我们得找其他的方法来实现控件的不规则形状了。因此，你能用位图文件创建一个不规则的窗体，你还能用GraphicsPath类对象来像创建自定义形状的控件那样创建不规则的窗体。该函数运用Region类和GraphicsPath类实现了程序的主界面，函数中具体的数据可能会因图片大小等原因而有所不同，至于其他的消息响应函数读者可以参看附带的源码文件（Source.rar）。阅读详情

.net中C#怎样自定义不规则用户控件，具体的例子，代码能全完整的话，就好了

...全文

用C#.net轻松制作不规则窗体(附源码) 注意：如果监视器的颜色深度设置大于 24 位，则不管 TransparencyKey 属性是如何设置的，窗体的非透明部分都会产生显示问题。若要避免出现这种问题，请确保“显示”控制面板中的监视器颜色深度的设置小于 24 位。可以使用任意一种你喜欢的作图工具，制作一个有形状的位图，背景使用一种其他的颜色。以前，作不规则窗体涉及到API的调用和大量的编程，不是谁都能作的。本例中添加了一文本框，设置其背景为黄色，所以显示时也成了透明的。其他的就是看你自己的需要，来添加控件，实现自己想要实现的功能。阅读详情

shdxs

C# 111,129 成员 642,540 内容

+ 关注 + 加入社区

切换为时间正序

shdxs 2009-11-01

打赏
举报

谁能将下面这段VB的代码改成c#的，必定重谢
Public Class UserControl1
Inherits System.Windows.Forms.UserControl

#Region " Windows 窗体设计器生成的代码 "

Public Sub New()
MyBase.New()

'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()

'在 InitializeComponent() 调用之后添加任何初始化

'This call is required by the Windows Form Designer.

InitializeComponent()

'Add any initialization after the InitializeComponent() call

pointsCalculate(Me.Height, Me.Width, sideNum)
End Sub

'UserControl 重写 dispose 以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer

'注意: 以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改此过程。
'不要使用代码编辑器修改它。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
'
'UserControl1
'
Me.Name = "UserControl1"
Me.Size = New System.Drawing.Size(272, 224)

End Sub

#End Region
Private sideNum As Integer = 8 '定义初始化时的边数
Private myPoints() As PointF
Const Pi As Double = 3.1415926
<System.ComponentModel.Browsable(True)> Public Property side() As Integer
Get
Return sideNum
End Get
Set(ByVal Value As Integer)
If Value > 0 And sideNum <> Value Then
sideNum = Value
pointsCalculate(Me.Height, Me.Width, sideNum)

'每设定一次边数，需要重新计算顶点的坐标

Refresh()

'然后进行刷新

End If
End Set
End Property
Private Sub pointsCalculate(ByVal height As Integer, ByVal width As Integer, ByVal side As Integer)
Dim Angle As Double
Dim Slice As Double
Dim X1 As Integer, Y1 As Integer
Dim radius As Integer
Dim theta As Double
Dim n As Integer, i As Integer

'计算半径、中心和两个相邻顶点间的角度

Slice = 360 / sideNum
X1 = width \ 2
Y1 = height \ 2
If X1 > Y1 Then
radius = Y1 - 2
Else
radius = X1 - 2
End If

'计算绘制多边形每个顶点的坐标

ReDim myPoints(sideNum - 1)
Angle = 180.0
For i = 0 To sideNum - 1
theta = Angle * Pi / 180
myPoints(i).X = X1 + radius * (Math.Sin(theta))
myPoints(i).Y = Y1 + radius * (Math.Cos(theta))
Angle = Angle + Slice
Next i

'计算Region每个顶点的坐标
'Region的区域需要比多边形的面积大，否则多边形将是虚线的

Dim Points(sideNum - 1) As PointF
Angle = 180.0
radius += 1
For i = 0 To sideNum - 1
theta = Angle * Pi / 180
Points(i).X = X1 + radius * (Math.Sin(theta))
Points(i).Y = Y1 + radius * (Math.Cos(theta))
Angle = Angle + Slice
Next i
Dim myPath As New System.Drawing.Drawing2D.GraphicsPath
myPath.AddPolygon(myPoints)
Me.Region = New Region(myPath)
End Sub

'由于重新绘制控件时会自动调用Paint方法，所以需要添加符合本控件要求的处理方法，即重新绘制多边形

Private Sub PolyCtrl_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
Dim p As New Pen(Me.ForeColor)
e.Graphics.FillPolygon(New SolidBrush(Me.BackColor), myPoints)
e.Graphics.DrawPolygon(p, myPoints)
End Sub

'同时，在改变控件时也需要重新绘制多边形，所以需要重写Resize事件

Private Sub PolyCtrl_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
pointsCalculate(Me.Height, Me.Width, sideNum)
Refresh()
End Sub

Private Sub UserControl1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

shdxs 2009-10-30