تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل على كود take ScreenShot
#1
انا عندي أداة SplitContainer1 و اداة SplitContainer1.planel2
دخلها AxWindowsMediaPlayer1
في اريد التعديل كود بدل ان يصور شاشه كامله , اريد ان يصور داخل اداه SplitContainer1.planel2 ما عرض فيها يعرض فيها AxWindowsMediaPlayer1 اي ان سوف يصور مايعمل داخل اداه AxWindowsMediaPlayer1 ,, مع مرعات تغير في حجم الفورم , هل ممكن ذلك ؟
كود :
Imports System.Drawing.Graphics

Dim path As String = String.Empty


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim saveFile As String = path & ".jpg"

        Dim screenSize As New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)

        Dim capImage As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)

        Dim graph As Graphics = Graphics.FromImage(capImage)

        graph.CopyFromScreen(New Point(0, 0), New Point(0, 0), screenSize)

        capImage.Save(saveFile)

        MsgBox("Saved File To : " & saveFile) 'Showing the whole path where capturedImage is saved

        Process.Start(saveFile) 'Showing The Captured Image In Windows Image Viewer
    End Sub
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
تعديل على كود take ScreenShot - بواسطة W XP 2003 - 27-11-12, 11:13 PM
تعديل على كود take ScreenShot - بواسطة سعود - 27-11-12, 11:18 PM
تعديل على كود take ScreenShot - بواسطة سعود - 27-11-12, 11:28 PM
تعديل على كود take ScreenShot - بواسطة W XP 2003 - 28-11-12, 02:02 AM


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


يقوم بقرائة الموضوع: