اخفاء ايقونة النموذج

وعليكم السلام ورحمة الله وبركاته...

إذا كنت مستغنياً عن أزرار الإغلاق والتكبير والتصغير، فبإمكانك بكل بساطة أن تعين خاصية Control Box للنموذج إلى No. هذا يؤدي إلى عدم ظهور أزرار التكبير والتصغير والإغلاق في شريط عنوان النموذج. زر الإغلاق يمكن الاستعاضة عنه بزر أمر في النموذج، كما أن التكبير بالنقر المزدوج ما يزال يعمل إن لم تحدد أنت الخاصية Min Max Buttons إلى None. يمكنك استكشاف الاحتمالات الممكنة بالتجربة مع الخصائص الثلاث:

Control Box

Min Max Button

Close Button

في خصائص النموذج...

أما إن كنت تحتاج إلى هذه الأزرار، وتفضل المعالجة بالكود، فيمكنك استخدام دالة الـ API التالية:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_SETICON As Long = &H80
Const ICON_SMALL As Long = 0

Private Sub Form_Load()
    Dim lret As Long

    lret = SendMessage(Me.hwnd, WM_SETICON, ICON_SMALL, Null)
End Sub

تم استخدام الدالة في حدث تحميل النموذج، وفي قسم التصريحات من النموذج، تم التصريح عن الدالة وتعريف الثابتين WM_SETICON وICON_SMALL. بإمكانك نسخ ولصق الكود إلى النموذج مباشرة .

والله أعلم.

ما شاء الله استاذ احمد مبارك

حلول احترافية دائمااا ... وفقت لكل خير

طريقة اخرى..

قد تكون غبية وبسيطة مقارنة بفكرة اخي احمد مبارك العبقري

لكنها تقلل من الكود

عمل ايوقنه لونها ازرق على لون شريط العنوان النموذج

وضعها في مسار معين

تعيين ايقونة المشروع ككل لهذه الايقونة

ولكن هذه تستعمل لكل النماذج والشاشات..

تحياتي

لكن اخ همام هذه الطريقه يمكن ان يكون في حاسوب اخر style اخر مثلا اصدار اخر للوندوز او color اخر يختلف عن الحاسبة الاولى الذي صمم عليها المثال

و سوف تظهر الايقونه بنفس اللون الاول ؟؟:unsure::blush: