拖一個PictureBox1控件 創(chuàng)建一個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 得到數(shù)據(jù)后,改point的數(shù)據(jù)。然后PictureBox1.Refresh()就行了
創(chuàng)新互聯(lián)公司長期為1000多家客戶提供的網(wǎng)站建設(shè)服務(wù),團(tuán)隊從業(yè)經(jīng)驗10年,關(guān)注不同地域、不同群體,并針對不同對象提供差異化的產(chǎn)品和服務(wù);打造開放共贏平臺,與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為鄂倫春企業(yè)提供專業(yè)的網(wǎng)站制作、網(wǎng)站設(shè)計,鄂倫春網(wǎng)站改版等技術(shù)服務(wù)。擁有10余年豐富建站經(jīng)驗和眾多成功案例,為您定制開發(fā)。
數(shù)組元素intstr(137)是全局聲明嗎?如果是全局聲明,則可以在FORM1中建個定時器或多線程,然后使用me.textbox1.text=intstr(x).ToString即可,如果要把數(shù)組全顯示完成,則多加個FOR
簡單說下思路吧,具體的代碼可以查資料
首先要會畫曲線圖,有三種方法:
1、用mschar控件(vb6的);2、用水晶報表;3、用word圖表
x軸為時間,y軸為數(shù)據(jù)
要實現(xiàn)實時數(shù)據(jù)刷新,只要用 定時器 定時刷新曲線圖的數(shù)據(jù)就可以了(x、y的數(shù)據(jù)重寫)
程序界面本身就是被windows畫出來的,每次顯示都要畫上一遍,而每次重新畫出程序,你的函數(shù)并沒有因此而重新調(diào)用,當(dāng)然圖形就不見.
你可以在窗體的paint()事件里掉用函數(shù)
當(dāng)前題目:包含vb.net實時行情的詞條
標(biāo)題URL:http://jinyejixie.com/article46/dodhdhg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供微信小程序、營銷型網(wǎng)站建設(shè)、品牌網(wǎng)站建設(shè)、外貿(mào)網(wǎng)站建設(shè)、品牌網(wǎng)站制作、網(wǎng)站營銷
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)