甜橘子，专注成都网站制作网站设计与营销型网站建设与优化
QQ :532337155
电话：028-86922220
VB.net与VB不同。
网站建设哪家好，找创新互联！专注于网页设计、网站建设、微信开发、成都微信小程序、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了鹤壁免费建站欢迎大家使用！
VB.net已经有专门绘图的类。
可以定义笔刷然后用Drawing类中的方法绘制。
Private Sub DrawEllipse()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200,300))
myPen.Dispose()
formGraphics.Dispose()
End Sub
Private Sub DrawRectangle()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawRectangle(myPen, New Rectangle(0,0,200,300))
myPen.Dispose()
formGraphics.Dispose()
End Sub
在picturebox控件中使用画图得语句
Picture1.Line (x1,y1)-(x2,y2), QBColor(2)
QBColor(2)代表颜色，可以修改
经常炒股的人都知道要看股票K线。股市变化多端，要想找一些“规律”我们可以利用K线，这样可以更好的进行投资决策，获取收益。
给大家来好好分析一下K线，教伙伴们从哪里入手去分析它。
分享之前，先免费送给大家几个炒股神器，能帮你收集分析数据、估值、了解最新资讯等等，都是我常用的实用工具，建议收藏：炒股的九大神器免费领取（附分享码）
一、 股票K线是什么意思？
K线图被称作蜡烛图、日本线、阴阳线等，最常见的叫法是--K线，它本来是要用来表现米价每天的变化的，之后股票、期货、期权等证券市场都能运用到它。
由影线和实体组成的柱状线条叫k线。影线在实体上方的部分叫上影线,下方的部分叫下影线，实体分阳线和阴线。
Ps：影线代表的是当天交易的最高和最低价，实体表示的是当天的开盘价和收盘价。
其中红色、白色柱体或者黑框空心都可用来表示阳线，然而阴线通常用实体柱做代表，颜色一般为绿色、黑色或者蓝色，
除了以上情况，“十字线”被我们看到时，就可以认为一条线是实体部分改变后的形态
其实十字线很好理解，代表收盘价和开盘价一样
只要深入理解了K线，我们轻而易举可以发现买卖点（虽然股市没有办法预测，但K线指导意义是有的），对于新手来说也是最好操控的。
在这里，我要给大家提个醒，K线分析起来是比较难的，如果你刚开始炒股，K线也不了解，建议用一些辅助工具来帮你判断一只股票是否值得买。
比如说下面的诊股链接，输入你中意的股票代码，就能自动帮你估值、分析大盘形势等等，我刚开始炒股的时候就用这种方法来过渡，非常方便：【免费】测一测你的股票当前估值位置？
下面我就跟大家说说关于几个K线分析的小窍门儿，快速的让你能够知道一些简单的知识。
二、怎么用股票K线进行技术分析？
1、实体线为阴线
这个时候就是需要大家值得注意的是股票成交量，如果成交量不大的话，那就代表股价可能会短期下降；而成交量很大的话，那股价很有可能要长期下跌了。
2、实体线为阳线
实体线为阳线就说明股价上涨动力更足，至于是否是长期上涨，还是需要结合一些其他指标进行判断。
比如说大盘形式、行业前景、估值等等因素/指标，但是由于篇幅问题，不能展开细讲，大家可以点击下方链接了解：新手小白必备的股市基础知识大全
应答时间：2021-09-07，最新业务变化以文中链接内展示的数据为准，请点击查看
。net 其实还是很好绘制图形的
你可以看下 Graphics 类
Dim d As New Bitmap(Me.Width, Me.Height) ‘一个图片吧
Dim g As Graphics = Graphics.FromImage(d)’绘制 准备在这个图片是进行
然后 就是你绘制的东西了
线 就是 g.DrawLine()
圆 弧度 就用 g.DrawArc(Pens.Black, New Rectangle(0, 0, 400, 200), 0, 360)
复杂的就是 g.DrawBezier()
等 如果你用的是 VS的 编译 上面都有详细的参数说明
Dim d As New Bitmap(Me.Width, Me.Height)
Dim g As Graphics = Graphics.FromImage(d)
g.DrawArc(Pens.Black, New Rectangle(0, 0, 200, 200), 0, 360)
g.DrawLine(Pens.Red, New Point(0, 0), New Point(200, 200))
g.DrawLines(Pens.Green, New Point() {New Point(0, 0), New Point(50, 40), New Point(50, 80), New Point(90, 70), New Point(100, 400)})
g.DrawBezier(Pens.Yellow, New Point(0, 100), New Point(0, 0), New Point(200, 0）， New Point(200, 200))
g.Dispose()
Me.BackgroundImage = d
With TChart1.Series(0).asCandle
.AddCandle DateValue("2/11/97"), 120, 135, 112, 115
.AddCandle DateValue("3/11/97"), 115, 125, 102, 121
End With
或者
TChart1.Series(0).asCandle.AddCandle DateValue("2/11/97"), 120, 135, 112, 115
TChart1.Series(0).asCandle.AddCandle DateValue("2/12/97"), 115, 125, 102, 121