中叶散分300，新版ImageShop完成一半

中期散分300，新版ImageShop完成一半。
    初步估计完成了整个的一般编码量，其中最选区的更新是最值得关注的，从上一版本的伪抗锯齿到正真的抗锯齿，新的魔术棒算法，新的选区平滑、羽化、扩大、缩小、边界、旋转等,在速度上不敢和PS相提并论，可同业内其他同行软件相比，无论效果还是速度，都有信心不输于。
    蒙版的效果正在测试中，有望年底出个新版本，让大家觉得VB的新魅力所在，呵呵。

    现在还没有一个完整的测试版本，先发个选区操作上的效果图吧。

    上图中的效果包含了选区扩展，羽化等等效果。

    我在这里没有发布任何代码，只是希望得到大家对我这个工程的鼓励，没有炫耀的意思，请大家支持。

    顺便做下宣传，对图像真正有兴趣，且在学习的欢迎加入我的图像处理群啊：30417248，说明一下，加入后不讲话的我一般会踢掉。请见谅。



[最优解释]

引用:

? ? ? ? 蒙版的效果正在测试中，有望年底出个新版本，让大家觉得VB的新魅力所在，呵呵。

期待
[其他解释]
jf
[其他解释]
那个椭圆也是选区吗？还有那个红色部分是另一张图片？
[其他解释]
支持楼主，加油
[其他解释]
支持
[其他解释]
高手!
[其他解释]
JF
[其他解释]
支持楼主,JF
[其他解释]

引用:

那个椭圆也是选区吗？还有那个红色部分是另一张图片？

就是一张图片啊，我随便选了几个选区，做了反色处理。有几个边缘很模糊的是羽化效果。整个就是一张图片。
[其他解释]

引用:

引用:
那个椭圆也是选区吗？还有那个红色部分是另一张图片？


就是一张图片啊，我随便选了几个选区，做了反色处理。有几个边缘很模糊的是羽化效果。整个就是一张图片。

哦，我还以为是PS的蒙板效果。期待~~~~
[其他解释]
支持  楼主厉害
[其他解释]
ff~~

[其他解释]
那个虚线选择框怎么做的？可以拖动选择吗？
shape?
?


[其他解释]


哦，我还以为是PS的蒙板效果。期待~~~~
[/Quote]

蒙版效果我做了一部分了，比如下图




//那个虚线选择框怎么做的？可以拖动选择吗？ 
shape? 
? 

不会用shape这么原始的控件的，自绘的。

[其他解释]
厉害LZ！支持
[其他解释]

引用:

//那个虚线选择框怎么做的？可以拖动选择吗？
shape?
?
不会用shape这么原始的控件的，自绘的。

我有一段时间很想知道PS的选择框（就是那可拖选的）是怎么做的，您现在能否透露一下内幕？

[其他解释]
楼主加油
[其他解释]

引用:

引用:
//那个虚线选择框怎么做的？可以拖动选择吗？
shape?
?
不会用shape这么原始的控件的，自绘的。

我有一段时间很想知道PS的选择框（就是那可拖选的）是怎么做的，您现在能否透露一下内幕？

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    oldX = X - Shape1.Left
    oldY = Y - Shape1.Top 
 
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        Shape1.Left = X - oldX
        Shape1.Top = Y - oldY
      Label1(0).Left = X - oldX - Label1(0).Width
        Label1(0).Top = Y - oldY - Label1(0).Height
        Label1(1).Left = Shape1.Left + Shape1.Width
         Label1(1).Top = Shape1.Top - Label1(1).Height
       Label1(2).Left = X - oldX - Label1(2).Width
     Label1(2).Top = Y - oldY + Shape1.Height
        Label1(3).Left = Shape1.Left + Shape1.Width
        Label1(3).Top = Shape1.Top + Shape1.Height
    End If
End Sub

Private Sub Label1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    oldX = X
    oldY = Y

End Sub

Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    On Error Resume Next
    If Button = 1 Then
        Label1(Index).Move Label1(Index).Left + X - oldX, Label1(Index).Top + Y - oldY
        Select Case Index
          Case 0
            Label1(2).Left = Label1(0).Left
            Label1(1).Top = Label1(0).Top
          Case 1
            Label1(0).Top = Label1(1).Top
            Label1(3).Left = Label1(1).Left
          Case 2
            Label1(0).Left = Label1(2).Left
            Label1(3).Top = Label1(2).Top
          Case 3
            Label1(1).Left = Label1(3).Left
            Label1(2).Top = Label1(3).Top
        End Select
        Shape1.Move Label1(0).Left + Label1(0).Width, _
                    Label1(0).Top + Label1(0).Height, _
                    Label1(1).Left - Label1(0).Left - Label1(0).Width, _ 
 
                    Label1(3).Top - Label1(1).Top - Label1(1).Height
    End If
End Sub

不是知道你说的是不是这个

[其他解释]
都是高手呀,小弟领教了.
[其他解释]
楼主加油
[其他解释]
高手。。。。。
[其他解释]

引用:

引用:
引用:
//那个虚线选择框怎么做的？可以拖动选择吗？
shape?
?
不会用shape这么原始的控件的，自绘的。

我有一段时间很想知道PS的选择框（就是那可拖选的）是怎么做的，您现在能否透露一下内幕？

...

不是知道你说的是不是这个

谢谢这位仁兄，他说不会用shape这么原始的控件，自绘的，不知道是怎么个绘法？

[其他解释]
支持下，这个软件会公布代码么？



[其他解释]
顶一个先
[其他解释]
除了顶，我还能说什么呢？高手啊！
[其他解释]
支持

[其他解释]
支持
[其他解释]
LZ散的分是要的,祝贺LZ早日圆满完成佳作!

[其他解释]
LZ是要自己写PS吗？
期待中~~
[其他解释]
支持楼主，加油
[其他解释]
顶....
[其他解释]
up
[其他解释]
  ding
[其他解释]
专业的高手！顶，顺便接下分
[其他解释]
老曼好
[其他解释]
呵呵,你好西西
[其他解释]
顶

支持lz


[其他解释]
只要用心去做，用心去找，技术上的事情入了门如何发展就由自己了，一行研究久了自然就晓得门路了。
[其他解释]
顶!
[其他解释]
不错
[其他解释]
牛  我连PhotoShop都用的不大熟... 
[其他解释]
jf
[其他解释]
呵呵，鼓励一下LZ~
[其他解释]
恭喜了。。ＪＦ
[其他解释]
up
[其他解释]
up
[其他解释]
支持
[其他解释]

jf
[其他解释]
jf
[其他解释]
牛人。研究久了真的可以比较熟悉，比较有见地。
[其他解释]
LZ高手。加油
[其他解释]
支持楼主
[其他解释]
接个分吧
[其他解释]
能不能提示一下主要有哪些方面的东西！
[其他解释]
up
[其他解释]
相当强大
[其他解释]
顶

lz潜水结束？
[其他解释]
顶了 需要测试吗？
[其他解释]
强人啊，支持
[其他解释]

引用:

能不能提示一下主要有哪些方面的东西！

就是图层、选区、滤镜等等啊，以前发过一个版本的。

http://topic.csdn.net/u/20081114/21/A0952E87-FECD-4B37-86D0-BFD81782C8EE.html
[其他解释]
期待
[其他解释]
中期散分啊，就是完成了快一半。

进步的地方比较多，特别是选区和滤镜。
[其他解释]
又进一步了 恭喜恭喜
[其他解释]
好！
[其他解释]
不错
[其他解释]

引用:

引用:
//那个虚线选择框怎么做的？可以拖动选择吗？
shape?
?
不会用shape这么原始的控件的，自绘的。

我有一段时间很想知道PS的选择框（就是那可拖选的）是怎么做的，您现在能否透露一下内幕？

橡皮框效果.
[其他解释]
支持！顺便问一下楼主，有没有图像变换和色阶的调整等功能？？
[其他解释]
色阶功能当然有啊 ，图像变换是指啥？
[其他解释]
记得很久以前跟楼主提过在ps里有个maskpro的插件滤镜，抠图功能极为强悍，不知楼主的软件有没有类似maskpro的抠图功能？
[其他解释]
严重支持laviewpbt！图像处理技术的大牛啊！
[其他解释]
不错啊。。
[其他解释]
加油
[其他解释]
接分来的
祝贺楼主
[其他解释]
膜拜
[其他解释]
楼主强人啊~~·
[其他解释]

引用:

引用:
引用:
//那个虚线选择框怎么做的？可以拖动选择吗？
shape?
?
不会用shape这么原始的控件的，自绘的。

我有一段时间很想知道PS的选择框（就是那可拖选的）是怎么做的，您现在能否透露一下内幕？


橡皮框效果.

谢谢，橡皮筋框？

------其他解决方案--------------------

牛人~除了接分，我已无话可说~
[其他解释]
牛人~除了接分，我已无话可说~
[其他解释]

引用:

色阶功能当然有啊 ，图像变换是指啥？

各种滤镜的应用（像PS那样）；光源的应用。
[其他解释]
呵呵，滤镜我有100多个啊， PS的高级光源我还没研究过，不过有一些镜头光晕等效果。
你可以看下我以前的那个效果啊，
http://www.skycn.com/search.php?ss_name=imageshop&sf=default
或者加我QQ:33184777 谈谈啊
[其他解释]
像羽化、蒙版，光是API是不够的，需要寻找算法！
[其他解释]
顶起.........
[其他解释]
楼主加油
[其他解释]
谈一点技术性的细节吧，
1、真正意义上的选区是一副和画布一样大小的8位灰度图，其中白色表示当前像素完全选中，黑色完全不选中，其他颜色表示处理时需要安一定的算法合成。
2、羽化就是对选区的灰度图的高斯模糊。
3、选区的扩展和收缩类似与PS的最大值和最小值算法。
4、蒙版也是一副8位灰度图。
5、选区的合并和删减都是对灰度图进行对应的操作。
[其他解释]
不懂，看看。
[其他解释]
支持楼主
[其他解释]
楼上我不晓得你在讲什么，一个稍微复杂的VB程序 都会和API打交道的。

那些羽化，蒙版有那个API函数可以直接搞出来，请问？
[其他解释]
说到底也只是调用API，跟VB好象没什么关系.........
如果只用VB自带的控件和函数做出来的话，那就真是VB的魅力所在了！
[其他解释]
该回复于2009-10-11 09:02:27被版主删除
[其他解释]
加油，我接分吧。
[其他解释]
laviewpbt研究图像处理的境界已经超越我辈了，呵呵佩服
[其他解释]
支持楼主，加油!
[其他解释]

引用:

说到底也只是调用API，跟VB好象没什么关系.........
如果只用VB自带的控件和函数做出来的话，那就真是VB的魅力所在了！

这个比较搞笑，有点酸的感觉
[其他解释]
支持
[其他解释]
楼主加油
[其他解释]
恭喜恭喜   顺便jf
[其他解释]
null
[其他解释]
建议楼主连载：VB图像处理
[其他解释]
null

查看更多 下一篇