VB 版 (精华区)

发信人: bloom (├┝┞┟┠┡┢┣), 信区: VB
标  题: 软件世界 > 用ＶＢ编程绘制网格图像      spare 
发信站: 哈工大紫丁香 (2000年07月28日16:59:45 星期五), 站内信件

发信人: cpcw (shadow), 信区: Internet
标  题: 软件世界 > 用ＶＢ编程绘制网格图像
发信站: 紫 丁 香 (Sat Apr  1 09:31:56 2000), 转信


《 用ＶＢ编程绘制网格图像 》
　　如果你曾经用过像Photoshop或CorelDraw那样强大的图像处理软件, 那你一定知
道对网格的操作, 如显示网格，对齐网格等等。这些操作对图像处理有一定的帮助。
就好像刚刚学习画画的人要打格子一样，它精确、整齐，给画画的人带去了很多的方
便！那么在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.Move 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 YY 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)
　　Next
　　End Sub
　　－－－－－－－－－－－－
　　Private Sub Command2_Click()//取消网格
　　Picture1.AutoRedraw = False
　　Picture1.Refresh
　　End Sub
　　－－－－－－－－－－－－
　　Private Sub Form_Unload(Cancel As Integer)
　　Unload Me //结束程序
　　End
　　End Sub
　　好了，请按F5运行一下吧，效果如何？
　　注：以上程序在中文WINDOWS98, 中文VB5.0专业版中调试通过!　
　（上海　季昭君）


--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: gaea.hit.edu.cn]