- 西柚不是西游
-
VB 6.0 有多强大? VB 6.0够强大 这是VB 6.0做的位图处理类 中将彩色位图
变成灰度图的部分,这个类有50多种处理方法,速度一点也不比c++慢,
VB 暂时不会淘汰的,VB 6.0可以做什么? 做一个高效的图片处理软件绰绰有余.
在VB 6.0中会用指针了,才能当c 用,VB 6.0真的好强大
Private Sub GrayScaleProcess(Optional ByVal ptrData As Long, Optional ByVal Width As Long, Optional ByVal Height As Long, Optional ByVal iLineAdd As Long, Optional ByVal iPixelAdd As Long, Optional ByVal iType As Integer)
Dim W As Long
Dim H As Long
Dim x As Long
Dim y As Long
W = Width - 1
H = Height - 1
p3ByteDest(0) = ptrData
Dim rgb(0 To 3) As Byte
Dim icolor As Long
If iType = 0 Then
For y = 0& To H
For x = 0& To W
rgb(0) = p3Dest(0)
rgb(1) = p3Dest(1)
rgb(2) = p3Dest(2)
icolor = rgb(2) * 30& + rgb(1) * 59& + rgb(0) * 11&
rgb(0) = icolor 100
p3Dest(0) = rgb(0)
p3Dest(1) = rgb(0)
p3Dest(2) = rgb(0)
p3ByteDest(0) = p3ByteDest(0) + iPixelAdd
Next x
p3ByteDest(0) = p3ByteDest(0) + iLineAdd
Next y
ElseIf iType = 1 Then
For y = 0& To H
For x = 0& To W
rgb(0) = p3Dest(0)
rgb(1) = p3Dest(1)
rgb(2) = p3Dest(2)
icolor = rgb(2) * 299& + rgb(1) * 587& + rgb(0) * 114& + 500&
rgb(0) = icolor 1000
p3Dest(0) = rgb(0)
p3Dest(1) = rgb(0)
p3Dest(2) = rgb(0)
p3ByteDest(0) = p3ByteDest(0) + iPixelAdd
Next x
p3ByteDest(0) = p3ByteDest(0) + iLineAdd
Next y
ElseIf iType = 2 Then "Average Value
For y = 0& To H
For x = 0& To W
icolor = p3Dest(0)
icolor = icolor + p3Dest(1)
icolor = icolor + p3Dest(2)
rgb(0) = icolor 3
p3Dest(0) = rgb(0)
p3Dest(1) = rgb(0)
p3Dest(2) = rgb(0)
p3ByteDest(0) = p3ByteDest(0) + iPixelAdd
Next x
p3ByteDest(0) = p3ByteDest(0) + iLineAdd
Next y
ElseIf iType = 3 Then "Max Value
For y = 0& To H
For x = 0& To W
rgb(0) = p3Dest(0)
rgb(1) = p3Dest(1)
rgb(2) = p3Dest(2)
If rgb(1) > rgb(0) Then rgb(0) = rgb(1)
If rgb(2) > rgb(0) Then rgb(0) = rgb(2)
p3Dest(0) = rgb(0)
p3Dest(1) = rgb(0)
p3Dest(2) = rgb(0)
p3ByteDest(0) = p3ByteDest(0) + iPixelAdd
Next x
p3ByteDest(0) = p3ByteDest(0) + iLineAdd
Next y
ElseIf iType = 4 Then "Min Value
For y = 0& To H
For x = 0& To W
rgb(0) = p3Dest(0)
rgb(1) = p3Dest(1)
rgb(2) = p3Dest(2)
If rgb(1) < rgb(0) Then rgb(0) = rgb(1)
If rgb(2) < rgb(0) Then rgb(0) = rgb(2)
p3Dest(0) = rgb(0)
p3Dest(1) = rgb(0)
p3Dest(2) = rgb(0)
p3ByteDest(0) = p3ByteDest(0) + iPixelAdd
Next x
p3ByteDest(0) = p3ByteDest(0) + iLineAdd
Next y
ElseIf iType = 5 Then "Middle Value
For y = 0& To H
For x = 0& To W
rgb(0) = p3Dest(0)
rgb(1) = p3Dest(1)
rgb(2) = p3Dest(2)
If rgb(1) > rgb(0) Then rgb(3) = rgb(1): rgb(1) = rgb(0): rgb(0) = rgb(3)
If rgb(2) < rgb(0) Then
If rgb(2) <= rgb(1) Then rgb(0) = rgb(1) Else rgb(0) = rgb(2)
End If
p3Dest(0) = rgb(0)
p3Dest(1) = rgb(0)
p3Dest(2) = rgb(0)
p3ByteDest(0) = p3ByteDest(0) + iPixelAdd
Next x
p3ByteDest(0) = p3ByteDest(0) + iLineAdd
Next y
End If
End Sub
- 蓓蓓
-
那要看你是做哪方面的咯。。。。VB的功能很强大滴。。。。。可以与C++相比了。。。。但C或C++的功能还高一点。。。。。通了VB以后学其他的也就容易得多了。。。。我一开始也是学VB。。后来学了C。。。太简单了。。。呵呵呵。。。
- nicehost
-
VB功能很强大的,很多人都说有些C语言能写的VB写不出来,其实不然,用VB一样能写很强大的东西,只不过VB出来的比C晚,学起来比C简单,故造成了大家以为VB很简单的印象,其实VB往深里学的话,还是会有很大强大的功能的。
- 大鱼炖火锅
-
VB6.0我刚学完,C也学过,C的功能是强大,写东西能累死人,VB比C写东西容易,但是有的东西C能写但是VB写不出来,建议学delphi去。
- 牛云
-
我也是新手,现在主要用VB设计软件弥补公司K3系统的不足,为自己所用,公司的数据库是SQL2000的.
其实VB6还是很强大的,先专一样..等通了以后,学其他语言就相对要简单多了.
- okok云
-
vb的强大能达到任何语言能达到的程度,其实所有语言能实现的功能都一样的,只不过是复杂与简单的问题。就像你说话用的语言一样。
- 可可
-
告诉你吧..其实vb6被认为是一仲玩具语言.我还是建议你学.net吧.. .net的功能比vb6强大多了.而且还有很多功能都是现成的.很方便.
- S笔记
-
没有最差的语言,只有最差的程序员。脚踏实地的做,不用追所谓的时髦
- cloudcone
-
1、VB很强大,几乎所有常用软件都能做出来。
2、都说VB做的程序运行速度慢,可现在的电脑配置根本显不出来。
3、VB很好学,可以做入门用。
4、VB编程序最大的好处是可以随时中断运行来查找错误,在线修改,然后继续运行。
5、VB源码好找,到处都是,无论需要实现什么功能,拿来就可以用。
6、会VB的人多,师傅好找。
7、VB的书很多,有许多内容也很好。
8、做小软件的话,VB比.net开发更容易,VB做出的程序体积更小,运行速度更快。
9、没有最差的语言,只有最差的程序员,算法才是关键,语言只是个工具。
10、其实.net学起来也不是很难的,真想学不是不可能实现。
11、我自己就是同时用的VB和.net ,学着玩时,我用.net编程。可是如果有个实际任务时,我一般用VB。VB还是资源多呀!
- 马老四
-
只有你想不到的,没有你做不到的.
- CarieVinne
-
貌似你能想到的应该都可以。