[RaggiTech]

ولنرى كيف نحصل على صورة مخزنة فى الذاكرة

قم بأخذ صورة فى الذاكرة عن طريق الزر Print Screen

اجعل على الفورم أداة عض الصور Picture Box

كود :

[COLOR=#000000][COLOR=#0000bb]
  Sub Get_Image_From_ClipBoard[/COLOR][COLOR=#007700]()


        Try


            If [/COLOR][color=#0000bb]My[/color][color=#007700].[/color][color=#0000bb]Computer[/color][color=#007700].[/color][color=#0000bb]Clipboard[/color][color=#007700].[/color][color=#0000bb]ContainsImage[/color][color=#007700]() [/color][COLOR=#0000bb]Then

                Dim ClipImage [/COLOR][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Drawing[/color][color=#007700].[/color][COLOR=#0000bb]Image

                ClipImage [/COLOR][color=#007700]= [/color][color=#0000bb]My[/color][color=#007700].[/color][color=#0000bb]Computer[/color][color=#007700].[/color][color=#0000bb]Clipboard[/color][color=#007700].[/color][COLOR=#0000bb]GetImage

                Me[/COLOR][color=#007700].[/color][color=#0000bb]PictureBox1[/color][color=#007700].[/color][color=#0000bb]Image [/color][color=#007700]= [/color][COLOR=#0000bb]ClipImage

            [/COLOR][COLOR=#007700]Else


                [/COLOR][color=#0000bb]MsgBox[/color][color=#007700]([/color][color=#dd0000]"No Images in ClipBoard"[/color][COLOR=#007700])

            [/COLOR][color=#0000bb]End [/color][COLOR=#007700]If


        Catch [/COLOR][color=#0000bb]ex [/color][color=#007700]As [/color][COLOR=#0000bb]Exception

            MsgBox[/COLOR][color=#007700]([/color][color=#0000bb]ex[/color][color=#007700].[/color][color=#0000bb]Message[/color][COLOR=#007700])

        [/COLOR][color=#0000bb]End [/color][COLOR=#007700]Try



    [/COLOR][COLOR=#0000bb]End Sub  
[/COLOR][/COLOR]

واضح وما يحتاج شرح