vb的菜单栏图标设置了为什么显示不出来？？
PrivateSubform_Load()DimiAsIntegerDimmenu1AsLongDimmenuidAsLongmenu1=GetMenu(Me.hwnd)...
Private Sub form_Load()
Dim i As Integer
Dim menu1 As Long
Dim menuid As Long
menu1 = GetMenu(Me.hwnd)
For i = 1 To 4
menuid = GetMenuItemID(GetSubMenu(menu1, 0), i - 1)
SetMenuItemBitmaps menu1, menuid, MF_bitmap, Image1.Picture, Image1.Picture
next
end sub
、哪里出错了？是图片的问题吗？？ 展开
Dim i As Integer
Dim menu1 As Long
Dim menuid As Long
menu1 = GetMenu(Me.hwnd)
For i = 1 To 4
menuid = GetMenuItemID(GetSubMenu(menu1, 0), i - 1)
SetMenuItemBitmaps menu1, menuid, MF_bitmap, Image1.Picture, Image1.Picture
next
end sub
、哪里出错了？是图片的问题吗？？ 展开
1个回答
展开全部
可以的
更多追问追答
追问
能把你的图标发给我试试吗？
追答
随便一张图 都可以 只要能被 图片控件加载的
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
