مثال بسيط لكيفية استخدام الاداة OLE فى فتح ملفات Word & Excel و طباعتهما
صفحة 1 من اصل 1 • شاطر
مثال بسيط لكيفية استخدام الاداة OLE فى فتح ملفات Word & Excel و طباعتهما
بسم الله الرحمن الرحيم
المثال سيتضمن العناصر التالية :
عدد 2 زر أمر CommandButton
عدد واحد Common Dialog
عدد control OLE
و يتم رسمهما على النافذة كما فى الشكل التالى :
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
فى حدث النقر على زر الامر فتح ملف يتم كتابة الكود التالى :
ويمكنك ملاحظة أننا استخدمنا السطر الثالث فى الكود أعلاه لتحديد ملفات الورد و الاكسل فقط .... وعند النقر على زر الامر فتح يتم فتح مربع حوارى لاختيار ملف ورد أو أكسل لفتحة كما فى الشكل التالى :
و لطباعة محتوى الاداة control OLE نقوم بكتابة الكود التالى فى زر الامر طباعة
المثال سيتضمن العناصر التالية :
عدد 2 زر أمر CommandButton
عدد واحد Common Dialog
عدد control OLE
و يتم رسمهما على النافذة كما فى الشكل التالى :
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
فى حدث النقر على زر الامر فتح ملف يتم كتابة الكود التالى :
- الكود:
Private Sub Command1_Click()
With CommonDialog1
.DialogTitle = " Seleccionar documento "
.Filter = "Word|*.doc|" & " Excel|*.xls|"
.ShowOpen
If .FileName = vbNullString Then Exit Sub
Me.Caption = .FileName
OLE1.CreateLink .FileName
End With
End Sub
ويمكنك ملاحظة أننا استخدمنا السطر الثالث فى الكود أعلاه لتحديد ملفات الورد و الاكسل فقط .... وعند النقر على زر الامر فتح يتم فتح مربع حوارى لاختيار ملف ورد أو أكسل لفتحة كما فى الشكل التالى :
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
و لطباعة محتوى الاداة control OLE نقوم بكتابة الكود التالى فى زر الامر طباعة
- الكود:
Private Sub Command2_Click()
OLE1.Object.ActiveSheet.PrintOut Copies:=1, Collate:=True
End Sub
end.sub- .....
- تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 132
التقيم : 10
الدولة :
الجنس :
رد: مثال بسيط لكيفية استخدام الاداة OLE فى فتح ملفات Word & Excel و طباعتهما
اين انت يارجل ؟؟؟؟؟؟؟؟؟؟؟؟؟؟
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
» مواعيد عمل البنك الأهلي الكويتي في كل الفروع
» تردد قناة فارزيش الجديد 2021
» تجربتي مع زيت السمسم لتكبير المؤخرة
» ما هى أفضل نسخة وورد
» أروع برنامج لنقاط البيع OpenBravo POS مفتوح المصدر بالجافا وشرح كيفية التعديل عليه من خلال netbeans
» كتاب تعلم الجافا الرسومية بإستخدام NetBeans
» شبكة فودافون مصر
» نقل المكتوب فى ملف الوورد الى الفيسبوك
» حل اسئلة وتمارين بلغة جافا الجزء الثالث