to kimryo(kimryo) 谁说VB数据类型单一,很不好用呢。截屏VB十分简单,看看下面的代码: Private Declare Function BitBlt Lib "gdi32" _ (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, _ ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, _ ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongConst SRCCOPY = &HCC0020Private Sub Form_Activate() Me.Hide For i = 1 To 10000 '延时 DoEvents Next i BitBlt Picture1.hDC, 0, 0, Screen.Width / 15, Screen.Height / 15, GetDC(0), 0, 0, SRCCOPY SavePicture Picture1.Image, "c:\sss.bmp" End End SubPrivate Sub Form_Load() With Picture1 .AutoRedraw = True .Width = Screen.Width .Height = Screen.Height End With End SubPrivate Sub Form_Activate() Me.Hide BitBlt Picture1.hDC, 0, 0, Screen.Width / 15, Screen.Height / 15, GetDC(0), 0, 0, SRCCOPY SavePicture Picture1.Image, "c:\sss.bmp" End SubPrivate Sub Form_Load() With Picture1 .AutoRedraw = True .Width = Screen.Width .Height = Screen.Height End With End Sub一分钟搞定,不懂不要乱讲,工具好不好在于用的人。
那就是说vb你看一下就懂,你以为你是天才嘛?????????????????????
真的有人懂VB?
我只知道我的客户不懂程序的说,就这么点东西要这么多钱啊!哈哈哈!
叫你的朋友来,让我宰了他,没脑袋的家伙,根本没有学到VB的什么,就在这里嚷嚷!肤浅!不用看就知道他是低手中的低手了!叫他买本《VB入门》慢慢学吧!!!
叫你的朋友不用控件,用10行代码以内做一个播放AVI动画,支持透明,可以随意暂停,停止与播放!!!如果他做得到,才叫他换另外一本书吧,哼!
如果你的朋友觉得困难的话,允许他用“:”在一行中写尽可能多的代码的,嘿嘿
kimryo(kimryo) :如果BCB没有提供Cavnas类你会怎么办?如果有人为vb提供类似于Cavans的类,vb又岂不是比BCB方便很多?
有人说编程思想很重要,并不能否定工具选择很重要,完全否定工具选择的作用又是一种偏激。我想不会有人用锤子来搬移喜马拉雅山。所以,对VB过于容易、功能太少、像玩具等等的评论其实对于程序员的心理因素影响很严重。我有同学其实只能拿VC编写物体平抛计算的程序,却因“会VC”而看不起学VB的人,还大加劝阻别的同学学习VB,哪怕别人能用VB轻松开发令他瞠目结舌的“简单程序”。
谁说VB数据类型单一,很不好用呢。截屏VB十分简单,看看下面的代码:
Private Declare Function BitBlt Lib "gdi32" _
(ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, _
ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, _
ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongConst SRCCOPY = &HCC0020Private Sub Form_Activate()
Me.Hide
For i = 1 To 10000 '延时
DoEvents
Next i
BitBlt Picture1.hDC, 0, 0, Screen.Width / 15, Screen.Height / 15, GetDC(0), 0, 0, SRCCOPY
SavePicture Picture1.Image, "c:\sss.bmp"
End
End SubPrivate Sub Form_Load()
With Picture1
.AutoRedraw = True
.Width = Screen.Width
.Height = Screen.Height
End With
End SubPrivate Sub Form_Activate()
Me.Hide
BitBlt Picture1.hDC, 0, 0, Screen.Width / 15, Screen.Height / 15, GetDC(0), 0, 0, SRCCOPY
SavePicture Picture1.Image, "c:\sss.bmp"
End SubPrivate Sub Form_Load()
With Picture1
.AutoRedraw = True
.Width = Screen.Width
.Height = Screen.Height
End With
End Sub一分钟搞定,不懂不要乱讲,工具好不好在于用的人。
BCB中只用不到15行的代码就搞定,VB是要复杂些嘛!
代码多些又怎么了,能够漂亮地完成要求,客户满意,我们自己满意,就可以了。不是吗?不要以代码量来比较两个不同的东西!
你的项目这么快就完成了吗?
你也实在太吝啬了,竟然没有分的,嗯,要狠狠教训你一顿!!!呵呵
没有,至少要到8月,偷空回来回一个
to kimryo(kimryo)
VB用多少代码,你数一下(把重复的部分去掉,20行左右)。用CBC或者Delphi
的方法跟上面差不多。也是先bitblt再save。难道你有什么更先进的办法吗?
我想什么工具能完成就有什么工具
从侧面一想就明白了。为什么自以为DELPHI和C代言人的要骂,还不是因为VB“太简单”?为什么简单?是因为MS的工程师们下了大力气的。入门容易并不是缺点,但要明白一个道理:知的越多,不知的越多。这就是大小圈的问题,不知你们听没听说过。别做了井底之蛙还自鸣得意。学生时期学的很多东西都是表面性的。我用了7年VB了,还不敢说精通,只是熟悉而已。术业有专攻,好用就行了。