تقييم الموضوع :
  • 2 أصوات - بمعدل 4
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تشغيل بور بوينت فى فيجوال بيسك 2010
#1
اريد تشغيل عرض بور بوينت فى فيجوال بمجرد الضغط على الزرار فيجوال 2010
الرد }}}}
تم الشكر بواسطة:
#2
كود :
<DllImport("user32.dll", EntryPoint := "FindWindow", SetLastError := True)> _
Private Shared Function FindWindow(ZeroOnly As IntPtr, lpWindowName As String) As IntPtr
End Function
<DllImport("user32.dll", SetLastError := True)> _
Private Shared Function SetParent(hWndChild As IntPtr, hWndNewParent As IntPtr) As IntPtr
End Function
<DllImport("user32.dll", SetLastError := True, CharSet := CharSet.Auto)> _
Public Shared Function SetWindowText(hwnd As IntPtr, lpString As [String]) As Boolean
End Function
Private FileName As String = ""
Private application As PowerPoint.Application
Private presentation As PowerPoint.Presentation
Private flag As Boolean = False
Public Sub New()
    InitializeComponent()
End Sub
Public Sub open()
    sair()
    openFileDialog1.Filter = "Powerpoint file (*.ppt)|*.ppt|All files (*.*)|*.*"
    If openFileDialog1.ShowDialog() = DialogResult.OK Then
        FileName = openFileDialog1.FileName
        Dim screenClasshWnd As IntPtr = DirectCast(0, IntPtr)
        Dim x As IntPtr = DirectCast(0, IntPtr)
        flag = True
        application = New PowerPoint.Application()
        presentation = application.Presentations.Open2007(FileName, Microsoft.Office.Core.MsoTriState.msoTrue, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue)
        Dim sst1 As PowerPoint.SlideShowSettings = presentation.SlideShowSettings
        sst1.ShowType = DirectCast(1, PowerPoint.PpSlideShowType)
        Dim sw As PowerPoint.SlideShowWindow = sst1.Run()
        sw.Height = (panel1.Height) - 64
        sw.Width = (panel1.Width) - 130
        Dim formhWnd As IntPtr = FindWindow(x, "Form1")
        Dim pptptr As IntPtr = DirectCast(sw.HWND, IntPtr)
        screenClasshWnd = FindWindow(x, "screenClass")
        SetParent(pptptr, panel1.Handle)
        Me.Focus()
        Me.application.SlideShowEnd += New Microsoft.Office.Interop.PowerPoint.EApplication_SlideShowEndEventHandler(SlideShowEnds)
    End If
End Sub

والله أعلي وأعلم
RolleyesRolleyesRolleyes
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد }}}}
تم الشكر بواسطة:
#3
قم بتحميل وتنصيب القارئ علي جهازك أولا
PowerPoint Viewer 2007

RolleyesRolleyesRolleyes
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد }}}}
تم الشكر بواسطة:
#4
انا نزلت البرنامج ووضعت الزار لكن محصلش حاجة وطلع اكتر 13 خطا ممكن شرح اذا كان هناك ادوات اضعها او اغير اسماءها
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] عايز رابط تحميل فيجوال ستديو 2017 برابط واحد ويدعم الاستكمال اهم شئ تنصيب اوف لاين الماجيك مسعد 2 94 28-03-17, 05:47 PM
آخر رد: الماجيك مسعد
  نقل واسترجاع ملفات بواسطة الفيجوال بيسك عبدالرحمن المكاوي 27 1,151 23-03-17, 10:16 AM
آخر رد: عبدالرحمن المكاوي
  [سؤال] أريد كود لتشغيل صوت مخصص عند تشغيل المشروع أو البرنامج محمد سعيد عبد الظاهر 2 108 17-03-17, 06:13 PM
آخر رد: محمد سعيد عبد الظاهر
  [سؤال] مشكلة في تشغيل البرنامج من الفيجوال بيسك عزوز هزازي 1 89 16-03-17, 05:07 PM
آخر رد: Amir_alzubidy
  [سؤال] خطأ اثناء تشغيل البروجكت VB.Net Amir_alzubidy 13 339 12-03-17, 12:56 PM
آخر رد: Amir_alzubidy
  [VB.NET] ظهور رساله لما ابغى اربط اكسس بالفجول بيسك a.baomar 3 73 11-03-17, 03:24 AM
آخر رد: khodor1985
Heart [VB.NET] مساعدة في ربط فيجوال دوت نت مع داتا بيس اكسس abdokablan 0 49 11-03-17, 01:25 AM
آخر رد: abdokablan
  [سؤال] كيفية تحويل كود اكسلvba الى فيجوال بيسك farhat 10 230 10-03-17, 08:36 PM
آخر رد: farhat
  [VB.NET] سؤال عن vb.net 2010 ناصر شير 5 127 20-02-17, 02:40 AM
آخر رد: ناصر شير
  [سؤال] كيف اربط الوورد مع الفيجوال بيسك انوار القصيم 7 1,535 17-02-17, 01:18 PM
آخر رد: محمد عمار

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم