[ تمت الإجابة ]تحديد صورة ايقونة برنامجي بواسطة الكود

اخي يمكنك وضع الايقونه في نفس مجلد قاعدة البيانات أو البرنامج وتكتب المسار بالطريقة التالية في الصورة اعلاه

.\iconfile.ico

بشرط ان تكون الايقونه في نفس المجلد.

تحياتي

عزيزي..لدي هذا الكود من موقع اجنبي ومجرب

Private Sub Form_Load()
ChangeProperty "AppIcon", dbText, "C:\Supplychain\Icons\sup.ico"
End Sub



Function ChangeProperty(strPropName As String, varPropType As String, varPropValue As Variant) As Integer
Dim dbs As DAO.Database
Dim prp As DAO.Property
Set dbs = CurrentDb
On Error GoTo PROC_ERROR
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
PROC_EXIT:
On Error Resume Next
Set prp = Nothing
Set dbs = Nothing
Exit Function
PROC_ERROR:
If Err.Number = 3270 Then
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
ChangeProperty = False
Resume PROC_EXIT
End If
End Function

تضع الحدث الاول في النموذج الذي يظهر مع بدء تشغيل البرنامج

طبعا يجب ان يكون لديك ملف الايقونة مخزنا على جهازك وتضع مساره كاملا في الكود

او تستخدم كود

 CurrentProject.Path

وترفق معه مسار الايقونة

تحياتي

بارك الله فيـــــــــــــــــــــــــكما

كل طرقكم تؤدي إلى المطلوب

بس السؤال الثاني للأخوة المشرفين

كيف اغير اسم الظهور

اسم مخالف 47 كتب:

بارك الله فيـــــــــــــــــــــــــكما

كل طرقكم تؤدي إلى المطلوب

بس السؤال الثاني للأخوة المشرفين

كيف اغير اسم الظهور

اخي الفاضل

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

الى اي اسم تريد التغيير

اكتب لنا هنا اسم الظهور المطلوب حتى يتم التعديل

وحاول تختار لك اسم عربي او انجليزي يكون مفهوم ولا يكون مكرر في المنتدى

بالتوفيق

بارك الله فيكم كنت بحاجة لهذا الكود

الشكر موصول للدكتورة/ زهرة

ليكن الاسم الجديد

الفقير الى الله

إن أمكن

اخي الفاضل

الفقير الى الله

و

الفقير الى الله تعالى

اسماء محجوزه مسبقا

شوف لك اسم آخر

آسف على التأخير

طيب ليكن احد هذه الاسماء على الترتيب إن امكن

عبيدالله

سائل الرضوان

شريف الدين

اخي الكريم : عبيدالله

تم التعديل بناء على رغبتك

بالتوفيق