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

千杯不醉8899 2018-11-12 11:18:26
加精

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
...全文
6151 33 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
33 条回复
切换为时间正序
请发表友善的回复…
发表回复
Jason1285 2019-07-07
  • 打赏
  • 举报
回复
牛!非常棒!!
weixin_37912117 2019-06-14
  • 打赏
  • 举报
回复
感觉不错,学习学习。
…默陌 2019-06-09
  • 打赏
  • 举报
回复
好高端的样子
  • 打赏
  • 举报
回复
谢谢,正需要
bg6roc 2019-06-05
  • 打赏
  • 举报
回复
238995看看
qq_45186201 2019-06-05
  • 打赏
  • 举报
回复
亲斤人报道!!!!!
zxz780515 2019-06-03
  • 打赏
  • 举报
回复
这个很不错,怎么弄?
sinat_34247491 2019-05-28
  • 打赏
  • 举报
回复
思路可以的。
唐 章 迪 2019-05-25
  • 打赏
  • 举报
回复
这是真的牛逼
AresTaran 2019-05-22
  • 打赏
  • 举报
回复
挺强的,膜拜大佬
мonster 2019-05-21
  • 打赏
  • 举报
回复
积分怎么来的啊。。。。
qq_40211262 2019-05-08
  • 打赏
  • 举报
回复
思密达六个字
qq_45006919 2019-05-02
  • 打赏
  • 举报
回复
非常非常厉害
  • 打赏
  • 举报
回复
👍👍👍很好啊!
mk_lucifer 2019-04-08
  • 打赏
  • 举报
回复
主线程sleep好评。。。
mk_lucifer 2019-04-08
  • 打赏
  • 举报
回复
易语言既视感。。。
Blankl0ve 2019-04-07
  • 打赏
  • 举报
回复
辛苦了学习一下
wx9049344 2019-03-13
  • 打赏
  • 举报
回复
感觉好复杂的样子!!
端木女王 2019-03-13
  • 打赏
  • 举报
回复
baidu_27549073 2019-03-11
  • 打赏
  • 举报
回复
中文命名好评
加载更多回复(13)

8,833

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术 组件/控件开发
社区管理员
  • 组件/控件开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧