如何用VB做一个类似windows的画图程序
就是做一个简单的能画线及矩形的画图程序，要求能用不同颜色填充矩形；还有能实现橡皮擦的功能，实际上就是画个小矩形剪裁多余的部分，请高手指点，急！！
问题点数：80、回复次数：5Top
1 楼TechnoFantasy（（VB MVP）www.applevb.com）回复于 2005-06-04 18:45:08 得分 30
一个非常Cool的图像编辑软件，支持在图像中画椭圆、矩形、锥体、圆柱、不规则曲线，支持输入文本，使用橡皮擦，图像区域填充。最绝的是它的画笔和画刷支持不同的形状（例如使用树叶形的画刷可以画出如同柳条的效果）。
http://www.applevb.com/sourcecode/cool%20picture%20editor.zipTop
2 楼TechnoFantasy（（VB MVP）www.applevb.com）回复于 2005-06-04 18:45:51 得分 30
图像编辑程序，可以使用各种不同效果的画笔，并且包含一些图像特效，象柔化、锐化等等。
http://www.applevb.com/sourcecode/sek_paint.zipTop
3 楼hsghxm（专业杀鸡）回复于 2005-06-04 19:22:32 得分 20
首先：做准备工作：在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
Top
4 楼cyy123（你开心我快乐）回复于 2005-06-07 08:22:36 得分 0
谢谢两位啦Top
5 楼aner（名花虽有主，我来松松土!）回复于 2005-07-29 10:33:13 得分 0
我确得最麻烦的可能就是图片放大缩小，及在放大后进行画线，画圆等操作。Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
