评论

#HolyCat 发表于2004-09-16 23:41:00  IP: 211.161.27.*

.......是啊...用了几年了,现在扔也不是不扔也不是......

#MAYBE 发表于2004-09-16 19:34:00  IP: 218.89.45.*

又意思！！！

#MAYBE 发表于2004-09-16 19:34:00  IP: 218.89.45.*

有意思！！！

#上帝 发表于2004-09-28 09:00:00  IP: 218.4.159.*

同感

#失落的彩虹 发表于2004-10-06 16:26:00  IP: 218.80.195.*

说实在地对vb没有感情，虽然不得不用它，但是一直钟情delphi。
只是因为这是我入门的语言。确实，这是一种难以割舍的感情。

#zoo 发表于2004-10-10 19:43:00  IP: 219.231.158.*

我正想转成C语言呢，看了您的话，......
面临工作压力阿......

#libralibra 发表于2004-10-13 11:53:00  IP: 61.51.161.*

与我心有戚戚焉，虽然我是个菜鸟！
努力学习ing

#老VB 发表于2004-10-14 08:38:00  IP: 211.96.206.*

调用API，VB确实什么都能做，但确实存在发布难的问题，并且调用API时也有如下问题：有时不稳定，CALLBACK不易实现，跟踪调试不能深入。。。。。。
我用VB有5年了，做过VOD点唱、工控等项目，但学了delphi 、C之后，慢慢就把VB打入冷宫了。
该放弃的，还是要放弃。

#VB.NET能做什么？ 发表于2004-10-26 15:03:00  IP: 61.241.100.*

VB.NET能做什么？

#Sevk 发表于2004-10-26 15:03:00  IP: 61.241.100.*

我就用VB，我喜欢！

#马大哈 发表于2004-10-29 20:31:00  IP: 219.137.187.*

语言嘛，并没有什么规定说一个软件只能用一种语言来实现的嘛。
VB做界面，那是没得说。至于其他功能，也都是可以实现（调用API）。只是，要看一些特殊的情况了。

我就觉得VB好用。虽然一些特殊场合下，其他语言要实现相同的功能会比较容易，但，不可以让VB来调用吗？

我现在就是用VB＋ASM来编程的，有时也用C。

我还没有发现有什么程序是VB一定不能做出来的。

孙悟空再厉害，还不是一样要朋友和伙伴的帮助？！

#游客 发表于2004-11-16 19:40:00  IP: 61.55.106.*

说他不好，就是因为熟练运用VB的人太多了~~
可是说VB不好的人，从来都没想过，那VB的优势

#pianyun 发表于2005-01-19 18:22:00  IP: 221.218.227.*

对vb有深入研究的,也许都不愿放弃.

#jlzwj 发表于2005-04-13 17:13:00  IP: 221.8.15.*

我只说一句话：
我同意“对vb有深入研究的,也许都不愿放弃.”这个观点。

#无名 发表于2006-02-22 11:30:00  IP: 220.112.147.*

我觉得自己还没有深入研究，用了几年了。实在事喜欢vb，没有考虑换其它的。

#小弟 发表于2006-02-25 11:07:00  IP: 220.169.251.*

叶帆大哥，我知道会占用你宝贵的时间，请你一定帮帮小弟啊！
　我在写一个财务软件时，用到VScrollBar控件，但是这个控件没有MouseMove事件，我想用API判断鼠标是否进入与退出该控件，不知道如何实现，在CSDN上也没人回答我的问题，所以我只好跑来问大哥你了，感激不尽！！！
　请你帮我解决一下好吗？
　　QQ：６７９１１１４２
　　email:xunhacker2003@163.com
　　
　　
　　　　　

#叶帆 发表于2006-02-25 20:18:00  IP: 221.217.147.*

用VScrollBar控件的事件判断即可。
Private Sub VScroll1_GotFocus()
'进入
End Sub

Private Sub VScroll1_LostFocus()
'退出
End Sub

#叶帆 发表于2006-02-25 20:45:00  IP: 221.217.147.*

'API方式
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function PtInRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Private Sub Timer1_Timer() '100ms
Dim rt As RECT
Dim cp As POINTAPI
GetCursorPos cp
GetWindowRect VScroll1.hwnd, rt

Label1 = Str(cp.x) & " - " & Str(cp.y)
Label2 = Str(rt.Left) & "," & Str(rt.Top) & " - " & Str(rt.Right) & "," & Str(rt.Bottom)

If PtInRect(rt, cp.x, cp.y) = 1 Then
Label3.Caption = "进入"
Else
Label3.Caption = "已出"
End If
End Sub

#小弟 发表于2006-02-27 08:55:00  IP: 61.187.160.*

　　非常感谢叶帆大哥，这么快就解决了我一直以来没有解决的问题，谢谢大哥你了！永远支持你！