Dim b As New Bitmap(320, 200)'定義圖像寬高
專業(yè)從事網(wǎng)站設(shè)計、成都網(wǎng)站設(shè)計,高端網(wǎng)站制作設(shè)計,小程序設(shè)計,網(wǎng)站推廣的成都做網(wǎng)站的公司。優(yōu)秀技術(shù)團隊竭力真誠服務(wù),采用HTML5建站+CSS3前端渲染技術(shù),響應(yīng)式網(wǎng)站開發(fā),讓網(wǎng)站在手機、平板、PC、微信下都能呈現(xiàn)。建站過程建立專項小組,與您實時在線互動,隨時提供解決方案,暢聊想法和感受。
Dim clrs As Color=Color.Black
for y as int32=1 to 199
for x as int32=1 to 319
if x=y then
clrs = Color.White'假設(shè)是對角線,x=y時使用白色
else
clrs = Color.Black'平時使用黑色
endif
b.SetPixel(x, y, clrs)'畫點
next
next
b.Save("test.tif", System.Drawing.Imaging.ImageFormat.Tiff)'保存到圖片文件
==================
原創(chuàng)例子,祝進(jìn)步!!
在vb中畫點的方法是Pset。根據(jù)相關(guān)資料顯示,Pset(x,y),color其中x,y是所畫點的坐標(biāo)值,color是點的顏色值。PrivateSubCommand1_Click()DimiAsInteger,nAsByte,xAsInteger,yAsIntegerDimrAsInteger,gAsInteger,bAsIntegerFori=1To1000Randomizen=Int(Rnd*60+10)x=Rnd*Form1.Widthy=Rnd*Form1.Heightr=Int(Rnd*256)g=Int(Rnd*256)b=Int(Rnd*256Form1.DrawWidth=nForm1.PSet(x,y),RGB(r,g,b)NextiEndSub。
你可以通過用VB.net控制excel,讓excel生成曲線圖,然后利用excelVBA將圖輸出,最后導(dǎo)入到VB.net就可以了。
畫點:
在PictureBox的Paint事件里面:
dim myGraphics=e.Graphics
Dim myPointArray As Point() = {New Point(0, 0), New Point(50, 30), New Point(30, 60)}
myGraphics.DrawPolygon(myPen, myPointArray)
畫圓:
Dim g As Graphics
g = PictureBox1.CreateGraphics
g.FillEllipse(Brushes.Red, x, y, 10, 10)
這不是很簡單嗎?用 / 切割字符串,然后循環(huán)添加TreeView的Item就可以了。
當(dāng)前標(biāo)題:vb.net沿路徑畫點的簡單介紹
本文URL:http://muchs.cn/article46/docddeg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站制作、域名注冊、微信小程序、移動網(wǎng)站建設(shè)、定制開發(fā)、軟件開發(fā)
聲明:本網(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)