Dim b As New Bitmap(320, 200)'定义图像宽高
专业从事网站设计、成都网站设计,高端网站制作设计,小程序设计,网站推广的成都做网站的公司。优秀技术团队竭力真诚服务,采用HTML5建站+CSS3前端渲染技术,响应式网站开发,让网站在手机、平板、PC、微信下都能呈现。建站过程建立专项小组,与您实时在线互动,随时提供解决方案,畅聊想法和感受。
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'假设是对角线,x=y时使用白色
else
clrs = Color.Black'平时使用黑色
endif
b.SetPixel(x, y, clrs)'画点
next
next
b.Save("test.tif", System.Drawing.Imaging.ImageFormat.Tiff)'保存到图片文件
==================
原创例子,祝进步!!
在vb中画点的方法是Pset。根据相关资料显示,Pset(x,y),color其中x,y是所画点的坐标值,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将图输出,最后导入到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)
这不是很简单吗?用 / 切割字符串,然后循环添加TreeView的Item就可以了。