السلام عليكم ورحمة الله وبركاته
انسخ الكود الآتي كما هو ..
فقط يلزمك إنشاء زر أمر على الفورم الذي تريدين من خلاله فتح ملف الباوربوينت..
مع ملاحظة تغيير مسار الملف المراد فتحه حسب المسار الذي لديك .
كود:
Private Declare Function ShellExecute Lib \"shell32.dll
santa: ]
انسخ الكود الآتي كما هو ..
فقط يلزمك إنشاء زر أمر على الفورم الذي تريدين من خلاله فتح ملف الباوربوينت..
مع ملاحظة تغيير مسار الملف المراد فتحه حسب المسار الذي لديك .
كود:
Private Declare Function ShellExecute Lib \"shell32.dll
\"
Alias \"ShellExecuteA\" (ByVal hwnd As Long,
ByVal lpOperation As String, ByVal lpFile As
String, ByVal lpParameters As String, ByVal
lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
ShellExecute Me.hwnd, \"open\", \"c:\\test.pps\", \"\", \"\", 1
End Sub
Alias \"ShellExecuteA\" (ByVal hwnd As Long,
ByVal lpOperation As String, ByVal lpFile As
String, ByVal lpParameters As String, ByVal
lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
ShellExecute Me.hwnd, \"open\", \"c:\\test.pps\", \"\", \"\", 1
End Sub
santa: ]