سؤال في ( ملف المصادر + ملفات ini + جعل الادوات

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

بالنسبة لملفات الموارد فمرفق ملف يشرح كيفية التعامل معها

بالنسبة للسؤال الثانى فهذا الكود يؤدى الغرض باذن الله

Option Explicit 
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long 

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 

Private Const WS_EX_LAYOUTRTL = &H400000 
Private Const GWL_EXSTYLE = (-20) 

Public Sub SetRtoL(Ctl As Control) 
Ctl.Visible = False 
SetWindowLong Ctl.hwnd, GWL_EXSTYLE, GetWindowLong(Ctl.hwnd, GWL_EXSTYLE) Or WS_EX_LAYOUTRTL 
Ctl.Visible = True 
End Sub

الكود مجرب مع الترى فيو والليست فيو

بالنسبة لملفات INI فالتعامل معها لايختلف عن التعامل مع ملفات TXT العادية وتستخدم لتخزين بيانات للبرنامج وهذه البيانات تكون بسيطة بحيث لاتحتاج لقاعدة بيانات لتخزينها فيمكنك مثلاً استخدامها عند عمل برنامج باللغتين العربية والانجليزية تقوم بتخزين الكلمات الموجودة فى برنامجك بداخله وتستدعى الكلمات حسب اللغة المطلوبة

يقسم ملف INI عادة الى Section ويوضع بين القوسين [sectionName] ثم يليه البيانات الخاصة بهذا القسم وليكون كالتالى

[Setup Information]
UserName=Ghost2010
Serial=arabteam2000
CompanyName=ArabSoft
[Files]
C:\File1.txt
C:\File2.inf
C:\File3.exe

ولتسهيل التعامل مع هذه الملفات تستخدم دوال API خاصة لهذا النوع من الملفات وهى

WritePrivateProfileString , WritePrivateProfileSection

GetPrivateProfileString , GetPrivateProfileSection

تم التحرير لوضع الملف

RES.zip

ماشاءالله عليك أخي محمد

الحمد لله

شكرا اخي GHOST2010 على هذا الرد الرائع والله يكون في عونك ... اخي سأحاول تطبيق ما ارفقته لي من هذا المشاركات وتجربتها ...

وشكرا

بسم الله الرحمن الرحيم

اخي GHOST2010 بالنسبة لملفات ini قلت انها تستخدم لتخزين معلومات بدلا عن قواعد البيانات كتحويل اللغة العربية الى الانجليزية وكما انها تتكون من sction اشكرك على المقدمة ولكن اريد منك التوضيح اكثر والامثلة المرفقة على ذلك وشكرا

جارى تحضير المثال............ :rolleyes:

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

هذا المثال سيوضح لك كيفية القراءة من ملفات INI وهو غاية فى البساطة لتوضيح الطريقة فقط

افهم الطريقة واستخدمها فى برامجك :rolleyes:

INI.rar

بسم الله الرحمن الرحيم

شكرا اخي GHOST2010

اخي لقد جربت كود لتحويل الادوات الى اليمين ولكن لم يفد بالغرض ... لقد وضعت الكود في موديول ارجوا منك التوضيح

*** اخي بالنسبة لملف المصادر وجدت صعوبة خاصة في ارفاق ملفات الصوت وملف اكسيس واستدعائها الى البرنامج ولم افهم الكود اللازم مما وجدت ان الكود يتغير .. فلدي ملف اكسيس اربد ربطه بالبرنامج مع العلم ان استخدم تقنية ADO لفتح القاعدة والجداول ويكون بالشكل التالي :

في قسم التصريحيات :

Dim db As New ADODB.Connection

Dim rs As New ADODB.Recordset

في قسم اللود :

db.Provider = "Microsoft.JET.OLEDB.4.0;"

db.Open App.Path & "\db1.mdb"

rs.Open "[phone]", db, adOpenStatic, adLockReadOnly

والمشكلة كيف استدعى ملف الاكسيس المسمى db1 من ملف المصدر

وكذلك قضية ملف الصوت

وشكرا

بسم الله الرحمن الرحيم

اين انت يا اخي ....

أخي الفاضل:

إسمح لي بأن أجيبك على سؤالك :

بالنسبة للتعامل مع ملفات المصدر عموما فانت تضع اي نوع من أنواع الملفات داخل ملفات المصدر أيا كان نوع الملفات و حسب التوزيع المتاح لك من برنامج مدير المصادر المرفق بالفيجوال بيسك أي إلى التصنيفات الآتية :

- نص

- مؤشر الفأرة

- أيقونة

- صورة

- ملف من أي إمتداد آخر ( و هو ما سوف نستعمله مع ملفات الصوت أو قاعدة البيانات )

و طريقة التعامل مع كل هذه الأنواع واحدة و هي أن تفتح ملف المصدر , ثم تقوم بنقل محتويات الملف إلى مسار البرنامج أو إلى أي مسار آخر تقوم بتحديده , وفي النهاية و بعد إنتهاء إستعمال الملف تقو م بمسح الملف (إختياري و حسب حاجة البرنامج), و الكود التالي يوضح كيف نقوم على سبيل المثال بإخراج ملف صوت من داخل ملف المصدر:

Public Sub LoadDataIntoFile(id As Integer, FileName As String)
    Dim myArray() As Byte
    Dim myFile As Long
    If Dir(FileName) = "" Then
        myArray = LoadResData(id, "CUSTOM")
        myFile = FreeFile
        Open FileName For Binary Access Write As #myFile
        Put #myFile, , myArray
        Close #myFile
    End If
End Sub

في الكود السابق قمنا بتحميل الملف الموجود داخل ملف المصدر و تجهيزه للإستخدام لكن سوف ينتظر الكود أن يتم إستدعائه .

في الكود التالي و الذي ممكن أن تضعه في أي حدث تريد , على سبيل المثال في الـ Command1_click أو في الـ Form_load أو حسب ما يتطلب البرنامج نقوم بإستدعاء الروتين السابق و تحميل الملف في المسار المراد و بإسم temp.wav :

 LoadDataIntoFile 101, App.Path & "\temp.wav"

و بهذا نكون قد قمنا بتحميل الملف الصوتي من داخل ملف المصدر إلى المسار المراد بإسم temp.wav .

الآن سوف نقوم بتشغيل الملف الصوتي .

و لهذا يجب إستعمال الدوال الآتية في منطقة الإعلان العام General :

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_LOOP = &H8
Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2

و بعد ذلك نكتب الكود التالي في نفس حدث تحميل الملف :

 sndPlaySound App.Path & "\temp.wav", SND_LOOP + SND_ASYNC

هذا هو كل ما يتعلق بتحميل و تشغيل ملفات الصوت من داخل ملفات المصدر و نفس الكلام ينطبق على قواعد البيانات من حيث تحميل قاعدة البيانات من داخل ملف المصدر و يتم بعد ذلك التعامل مع القاعدة بشكل طبيعي مع ملاحظة ان أي تعديل في البيانات المسجلة في القاعدة المستخرجة لن يتم على الملف المحفوظ داخل ملف المصدر و لكن يتم على الملف المستخرج فقط لأنه لا يمكن التعديل على الملف التنفيذي ( EXE ) بعد بنائه أول مرة .

ملاحظة :

من عيوب ملفات المصدر أنها تزيد من حجم الملف التنفيذي للبرنامج حسب حجم الملف المحتوى داخله مما يؤثر سلبا على كفائه البرنامج و يؤدي إلى بطء الجهاز.

و لك مني جزيل الشكر,,, (h)

شكرا اخي Alaa Awaad على الرد ساحاول تطبيق ما ارفقته لي وشكرا

اخي GHOST2010 بالنسبة لملفات INI اشكرك على الملف الذي ارفقته ولكن هل يمكنني ايضا تغيير القوائم واشرطة الادوات وشريط الحالة .. ارجوا التوضيح لي بمثال وشكرا

اقتباس

اخي GHOST2010 بالنسبة لملفات INI اشكرك على الملف الذي ارفقته ولكن هل يمكنني ايضا تغيير القوائم واشرطة الادوات وشريط الحالة .. ارجوا التوضيح لي بمثال وشكرا

يمكن تغيير اى خاصية لاى اداة طالما ان الخاصية ليست للقراءة فقط

بالنسبة لكود تحويل اتجاه الادوات فقد جربته ويعمل دون اى مشاكل فقط كل ماعليك هو تمرير اسم الاداة الى الاجراء SetRtoL فى حدث تحميل الفورم

Private Sub Form_Load()
SetRtoL TreeView1
End Sub

الله يعطيكم العافــــــــية

أخى علاء شكرا لك الشرح وافى ومفصل

ولكنى طبقت نفس الكود ولكن لاستخراج صورة من البرنامج وليس ملف صوتى

وغيرت التالى :

myArray = LoadResData(id, "CUSTOM")

إلى:

 myArray = LoadResPicture(101, vbResBitmap)

وغيرت :

 LoadDataIntoFile 101, "c:\temp.ًWav"

إلى :

 LoadDataIntoFile 101, "c:\temp.bmp"

ولكن عند التشغيل أظهرت لى رسالة :

can't Assign to array

وعلم لى على الكود الأول وهو

 myArray = LoadResPicture(101, vbResBitmap)

فأرجو المساعدة لمعرفة المشكلة و

ولك منى جزيل الشكر