منتدى مصر التقني
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

مثال بسيط لكيفية استخدام الاداة OLE فى فتح ملفات Word & Excel و طباعتهما

اذهب الى الأسفل

مثال بسيط لكيفية استخدام الاداة OLE فى فتح ملفات Word & Excel و طباعتهما  Empty مثال بسيط لكيفية استخدام الاداة OLE فى فتح ملفات Word & Excel و طباعتهما

مُساهمة من طرف end.sub السبت فبراير 15, 2014 12:49 pm

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

المثال سيتضمن العناصر التالية :

عدد 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
end.sub
.....
.....

تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 132
التقيم : 10
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

مثال بسيط لكيفية استخدام الاداة OLE فى فتح ملفات Word & Excel و طباعتهما  Empty رد: مثال بسيط لكيفية استخدام الاداة OLE فى فتح ملفات Word & Excel و طباعتهما

مُساهمة من طرف أحمد مناع الجمعة نوفمبر 22, 2019 8:53 am

اين انت يارجل ؟؟؟؟؟؟؟؟؟؟؟؟؟؟

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
أحمد مناع
أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 1077
النقاط : 201961
التقيم : 130
الدولة : مصر
الجنس : ذكر

https://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى