您的位置：程序门 -> vb -> 控件

请问怎样实现qq的卷帘效果

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

请问怎样实现qq的卷帘效果[已结贴,结贴人:jack20042005]

发表于：2007-01-31 20:18:10 楼主

1.比如点击“群/校友录”就网上推开，显示该面板图标内容？

2.怎样添加各项图标内容（并可以点击响应）？

谢谢

发表于：2007-01-31 20:56:121楼得分:5

模擬qq隱藏窗口

declare function getcursorpos lib "user32 " （lppoint as pointapi) as long
declare function getwindowrect lib "user32 " （byval hwnd as long, lprect as rect) as long
declare function ptinrect lib "user32 " （lprect as rect, byval ptx as long, byval pty as long) as long
declare function showwindow lib "user32 " （byval hwnd as long, byval ncmdshow as long) as long

type pointapi
x as long
y as long
end type

type rect
left as long
top as long
right as long
bottom as long
end type

sub form_load（)
me.left = 0
end sub

sub timer1_timer（)
dim mypoint as pointapi
dim myrect as rect
call getcursorpos（mypoint)
call getwindowrect（me.hwnd, myrect)
if ptinrect（myrect, mypoint.x, mypoint.y) = 0 then
me.top = 0 - me.height + 10
showwindow me.hwnd, 0
else
showwindow me.hwnd, 5
me.top = 0
end if
end sub

发表于：2007-02-01 09:17:002楼得分:5

有例子的用这个控件ctlistbar

发表于：2007-02-01 09:29:463楼得分:5

我记得activebar也有类似的功能，而且非常强大

发表于：2007-02-01 12:39:264楼得分:5

我网站上有qq分组的控件源码，你可以下载。

vb资料-> 查询“qq”

═══════════════════
　天狼软件工作室
　免费的源码、工具网站，欢迎大家访问！
　http://www.egooglet.com/
　http://www.j2soft.cn/
═══════════════════

下一篇：求路过的好心人帮帮忙
上一篇：请教一般指纹采集仪提供的sdk是否通用？

其他资讯