Jump to content

اضافة ايقونة الى اليوزرفورم

Recommended Posts

الرجاء من خبراء الاكسل شرح هذا الكود واعطاء مثال على ذلك بارك الله فيكم 

Private Sub AddIcon()

   Dim hWnd As Long
    Dim lngRet As Long
    Dim hIcon As Long
'    hIcon = Sheets("1").Shapes("Picture").Handle
   hIcon = Sheets("1").Image1.Picture.Handle
    hWnd = FindWindow(vbNullString, Me.Caption)
    lngRet = SendMessage(hWnd, WM_SETICON, ICON_SMALL, ByVal hIcon)
    lngRet = SendMessage(hWnd, WM_SETICON, ICON_BIG, ByVal hIcon)
    lngRet = DrawMenuBar(hWnd)
End Sub

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    No registered users viewing this page.

  • Create New...

Important Information