Question

VB6.0有多强大，可以做什么呢

我学了点VB，可是好像快要淘汰了，学.net我又不喜欢.net framework框架，想用VB6.0开发一些小软件。我是新手，不知道VB6.0可以做什么。前辈们给点建议把

Answer 1

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

Answer 2

那要看你是做哪方面的咯。。。。VB的功能很强大滴。。。。。可以与C++相比了。。。。但C或C++的功能还高一点。。。。。通了VB以后学其他的也就容易得多了。。。。我一开始也是学VB。。后来学了C。。。太简单了。。。呵呵呵。。。

Answer 3

VB功能很强大的，很多人都说有些C语言能写的VB写不出来，其实不然，用VB一样能写很强大的东西，只不过VB出来的比C晚，学起来比C简单，故造成了大家以为VB很简单的印象，其实VB往深里学的话，还是会有很大强大的功能的。

Answer 4

VB6.0我刚学完，C也学过，C的功能是强大，写东西能累死人，VB比C写东西容易，但是有的东西C能写但是VB写不出来，建议学delphi去。

Answer 5

我也是新手,现在主要用VB设计软件弥补公司K3系统的不足,为自己所用,公司的数据库是SQL2000的.

其实VB6还是很强大的,先专一样..等通了以后,学其他语言就相对要简单多了.