＋设为首页 ＋添加到收藏夹
就是做一个简单的能画线及矩形的画图程序，要求能用不同颜色填充矩形；还有能实现橡皮擦的功能，实际上就是画个小矩形剪裁多余的部分，请高手指点，急！！
一个非常Cool的图像编辑软件，支持在图像中画椭圆、矩形、锥体、圆柱、不规则曲线，支持输入文本，使用橡皮擦，图像区域填充。最绝的是它的画笔和画刷支持不同的形状。
http://www.applevb.com/sourcecode/cool%20picture%20editor.zip
图像编辑程序，可以使用各种不同效果的画笔，并且包含一些图像特效，象柔化、锐化等等。
http://www.applevb.com/sourcecode/sek_paint.zip
首先：做准备工作：在FORM1上新建一个PICTURE1和两个COMMAND命令按钮在PICTURE1下面，其他属性不变，然后输入以下代码：
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
