VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索

【完全原创】纯VB实现自适应内容的滚动视图

2012-9-22 22:46| 发布者: sunfrank| 查看: 606| 评论: 17|原作者: sunfrank

摘要: 突然发现VB6的绘图效率太高了。。。疯狂拖动滚动条都没有闪烁。。。我怀疑VB6IDE就用了一个类似的东西,所以不支持鼠标滚轮。@acme_pjz 现在支持了 本帖最后由 sunfrank 于 2012-9-9 21:59 编辑 @acme_pjzLook ...
VD.PNG

VD2.PNG

突然发现VB6的绘图效率太高了。。。疯狂拖动滚动条都没有闪烁。。。

我怀疑VB6IDE就用了一个类似的东西,所以不支持鼠标滚轮。

@acme_pjz 现在支持了

本帖最后由 sunfrank 于 2012-9-9 21:59 编辑

@acme_pjz  Look this
  1. Property Let ScrollPos(SB As Long, Value As Long)
  2.     SetScrollPos Hw, SB, Value, True
  3. End Property
复制代码
这个东西竟然能编译通过,但是怎么赋值?


OK.
ViewXDemo.zip



如果直接发源码你就会说“骗人,根本无法滚动!”——这个东西必须不在IDE中运行,否则VB6 IDE 容易崩溃!因此必须在Bin看到效果。

发源码
View_Source.zip


俺是广播!广播!广播!

相关阅读

发表评论

最新评论

引用 sunfrank 2012-9-9 20:39
突然发现VB6的绘图效率太高了。。。疯狂拖动滚动条都没有闪烁。。。
引用 sunfrank 2012-9-9 20:56
我怀疑VB6IDE就用了一个类似的东西,所以不支持鼠标滚轮。
引用 sunfrank 2012-9-9 21:55
@acme_pjz 现在支持了
引用 sunfrank 2012-9-9 21:57
本帖最后由 sunfrank 于 2012-9-9 21:59 编辑

@acme_pjz  Look this
  1. Property Let ScrollPos(SB As Long, Value As Long)
  2.     SetScrollPos Hw, SB, Value, True
  3. End Property
复制代码
这个东西竟然能编译通过,但是怎么赋值?
引用 garyng 2012-9-9 21:57
把bin发出来
引用 sunfrank 2012-9-9 22:31
garyng 发表于 2012-9-9 21:57
把bin发出来

OK.
引用 o70078 2012-9-10 10:49
sunfrank 发表于 2012-9-9 20:39
突然发现VB6的绘图效率太高了。。。疯狂拖动滚动条都没有闪烁。。。

= =这样很高么?你拖动滚动条的速度怎么也没法和电脑的计算速度比啊......

以上乃个人见解,如有不对请指正.......
引用 锈豺 2012-9-10 11:38
有源码就好了
引用 admin6677 2012-9-10 19:58
用了子类么?
引用 zhdgzhdg 2012-9-15 07:34
花金币让人买一个可执行文件,楼主真会赚钱!
引用 sunfrank 2012-9-15 08:05
zhdgzhdg 发表于 2012-9-15 07:34
花金币让人买一个可执行文件,楼主真会赚钱!


如果直接发源码你就会说“骗人,根本无法滚动!”----这个东西必须不在IDE中运行,否则VB6 IDE 容易崩溃!因此必须在Bin看到效果。
引用 sunfrank 2012-9-15 08:41
发源码
引用 仙剑魔 2012-9-15 09:50
双缓冲绘图基本不会闪的
而且缓冲大小只有显示区域大小,绘图速度能跟上
我在VC里玩过
VB里嫌调API麻烦懒得玩
引用 garyng 2012-9-15 09:53
现在才来的及测试
挺不错的
支持鼠标滚轮

问问下, 是不是说有的控件都能放在里面滚滚啊?
引用 sunfrank 2012-9-15 18:29

俺是广播!广播!广播!
引用 qq375397413 2012-9-16 22:05
先留爪,有需要在翻出来。谢谢分享了
引用 zhdgzhdg 2012-10-2 06:17
sunfrank 发表于 2012-9-15 08:41
发源码

纯VB实现自适应内容的滚动视图,必须不在IDE中运行,否则VB6 IDE 容易崩溃.抱歉,不懂所以说错了。

查看全部评论(17)

相关分类

文字版|手机版|小黑屋|VBGood  

GMT+8, 2021-4-14 00:39

VB爱好者乐园(VBGood)
返回顶部