高分求教！

[dannicklee]

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

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

多谢了！！！！！

[熊孩子开学喽]

占一楼，顶一个

[行云边]

好像是delphi开发的 那些应该都是一些图片框吧 自己也可以做啊 鼠标移上去换一张图片就好了

[GGL123]

去看一下。

[viena]

顶

[dannicklee]

哦？有点明白了。vb能开发出类西的效果吗？

[dannicklee]

自己up！！！

[行云边]

使用 图片框 可以 实现啊
下面的例子首先要在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

[sanduVB]

不错，应是这样的。

[helanshan]

up

[tmran]

Up

[skywolfY]

厉害，这么晚了还在线，呵呵
用VC的spy去抓来看看

[dannicklee]

鼠标移上去改变图片的效果容易实现。请问那个XP风格的界面能实现吗？