الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال بخصوص الكائن OLE واستخدامه فى الفيجوال

مغلق
بدأه الطائر الأزرق في 29 ديسمبر 2005 · 6 رد · 920 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

:rolleyes:

السلام عليكم

عذراً فلدي مشكلة بسيطة في الفيجوال أتمنى أن ألقي الجواب

لابد أن لديكم فكرة ولو بسيطة في كيفية استخدام الكائن OLE في برنامج الفيجوال بيسك

سؤال هو كالتالي:

باستخدام الكائن OLE أريد فتح ملف بمجرد الضغط على الزر.

أريد كود لربط الكائن OLe بالملف بحيث يكون برمجياً، ليس بواسطة (استعراض) لأنه يتغير المسار أريده عند نقل الملف من جهاز لآخر لا يتغير المسار

أي باستخدام app.path

ثانياً:لا أريد أن أثقل عليكم:

لكن أريد معرفة ما الخطأ في البرمجة التالية

OLe1.creatlink app.path+"\j.pps",app.path+"\j.pps"

OLE1.action=7

فعند الضغط على الزر تظهر رسالة أن هناك خطأ في الكلمة creatlink فصلت creat عن link ضبط بس قال خطأ في اللي بعده.

ما أدري يمكن تعرفوا شو الخطأ أو العلة في عدم تنفيذ الكود

أتمنى أن أجد الجواب للأهمية

وشكراً مقدماً

تحياتي

الطائر الأزرق

تم تعديل هذه المشاركة بواسطة hanysaad في 31 ديسمبر 2005 في 03:11

#2

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

سيعمل برنامجك بدون تحديد الsoursitem

التصحيح :

Private Sub Command1_Click()
OLE1.CreateLink "C:\WINDOWS\Desktop\1.ppt"
OLE1.Action = 7
End Sub

********************* ******************** *********************

(( أشــهد أن لا اله الا الله ..... وأشهد أن محمد رسول الله ))

********************* ******************** *********************

لا تقـل من أيـن أبدأ

طـاعـة الله الـبدايـة

***

لا تقـل أين طـريـقي

شــرع الله الهـدايـة

***

لا تـقـل أيـن نعـيمي

جـنـة الله كـفـايـــــة

***

لا تقـل في الغـد أبدأ

ربمـــا تأتـي النهـايـــة

**************** **************** ****************

#3

أولاً شكراً سيدي الكريم على هذا الحضور

وشكراً على الرد وأخيراً لقينا الجواب والله أكثر من منتديين واضعة الموضوع وما لقيت الحل إلا هنا

الحمدلله

اقتباس
سيعمل برنامجك بدون تحديد الsoursitem

البرنامج عند نقل لجهاز آخر تتغير المسارات أو عند نقله لـCD أفلا يوجد كود برمجي لتفادي هذه المشكلة باستخدام APP.path

بحيث يحدد المسار في نفس المجلد

البريشي كتب:
بسم الله الرحمن الرحيم

التصحيح :

Private Sub Command1_Click()
OLE1.CreateLink "C:\WINDOWS\Desktop\1.ppt"
OLE1.Action = 7
End Sub

لكن عفواً هذا الكود أضعه مثل ما هو في نافذة البرمجة ويمشي حال البرنامج

OLE1.CreateLink "C:\WINDOWS\Desktop\1.ppt"

OLE1.Action = 7

و PPt هل هذا الامتداد

وانقل مجلد المشروع للمحرك C وهل أضعه في مجلد WINDOWS أو يكفي أن أضعه في المحرك C

وهل Desktop في الكود هو مجلد في المحرك C أو المجلد الذي أنا مستخدمتنه.

اتمنى أنك فاهم ويش مكتوب

تحياتي

تم تعديل هذه المشاركة بواسطة الطائر الأزرق في 29 ديسمبر 2005 في 21:58

#4

أخي الطائر الازرق

هذا الكود لكي يفتح الملف من البرنامج نفسه 

Private Sub Command1_Click()
dim a as string
a=app.path
if right(a,1) <> "\" then 
a=a & "\"
else
a=a
end if 

OLE1.CreateLink  a & "1.ppt"
OLE1.Action = 7

End Sub

بهذا الكود سيفتح الملف من مكان البرنامج

1 هو اسم الملف

ppt هو امتداد الملف

#5
yasserstars كتب:

OLE1.CreateLink  a & "1.ppt"

OLE1.Action = 7

End Sub

بهذا الكود سيفتح الملف من مكان البرنامج

1 هو اسم الملف

ppt  هو امتداد الملف

السلام عليكم

شكراً سيدي الكريم على هذا الوجود وعلى الكود أتمنى أن يمشي وياه

بس ما عليش

اقتباس
Private Sub Command1_Click()

dim a as string

a=app.path

if right(a,1) <> "\" then

a=a & "\"

else

a=a

end if

هل أضع هذا في ملف مديول أو على طول في زر الcommand وهو يتعرف عليه على طول

وهل إذا نقلته لـCD ما يتغير المسار يطل زي ما هو

وشكراً ثانية

تقبل تحياتي

الطائر الأزرق

#6

أخي الكريم

هذا الكود تضعه في المكان الذي تريدة اذا اردت فتح الملف عند تحميل النموذج فيجب ان تضعه في حدث الفورم لود للنموذج واذا كنت تريد ان يفتح الملف عند الضغط علي زر فيجب ان تضعه في الزر

لاحظ انه يجب ان يكون الملف 1.ppt بجوار ملف البرنامج أو مع ملف البرنامج في فولدر واحد

#7
yasserstars كتب:
أخي الكريم

هذا الكود تضعه في المكان الذي تريدة اذا اردت فتح الملف عند تحميل النموذج فيجب ان تضعه في حدث الفورم لود للنموذج  واذا كنت تريد ان يفتح الملف عند الضغط علي زر فيجب ان تضعه في الزر 

لاحظ انه يجب ان يكون الملف 1.ppt  بجوار ملف البرنامج أو مع ملف البرنامج في فولدر واحد

سيدي الكريم

شكراً جزيلاً كنت أتمنى أن أسبقك في الرد

فقد وضعت الكود وضبط

كم أنا ممتمنة لك على هذه الخدمة

الحمدلله مش حاله

وأتمنى أنه ما أشوف خلل ثاني في البرنامج منشان أخلص كل شيء

شكراً للمرة الألف

بالتوفيق إن شاء الله وإلى الإمام

تحياتي

الطائر الأزرق:)

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…