بسم الله الرحمن الرحيم
السلام عليكم اخواني الكرام ورحمة الله وبركاته
نظرا لكثرة أسئلة الأعضاء حول التعامل مع الملفات , قمت بعمل هذا المثال متواضع والذي يشرح التعامل مع أكثر أنواع الملفات شيوعاً
وهي كالتالي : ملفات Adobe Reader PDF
ملفات الصوت
ملفات الفيديو
ملفات الصور
الملفات التي تفتحها المفكرة
ملفات برنامج Word
كنت سأضع شرح التعامل مع الـAccess والـ Excel ولكن أجلتها للإصدار الثاني إن شاء الله
متطلبات عمل المشروع :
يجب أن تكون المكتبات التالية ممكنة في قائمة الـ References
Adobe Acrobat 8 Browser control Type Library 1.0
Acrobat Access 3 Type Library
FlashAccessibility
Microsoft Word 12.0 Object Library
ويجب أن تكون الأدوات التالية ممكنة في قائمة الـ Components
Adobe Acrobat 7.0 Browser control Type Library 1.0
Microsoft Common Dialog Control 6
Microsoft Multimedia Control 6
Microsoft Rich Textbox control 6 (SP4)
Microsoft Windows Common Controls-2 5.0 (SP2)
ملحوظة : *قد تختلف الإصدارات اللي عندك عن الإصدارات المذكرة , لكن إن شاء الله ستعمل*
ملحوظة أخرى : *بعد فك الضغط عن الملف المرفق , تجد مشروعين , الكود المصدري موجود في Project1
نبدأ الشرح باسم الله :
سأقوم بشرح أهم الأكواد اللي في المشروع
1/ الأكواد التي تتعامل مع الصوت :
MMControl1.FileName = txtPath.Text
MMControl1.Command = "Open"
MMControl1.Command = "Paly"
السطر الأول يعين مسار الملف الصوتي
السطر الثاني يعطي أمرا لفتح الملف
السطر الثالث يعطي أمرا لتشغي الملف
2/ الأكواد التي تتعامل مع الفيديو :
Ani.Open txtPath.Text
تحديد مسار ملف الـ AVI لفتحه
Ani.Play
Ani.Close
Ani.Stop
السطر الأول لإيقاف الفيديو مؤقتا
السطر الثاني لتشغيل الفيديو
السطر الثالث لإغلاق ملف الفيديو
3/ الأكواد التي تتعامل مع الـ Word
Selection.Text = RTB.Text
Selection.InsertBefore Text:=RTB.Text
ElseIf chkB.Value = 1 Then
Selection.InsertBefore Text:=RTB.Text
ElseIf chkA.Value = 1 Then
Selection.Text = RTB.Text
ElseIf chkA.Value = 0 And chkB.Value = 0 Then
Exit Sub
End If
If chkA.Value = 1 And chkB.Value = 1 Then
تلاحظ استخدام الأمر Selection وهو يرمز إلى ملف الوورد المفتوح حاليا
السطر الثالث يضيف نص مربع النص RTB قبل نص ملف الوورد
السطر السابع يضيف نصا إلى الملف
ولمزيد من الشرح المفصل حول التعامل مع الوورد والأكسل اضغط هنا
4/ أكواد التعامل مع الصور
SavePicture picMain.Picture, dlgSave.FileName
استخدمت الدالة SavePicture لحفظ الصورة , وهي تقبل وسيطتين
الصورة المراد حفظها , ومسار الحفظ
5/ أكواد التعامل مع الـ PDF
PDF.LoadFile(txtPath.Text)
أستخدمت الأسلوب LoadFile لفتح ملف الـPDF
PDF.setZoomScroll txtZoomP.Text, txtLeft.Text, txtTop.Text
استخدمت الأسلوب SetZoomScroll , وهو يقبل 3 وسيطات
نسبة التكبير
موقع التكبير من اليسار
موقع التكبير من أعلى
والله يعلم , إني أنا Ala2 VB وضعت هذا بمجهودي الخاص , ما عدا حكاية الوورد فهي من الكتاب أعلاه
فأرجو من أراد النقل يكتب منقول
جزاكم الله خيرا
وأي استفسار أخبروني
