⑴ 能用vb设计编写一个类似于Window画图板的程序，可通过鼠标绘制各种图形，设有工具栏可以选择设置
VB6 画图源码 可实现功能 线 圆 矩形 图形移动 颜色 线宽更改 大小更改
⑵ 在那里可以找到VB图片制作工具
PocoMaker
想做自己的个性电子杂志？用它，5分钟就搞定一本！
什么是PocoMaker？
PocoMaker（魅客）是一款完全免费的电子杂志制作工具。他可以制作电子相册、电子杂志、电子读物等多种个性电子读物。
运用他，花上5分钟，你可以将自己的精美相片整理成册，加上炫酷的动态效果，展现你独一的美丽，表达你独特的思想；
更可以将个人杂志发布至MyPOCO个人空间主页，让更多朋友认识了解特别的你，分享你的喜怒哀乐。
⑶ 如何用vb制作图片编辑器，急！！
Private Sub Command1_Click()
Image1.Width = Image1.Width * 2
Image1.Height = Image1.Height * 2
End Sub
Private Sub Command2_Click()
Image1.Width = Image1.Width / 2
Image1.Height = Image1.Height / 2
End Sub
⑷ 用VB编写： 《图片浏览软件》
我简单给你个放大缩小的示例吧。
Private Sub mnuZoomIn_Click() ‘缩小0.8倍
On Error Resume Next
x1 = Image1.Width * 0.8
y1 = Image1.Height * 0.8
Image1.Move (Picture1.Width - x1) / 2, (Picture1.Height - y1) / 2, x1, y1
End Sub
Private Sub mnuZoomOut_Click() ’放大1.2倍
On Error Resume Next
x1 = Image1.Width * 1.2
y1 = Image1.Height * 1.2
Image1.Move (Picture1.Width - x1) / 2, (Picture1.Height - y1) / 2, x1, y1
End Sub
滚动条的我忘了，原来的程序源码都丢了，其实很简单，只需要针对滚动条的数值，把图像文件移动到合适位置就可以。多查查函数和控件手册就好，因为你需要的功能都很简单。
⑸ 用VB编写一个简单的图像处理程序
Private Sub Command1_Click()
Dim a As Long
Dim i, j As Integer
Form1.ScaleMode = 3
For i = 1 To 100
For j = 1 To 100
a = Picture1.Point(i, j)
Form1.PSet (i, j), a
Next j
Next i
End Sub
Private Sub Command2_Click()
Dim a As Long
Dim i, j As Integer
Form1.ScaleMode = 3
For i = 1 To 100
For j = 1 To 100
a = Picture1.Point(i, j)
Form1.PSet (100 - i, j), a
Next j
Next i
End Sub
Private Sub Command3_Click()
Dim a As Long
Dim i, j As Integer
Form1.ScaleMode = 3
For i = 1 To 100
For j = 1 To 100
a = Picture1.Point(i, j)
Form1.PSet (i, 100 - j), a
Next j
Next i
End Sub
Private Sub Form_Load()
Form1.Scale (0, 0)-(100, 100)
Picture1.Scale (0, 0)-(100, 100)
End Sub
！有图像的缩小放大上下翻转，颜色处理没有 不好意思！
⑹ VB编写图片随机滚动/停的软件
Private Sub Form_Load()
Picture1.Cls
Timer1.Interval = 100
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer() '0.1秒随机变换图片
Dim Pfilename As String
Pfilename = App.Path & "\" & CStr(Int(Rnd * 40) + 1) & ".JPG"'图片路径及名称
Picture1.Picture = LoadPicture(Pfilename)
End Sub
Private Sub Command1_Click() '停止按钮
Timer1.Enable = False
End Sub
⑺ 求助：VB制作照片管理软件
2014-0715 程序已经改好，所有代码重新写，并且加了注释
并且发回到你的邮箱！请查收！
1、支持打开文件夹方式批量添加图片，用了一个模块 'VB 不支持PNG图片没办法
2、支持模糊查询
3、每次录入标题和描述都要点一下“保存”按钮才可以
4、文件每次保存都会自动到根目录的picture文件夹内（但是调用时没调用这个目录，不知道你是不是需要调用，如果是也很简单）
5、去除list1控件使用file1控件。
6、没有对图片的宽、高度加以限制，你可以自己限制图片的尺寸和picture1一样大小，但是图片容易失真，也可以自适应（不会的话我给你改，由于时间限制我暂时没改，下午事太多了）
7、txt文件的读写，字符串的查找功能
总之花了半小时的时间，满足你所需的功能。有啥问题在找我，记得知道给我分哦。
BY h8081234 0715
邮箱：[email protected]
⑻ 怎么用VB制作图片编辑器
我发给你，注意查收