绘制围棋棋盘纵横多少条线vb编程

VB中的绘图方法_百度文库
两大类热门资源免费畅读
续费一年阅读会员,立省24元!
VB中的绘图方法
上传于|0|0|暂无简介
阅读已结束,如果下载本文需要使用1下载券
想免费下载本文?
定制HR最喜欢的简历
下载文档到电脑,查找使用更方便
还剩1页未读,继续阅读
定制HR最喜欢的简历
你可能喜欢天极传媒:天极网全国分站
您现在的位置: &&
用VB编程绘制网格图像
cpcw 00:00
如果你曾经用过像或那样强大的图像处理软件,
那你一定知道对网格的操作, 如显示网格,对齐网格等等。这些操作对图像处理有一定的帮助。就好像刚刚学习画画的人要打格子一样,它精确、整齐,给画画的人带去了很多的方便!那么在VB中如何绘制一幅本来只有在Photoshop等绘图软件中才能完成的网格图像呢?现在就让笔者用VB编程来实现它。
  首先:做准备工作:在FORM1上新建一个PICTURE1(并装载一幅你喜爱的图像)和两个COMMAND命令按钮在PICTURE1下面(即COMMAND1和COMMAND2),其他属性不变,然后输入以下代码:
  Private Sub Form_Load()//初始化设置
  Picture1.AutoSize = True
  Command1.Caption = ″显示网格″
  Command2.Caption = ″取消网格″
  Form1.Caption = ″显示网格图像演示程序″
  End Sub
  ----------------
  Private Sub Form_Activate()//设置网格颜色
  Picture1.ForeColor = vbWhite
  Picture1. 0, 0
  End Sub
  ----------------
  Private Sub Command1_Click()//显示网格
  Dim HLINESNUM As Integer
  Dim WLINESNUM As Integer
  Dim XX As Integer
  Dim I As Integer
  Dim J As Integer
  Dim As Integer
  HLINESNUM = 15 //设置网格为15*15显示
  WLINESNUM = 15
  Picture1.Refresh
  Picture1.AutoRedraw = False
  XX = Int(Picture1.ScaleWidth / WLINESNUM)
  YY = Int(Picture1.ScaleHeight / HLINESNUM)
  For I = 1 To HLINESNUM + 1
  Picture1.Line (XX * I, 0)-(XX * I, Picture1.Height - 1)
  Picture1.Line (0, YY * I)-(Picture1.Width - 1, YY * I)
  End Sub
  ------------
  Private Sub Command2_Click()//取消网格
  Picture1.AutoRedraw = False
  Picture1.Refresh
  End Sub
  ------------
  Private Sub Form_Unload(Cancel As Integer)
  Unload Me //结束程序
  End Sub
  好了,请按F5运行一下吧,效果如何?
  注:以上程序在中文WINDOW
, 中文VB5.0专业版中调试通过! 
 (上海 季昭君)
(作者:上海 季昭君责任编辑:)
欢迎在新浪微博上关注我们
笔记本手机数码家电用VB编程绘制图形的方法和技巧_百度文库
两大类热门资源免费畅读
续费一年阅读会员,立省24元!
用VB编程绘制图形的方法和技巧
上传于|0|0|文档简介
阅读已结束,如果下载本文需要使用1下载券
想免费下载本文?
定制HR最喜欢的简历
你可能喜欢工具类服务
编辑部专用服务
作者专用服务
用VB编程绘制图形的方法和技巧
本文阐述了Visual Basic可视化编程方法进行图形程序设计的简便方法,以具体实例说明了VisualBasic图形处理过程中坐标设置、像素点、图形绘制的技术和方法.并给出绘制图形的应用程序.
作者单位:
常州工程职业技术学院,江苏,常州,213164
年,卷(期):
机标分类号:
在线出版日期:
本文读者也读过
相关检索词
万方数据知识服务平台--国家科技支撑计划资助项目(编号:2006BAH03B01)(C)北京万方数据股份有限公司
万方数据电子出版社

我要回帖

更多关于 围棋棋盘 的文章

 

随机推荐