高分求教!

dannicklee 2004-11-04 04:12:27
下面是玉舟人事软件在华军的下载网址
http://search2.onlinedown.net/search.asp?Keyword=%D3%F1%D6%DB%C8%CB%CA%C2%B9%DC%C0%ED

希望各位大侠能抽空看看这个软件里面的“快捷桌面”是怎么作出来的(我觉得是xp的风格),另外能不能看出来用了什么控件?(我知道这个软件是用vb开发的)

多谢了!!!!!
...全文
152 点赞 收藏 12
写回复
12 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
dannicklee 2004-11-05
鼠标移上去改变图片的效果容易实现。请问那个XP风格的界面能实现吗?
回复
skywolfY 2004-11-05
厉害,这么晚了还在线,呵呵
用VC的spy去抓来看看
回复
tmran 2004-11-05
Up
回复
helanshan 2004-11-04
up
回复
sanduVB 2004-11-04
不错,应是这样的。
回复
行云边 2004-11-04
使用 图片框 可以 实现啊
下面的例子首先要在imagelist上放上2个图片 一个是鼠标移上去的 ,一个是移开的

Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim bMouseOn As Boolean
bMouseOn = (0 <= X) And (X <= Picture1.Width) And (0 <= Y) And (Y <= Picture1.Height)
If bMouseOn Then
Picture1.Tag = "ON"
Call SetCapture(Picture1.hWnd) '虏获鼠标事件
Else
Picture1.Tag = "EXIT"
Call ReleaseCapture
End If
With Picture1
If Picture1.Tag = "ON" Then ' 鼠标放上去
'ImageList1的第1个图片是 鼠标放上去的图片
Picture1.Picture = ImageList1.ListImages.Item(1)
Else ' 鼠标移开
'恢复原来的图片
Picture1.Picture = ImageList1.ListImages.Item(0)
End If
End With
End Sub
回复
dannicklee 2004-11-04
自己up!!!
回复
dannicklee 2004-11-04
哦?有点明白了。vb能开发出类西的效果吗?
回复
viena 2004-11-04
回复
GGL123 2004-11-04
去看一下。
回复
行云边 2004-11-04
好像是delphi开发的 那些应该都是一些图片框吧 自己也可以做啊 鼠标移上去换一张图片就好了
回复
占一楼,顶一个
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7517

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2004-11-04 04:12
社区公告
暂无公告