كيف أقوم بعمل toolbar متحركة على سطح المكتب ؟

نسيت أضيف رابط لـ API Guide

www.allapi.net

أخي Pharonic Guy

هل تعرف طريقة لإضافة البرنامج إلى قائمة البرامج التي تعمل مع بداية تشغيل الجهاز ؟

حاولت التجربة لكنه لم يستطع قراءة قاعدة البيانات لإنه يبدو أن الـPath تغيّر أو شئ من هذا القبيل

شكرا ً والسلام,

مرحبا مرة أخري أخي ابن الشريف

بالنسبة للنقطة الأولي (وضع البرنامج ضمن قائمة Start Up)

فيمكن الاعتماد علي أبسط طريقة .. والتي تعتمدها معظم البرامج .. وهي وضع البرنامج في مفتاح Run..

HKEY_CURRENT_USR\Software\Microsoft\Windows\CurrentVersion\Run

Const REG_SZ = 1
Const HKEY_CURRENT_USER = &H80000001
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Sub SaveString(hKey As Long, strPath As String, strValue As String, strData As String)
	Dim Ret
	RegCreateKey hKey, strPath, Ret
	RegSetValueEx Ret, strValue, 0, REG_SZ, ByVal strData, Len(strData)
	RegCloseKey Ret
End Sub
Sub DelString(hKey As Long, strPath As String, strValue As String)
	Dim Ret
	RegCreateKey hKey, strPath, Ret
	RegDeleteValue Ret, strValue
	RegCloseKey Ret
End Sub
Private Sub Command1_Click()
 SaveString HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run", "El-Batar", App.Path & "\" & App.EXEName & ".exe"
End Sub

Private Sub Command2_Click()
	DelString HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run", "El-Batar"
End Sub

بالنسبة للنقطة الثانية (اختلاف المسار)

فانا لم أفهم الجملة جيدا ..هل هي جملة مكملة للنقطة الأولي.. ام أنها مشكلة جديدة ؟؟ ..

StartUP.rar

أشكرك أخي Pharonic Guy لتفاعلك ولحماسك على البرنامج الذي إن شاء الله سيكون عند حسن ظنكم : )

ما أقصده أخي أني جربت طريقة أخرى لوضع البرنامج في قائمة البرامج التي تعمل مع بداية تشغيل النظام..

وسواء بطريقتي أو طريقتك هناك مشكلة...

إذا كان البرنامج يتصل بقاعدة بيانات موجودة على نفس الـFolder الذي فيه البرنامج فإنه بعدما يتم إعادة تشغيل الجهاز تظهر لي رسالة تقول:

قاعدة البيانات ليست موجودة في Documents\User\battar_db.mdb

أي أن الـPath تغيّر ...

لكن حينما قمت بوضع قاعدة البيانات في مسار محدد ثابت مثل C:\Windows\System32

لم توجد المشكلة ...

على كل حال أنا تحايلت على المشكلة ووجدت لها هذا الحل فإن كان لك حل آخر يا ليت تعطيني إياه : )

مشكور

والسلام,

أخي ابن الشريف

هل قمت بتجربة استخدام الوظيفة path للكائن APP ..والتي تعيد مسار المجلد الحالي لملف ال EXE .

فقط تحتاج لوضع قاعدة البيانات بجانب ال EXE ..

واي جملة فتح لقاعدة البيانات ستكون كالتالي :

OpenDatabase App.Path & "\battar_db.mdb"

نجحت !!

حقا ً تستحق الشكر أخي الكريم : )

لك مني شكر خاص في أول موضوع عن البتار حين صدوره إن شاء الله

جزاكم الله كل خير..وان شاء الله يكون برنامجمفيد ولو فى اى حاجه اقدر اعملها انا موجود..تحيه خاصه لPharaonic_Guy

انت قدها أخي FemTo

يبقي اي مشاكل تقابلك أخي ابن الشريف ولم أكن موجودا .. فأخي FemTo سيفيدك بالحل بإذن الله ..

الحمد لله إنتهيت من النسخة الأولى للبرنامج وهي الآن في مرحلة الإختبار القاسي

لي أسئلة لتحسينات قد أضمها للنسخ التالية إن شاء الله:

1- كيف أضع صورة في الـPopup menu ؟

2- هل من الممكن قراءة RSS من داخل الفيجوال بيسك 6 (وليس الدوت نت) ؟

وشكرا ً

بالنسبة لإضافة أيقونات للقوائم.. فمرفق مثال مبسط وجدته عندي ..

فقط تحتاج لمعرفة وظيفة ومعاملات الدوال

GetMenu

GetSubMenu

GetMenuItemID

SetMenuItemBitmaps

والتي تستطيع الحصول علي شرح مفصل لها من برنامج API-Guide والذي يمكنك الحصول عليه من موقع www.allapi.com

--------------------------------------

بالنسبة للنقطة الثانية فقل لي ماذا تريد أن تفعل بالضبط ..

Menu.rar

ما أريده هو أن تقرأ الـToolbar الموجودة في البرنامج أحدث الشبهات على الإنترنت من ملف RSS كشريط الأخبار

وصلت أم تريدني أن أشرح أكثر : ) ؟

مشكور أخي والسلام

واضح أنك تريد فعل ذلك

ولكن أنا بأطلب منك تفاصيل أكثر .. كرابط ملف ال RSS لأقوم بالتطبق عليه..