从品牌网站建设到网络营销策划,从策略到执行的一站式服务
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就可以了。
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图