150分问题：关于IE收藏夹。例子我已做好。
现在的例子是Form_Onlond 调用模块里的GetFaves 函数
GetFaves Me 传递窗口过去
动态加载菜单栏 Favorites
单击列表收藏夹。
我想现实点击按钮Command1把收藏列表在Command1下。
谢谢帮忙。
例子下载：www.my1982.com/Ex.Rar
我Q：23638564
Eamil:kpggdf@163.com
谢谢帮忙~~
解决了150分立刻给上。
不够还补。
问题点数：100、回复次数：7Top
1 楼aohan（aohan）回复于 2004-12-04 16:18:00 得分 0
先下来看看了Top
2 楼mendel（风逍遥）回复于 2004-12-04 19:57:58 得分 0
下了文件也没明白你想要什么效果，你的按钮在哪？想用什么样的方式显示在这个按钮下面？Top
3 楼ziyantan（gdsspt.com）回复于 2004-12-04 21:07:59 得分 0
按鈕自己加
什么样方式?
已经写名了.
就象菜单列表方式Top
4 楼dongge2000（目前叫西西了）回复于 2004-12-04 22:33:04 得分 0
是不是像IE一样啊？Top
5 楼ziyantan（gdsspt.com）回复于 2004-12-04 22:37:02 得分 0
现在已经象IE一样.Top
6 楼AprilSong（X）回复于 2004-12-04 23:21:40 得分 100
好了～看看 ^ ^
1、在Module1里WriteINI前面添加：
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 TrackPopupMenu& Lib "user32" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal nReserved As Long, ByVal hwnd As Long, lprc As RECT)
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim hPopMenu As Long
Dim hForm As Long
Public Sub PopFavs()
Dim tPos As POINTAPI
Dim tRect As RECT
GetCursorPos tPos
If hPopMenu <> 0 Then TrackPopupMenu hPopMenu, 0, tPos.x, tPos.y, 0, hForm, tRect
End Sub
2、在GetFaves里最后面添加：
hPopMenu = lngNewMenu
hForm = mForm.hwnd
3、在Form1里面添加：
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbRightButton Then
PopFavs
End If
End SubTop
7 楼ziyantan（gdsspt.com）回复于 2004-12-04 23:24:05 得分 0
谢了!
你一出现就OK了~~~
哇哈哈~~~
100分送你~~~Top
