اذهب الي المحتوي
أوفيسنا

med-7

عضو جديد 01
  • Posts

    14
  • تاريخ الانضمام

  • تاريخ اخر زياره

مشاركات المكتوبه بواسطه med-7

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

    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

  2. استاذنا الكريم لله ماأعطى ولله ماأخذ إن لله وإن إليه راجعون، عظم الله أجركم ونسأل من الله العلي القدير أن يتغمد مفقودكم برحمته الواسعة وأن يحشره مع النيين والصديقين والصالحين والشهداء وحسن اولئك رفيقا،، وأن يرزقكم الصبر والسلوان، وأن يجعلك أستاذنا الكريم ، بفضل اعمالكم الجليلة ممن قال فيهم رسول الله صلى الله عليه وسلم °° ينقطع عمل أبن آدم إلا من ثلاث صدقة جارية وعلم ينتفع منه الناس ، وولد صالح يدعو له"

    • Like 1
  3. ان الأزمة تلد الهمة ، ولايتسع الأمر إلا إذا ضاق، ولايظهر فضل الفجر إلا بعد الظلام الحالك ، أوشك فجر الشرق أن بنببثق لقد ادلهمت فيه الخطوب ، وليس بعد هذا الضيق إلا الفرج ، سنة الله في خلقه.

×
×
  • اضف...

Important Information