13518219792
拖一个PictureBox1控件 创建一个Paint事件。在事件中加入 Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint ' Create pens. Dim redPen As New Pen(Color.Red, 3) Dim greenPen As New Pen(Color.Green, 3) ' Create points that define curve. Dim point1 As New Point(50, 50) Dim point2 As New Point(100, 25) Dim point3 As New Point(200, 5) Dim point4 As New Point(250, 50) Dim point5 As New Point(300, 100) Dim point6 As New Point(350, 200) Dim point7 As New Point(250, 250) Dim curvePoints As Point() = {point1, point2, point3, point4, _ point5, point6, point7} ' Draw lines between original points to screen. e.Graphics.DrawLines(redPen, curvePoints) ' Draw curve to screen. e.Graphics.DrawCurve(greenPen, curvePoints) End Sub 得到数据后，改point的数据。然后PictureBox1.Refresh()就行了
创新互联专注为客户提供全方位的互联网综合服务，包含不限于网站设计、成都网站建设、怀来网络推广、小程序开发、怀来网络营销、怀来企业策划、怀来品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联为所有大学生创业者提供怀来建站搭建服务，24小时服务热线：028-86922220，官方网址：www.cdcxhl.com
。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
经常炒股的人都知道要看股票K线。股市变化多端，要想找一些“规律”我们可以利用K线，这样可以更好的进行投资决策，获取收益。
给大家来好好分析一下K线，教伙伴们从哪里入手去分析它。
分享之前，先免费送给大家几个炒股神器，能帮你收集分析数据、估值、了解最新资讯等等，都是我常用的实用工具，建议收藏：炒股的九大神器免费领取（附分享码）
一、 股票K线是什么意思？
K线图被称作蜡烛图、日本线、阴阳线等，最常见的叫法是--K线，它本来是要用来表现米价每天的变化的，之后股票、期货、期权等证券市场都能运用到它。
由影线和实体组成的柱状线条叫k线。影线在实体上方的部分叫上影线,下方的部分叫下影线，实体分阳线和阴线。
Ps：影线代表的是当天交易的最高和最低价，实体表示的是当天的开盘价和收盘价。
其中红色、白色柱体或者黑框空心都可用来表示阳线，然而阴线通常用实体柱做代表，颜色一般为绿色、黑色或者蓝色，
除了以上情况，“十字线”被我们看到时，就可以认为一条线是实体部分改变后的形态
其实十字线很好理解，代表收盘价和开盘价一样
只要深入理解了K线，我们轻而易举可以发现买卖点（虽然股市没有办法预测，但K线指导意义是有的），对于新手来说也是最好操控的。
在这里，我要给大家提个醒，K线分析起来是比较难的，如果你刚开始炒股，K线也不了解，建议用一些辅助工具来帮你判断一只股票是否值得买。
比如说下面的诊股链接，输入你中意的股票代码，就能自动帮你估值、分析大盘形势等等，我刚开始炒股的时候就用这种方法来过渡，非常方便：【免费】测一测你的股票当前估值位置？
下面我就跟大家说说关于几个K线分析的小窍门儿，快速的让你能够知道一些简单的知识。
二、怎么用股票K线进行技术分析？
1、实体线为阴线
这个时候就是需要大家值得注意的是股票成交量，如果成交量不大的话，那就代表股价可能会短期下降；而成交量很大的话，那股价很有可能要长期下跌了。
2、实体线为阳线
实体线为阳线就说明股价上涨动力更足，至于是否是长期上涨，还是需要结合一些其他指标进行判断。
比如说大盘形式、行业前景、估值等等因素/指标，但是由于篇幅问题，不能展开细讲，大家可以点击下方链接了解：新手小白必备的股市基础知识大全
应答时间：2021-09-07，最新业务变化以文中链接内展示的数据为准，请点击查看
Dim DtRRU As DataTable = New DataTable()
DtRRU.Columns.Add("Time_Int")
DtRRU.Columns.Add("Bins")
DtRRU.Rows(0)("Time_Int") = "0~6月"
DtRRU.Rows(1)("Time_Int") = "6~12月"
DtRRU.Rows(2)("Time_Int") = "1~2年"
DtRRU.Rows(3)("Time_Int") = "2~3年"
DtRRU.Rows(4)("Time_Int") = "3~4年"
DtRRU.Rows(5)("Time_Int") = "4~6年"
DtRRU.Rows(6)("Time_Int") = "6年以上"
用chart.DataSource绑定DataTable， DataTable自己添加响应的名称就可以了，省略了一切代码，如果不懂可以告诉我……………………
With (ChartENC.Series(0))
.YValueMembers = "Bins"
.XValueMember = "Time_Int"
.XValueType = DataVisualization.Charting.ChartValueType.DateTime
.ChartType = DataVisualization.Charting.SeriesChartType.Column
End With
______________________________________________________________________
