احتاج الى كود ربط بين كوماند معين وبور بوينت

ابن الانبار كتب:

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

لدي مشروع فيجوال واحتاج الى كود ربط بين كوماند  معين  وبور بوينت 

الرجاء الجواب بالتحديد عند الضغط على الكواند تظهر سلايدات عرض مصممة مسبقا وجزال الله القائمين عل هذا المنتدى كل خير

←

رجا الترزي

مرحبا...

انا عضو جديد في هالموقع الرائع ....

والاجابة على سؤالك يا اخي هو باستخدام الميثود شيل Shell ومن خلالها تتمن من فتح ملفات مثل الملفات النصية وغيرها وهي كمان بتفتح البور بوينت

مثال على طريقة الاستخدام كما يلي/

Sub ShellExec()
	Dim strFile As String
	Dim strAction as String
	Dim lngErr As Long

	' Edit this:
	strFile = "c:\somefile.txt"  ' the file you want to open/etc.
example strfile = app.path & " \name of file .ppt"
	strAction = "OPEN"  ' action might be OPEN, NEW or other, depending on what you need to do

	lngErr = ShellExecute(0, strAction, strFile, "", "", 0)

	' optionally, add code to test lngErr

End Sub

و شكرا

طلع على لساني شعر: /index.php?showtopic=29343 قواعد المشاركة يا شباب, اختيار عنوان مناسب للموضوع يا عالم :(

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

بإمكانك إستخدام أداة الـ Ole والموجودة على شريط الأدوات وعندما تقوم بوضعها على سطح المكتب ستظهر لك شاشة لإختيار نوع الملف. وفي سؤالك سيكون نوع الملف هو الباور بوينت حيث تقوم بإختياره من القائمة التي ستظهر لك في هذه الشاشة.

ومن تم تقوم بالتالي:

Private Sub Command2_Click()
OLE1.SourceDoc = App.Path & "\إسم ملفك.ppt"
OLE1.CreateLink OLE1.SourceDoc, OLE1.SourceItem
OLE1.DoVerb
End Sub

Private Sub Command2_Click()
OLE1.SourceDoc = App.Path & "\User's Guid.doc"
OLE1.CreateLink OLE1.SourceDoc, OLE1.SourceItem
OLE1.DoVerb
End Sub

معليش كان فيه خطأ لأن الباور بوين يكون .ppt

Private Sub Command2_Click()
OLE1.SourceDoc = App.Path & "\إسم ملفك.ppt"
OLE1.CreateLink OLE1.SourceDoc, OLE1.SourceItem
OLE1.DoVerb
End Sub

Private Sub Command1_Click()
Shell "Start " & FileName
End Sub

السلام عليكم

الاخ ntta366 جربت الكود هذا اليوم ولم ينجح وكان الاعتراض في البرنامج على الكود OLE1.CreateLink OLE1.SourceDoc, OLE1.SourceItem اما الاجوبة الجديدة ساجربها اليوم ان شاء الله واشكركم على هذاا التعاون معي وجزاكم الله عني الف خير

السلام عليكم....

عليك القيام بتسجيل ملف الملف باور بوينت عن طريق save as ، ثم إختار من قائمة الـ save as type التي ستظهر لك في شاشة الـ save as .

ومن تم إختار pwoerpoint show .

هذا بالنسبة لتخزين ملف الباور بوينت لكي يظهر لك العرض بسرعة.

وإن شاء الله وضحت الفكرة.

prvio.rar

وتأكد من الأداة (ole) التي أنت وضعتها على سطح الفورم إسمها ole1 لكي تتطابق مع المثال الذي وضعته لك.

السلام عليكم اخوتي

الكرام جزا الله كل من ساعدني خيرا لان مشكلتي قد حلت

والحمد لله واسال الله ان يجزيه عني كل خير

والكود هو ole1.do verb فقط يكتب داخل الكوماند (h)

وشكرا لكم جميعا اخوتي