    TrackPopupMenu hMenu, Align, x, y, 0, frmMenu.hwnd, ByVal 0
End Sub
' 设置菜单项图标
Public Sub SetItemIcon(ByVal itemAlias As String, ByVal itemIcon As StdPicture)
    Dim i As Long
    For i = 0 To UBound(MyItemInfo)
        If MyItemInfo(i).itemAlias = itemAlias Then
            Set MyItemInfo(i).itemIcon = itemIcon
            Exit For
        End If
    Next i
End Sub
' 获得菜单项图标
Public Function GetItemIcon(ByVal itemAlias As String) As StdPicture
    Dim i As Long
    For i = 0 To UBound(MyItemInfo)
        If MyItemInfo(i).itemAlias = itemAlias Then
            Set GetItemIcon = MyItemInfo(i).itemIcon
            Exit For
        End If
    Next i
End Function
' 设置菜单项文字
Public Sub SetItemText(ByVal itemAlias As String, ByVal itemText As String)
    Dim i As Long
    For i = 0 To UBound(MyItemInfo)
        If MyItemInfo(i).itemAlias = itemAlias Then
            MyItemInfo(i).itemText = itemText
            Exit For
        End If
    Next i
End Sub
' 获得菜单项文字
Public Function GetItemText(ByVal itemAlias As String) As String
    Dim i As Long
    For i = 0 To UBound(MyItemInfo)

上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] 下一页

上一篇:VB打造超酷个性化菜单(3)

下一篇:VB打造超酷个性化菜单(1)

VB打造超酷个性化菜单(2) 相关文章：

·打造极速XP系统之绝对秘籍

·ajax+php无刷新二级联动下拉菜单(省市联动)源码

·打造自己的“品牌机”——修改BIOS全屏开机画面

·javascript+xml实现二级下拉菜单，不会被任何标签或元素遮住

·Photoshop打造气质美女唯美海报

·Div+CSS+JS树型菜单，可刷新

·5款纯div+css制作的弹出菜单(标准且无js)

·Javascript +CSS横向三级导航菜单

·用JSP+JavaScript打造二级级联下拉菜单

VB打造超酷个性化菜单(2) 相关软件：

·模仿QQ式的菜单酷！

·『全是性能最好的杀毒杀马防火软件』为您打造安全系统『不用不知道』

·真正的微软网站菜单

·精品代码-下拉透明菜单

·最常用的下拉菜单！

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
[打印本页] [关闭窗口] 转载请注明来源：http://www.vipcn.net

	\| 帮助(？) \| 版权声明 \| 友情连接 \| 关于我们 \| 信息发布
Copyright 2007 www.vipcn.net All Rights Reserved.	鄂ICP备05000083号Powered by:viphot