( تمت الفائدة ) - طريقة اضافة ايقونة لعنوان الفورم

[osama ababneh]

اخواني الاعزاء

وجدت هذه الطريقة في احد المواقع الاجنبية لاضافة ايقونة للفورم (عنوان الفورم) واحببت ان اشارككم بها

1- انشاء مودل جديد من خلال محرر الكود ووضع الوظيفة التالية فية

Private Declare Function LoadImage Lib "user32" _

   Alias "LoadImageA" _

   (ByVal hInst As Long, _

   ByVal lpsz As String, _

   ByVal un1 As Long, _

   ByVal n1 As Long, _

   ByVal n2 As Long, _

   ByVal un2 As Long) _

   As Long


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


Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long


Private Const WM_SETICON = &H80

Private Const IMAGE_ICON = 1

Private Const LR_LOADFROMFILE = &H10

Private Const SM_CXSMICON	As Long = 49

Private Const SM_CYSMICON	As Long = 50


Public Function SetFormIcon(hWnd As Long, strIconPath As String) As Boolean

	Dim lIcon As Long

	Dim lResult As Long

	Dim X As Long, Y As Long


	X = GetSystemMetrics(SM_CXSMICON)

	Y = GetSystemMetrics(SM_CYSMICON)

	lIcon = LoadImage(0, strIconPath, 1, X, Y, LR_LOADFROMFILE)

	lResult = SendMessage(hWnd, WM_SETICON, 0, ByVal lIcon)

End Function

2- في الفورم الذي تريد اضافة الايقونة لة وفي حدث عند الفتح ضع الكود التالي

 SetFormIcon Me.hWnd, "C:\MyIcon.ico"

مع مراعاة انه يجب تغيير المسار حسب المجلد واسم الملف

مع تمنياتي بالتوفيق

[رعد داود]

مشكوراخي على هذا الجهد الطيب

[K0H0A0LED]

الأستاذ الفاضل ...

للنجاحات أناس يقدرون معناه ، وللإبداع أناس يحصدونه ، لذا نقدّر جهودك المضنية ، فأنت أهل للشكر والتقدير ..فوجب علينا تقديرك ...فلك منا كل الثناء والتقدير

خالد مصطفى

[ابوخليل]

مشرفنا العزيز الأستاذ أسامة :

مشكور على هذه المشاركة الجميلة

ولن اكتفي بشكر اللسان بل سأضيف لمسة بسيطة كل منا يحتاجها وهي جعل مسار الأيقونة هو المسار الافتراضي للبرنامج ، فقط ضع الأيقونة في مجلد البرنامج ، واستبدل كود الفورم السابق بهذا :

Dim ImgPath As String

ImgPath = Application.CurrentProject.Path & "\MyIcon.ico"

SetFormIcon Me.hWnd, ImgPath

تم تعديل يناير 6, 2010 بواسطه أبو الأنس

[osama ababneh]

اخي العزيز المتواضع دائما ابو الانس

ولن اكتفي بشكر اللسان بل سأضيف لمسة بسيطة

مين بحكي لمسة بسيطة ..... هذي لمسة سحرية مثل صاحبها "ابو الانس صاحب اللمسات السحرية"

[أبا عمر]

ينقل 

...........