搞了个曲线控件，GDI+绘制的

2018-11-12 11:18:26 6.3k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

WPF中GDI+图形图像的绘制：（一）绘制文本——动态设置字体、大小、颜色 GDI+（Graphics Device Interface Plus图形设备接口加）是.NET框架的重要组成部分，负责在屏幕和打印机上绘制图形图像和显示信息。GDI+不但在功能上比GDI 要强大很多，而且在代码编写方面也更简单，因此很快成为了Windows图形图像程序开发的首选。从程序设计的角度看，GDI包括两部分：GDI对象和GDI函数。GDI对象定义了GDI函数使用的工具和环境变量；而G... 阅读详情

Private Sub MQ按钮A1_单击事件(sender As Object, e As EventArgs) Handles MQ按钮A1.单击事件

                Dim list_to_p As New List(Of PointF)



                曲线.粗细 = 1

                曲线.质量 = Drawing2D.SmoothingMode.HighQuality

                曲线.颜色 = Color.Black



                跟随线.粗细 = 2

                跟随线.颜色 = Color.Red



                最小值曲线.粗细 = 2

                最小值曲线.颜色 = Color.Blue

                最小值曲线.样式 = Drawing2D.DashStyle.DashDotDot



                最大值曲线.粗细 = 2

                最大值曲线.颜色 = Color.Green

                最小值曲线.样式 = Drawing2D.DashStyle.DashDotDot





                平均值曲线.粗细 = 2

                平均值曲线.颜色 = Color.OrangeRed

                平均值曲线.样式 = Drawing2D.DashStyle.DashDotDot



                曲线.指示区域 = New 曲线指示区域 With {.渐变色1 = Color.FromArgb(50, 0, 0, 0)}



                曲线控件2.曲线集合.Clear()

                曲线.点集合.Clear()



                曲线控件2.曲线集合.Add(曲线)

                曲线控件2.曲线集合.Add(跟随线)

                曲线控件2.曲线集合.Add(最小值曲线)

                曲线控件2.曲线集合.Add(最大值曲线)

                曲线控件2.曲线集合.Add(平均值曲线)

                Dim p As PointF

                For a As Integer = 0 To 100

                        p = New PointF(a, Rnd() * 100 - 25)

                        list_to_p.Add(p)

                        曲线.点集合.Add(p)

                        跟随线.点集合.Add(p)



                        '最小点

                        p = MQdll.辅助类.计算.最小值(list_to_p, MQdll.辅助类.计算.点比较目标.点的Y)

                        最小值曲线.点集合.Add(p)

                        p = MQdll.辅助类.计算.最大值(list_to_p, MQdll.辅助类.计算.点比较目标.点的Y)

                        最大值曲线.点集合.Add(p)

                        p = New PointF(0, MQdll.辅助类.计算.平均值(list_to_p， MQdll.辅助类.计算.点比较目标.点的Y))

                        平均值曲线.点集合.Add(p)

                        Threading.Thread.Sleep(100)

                        曲线控件2.重置()

                        曲线控件2.绘制线条()

                        曲线控件2.Refresh()

                Next



        End Sub