06-10-12, 09:38 PM
ولنرى كيف نحصل على صورة مخزنة فى الذاكرة
قم بأخذ صورة فى الذاكرة عن طريق الزر Print Screen
اجعل على الفورم أداة عض الصور Picture Box
واضح وما يحتاج شرح
قم بأخذ صورة فى الذاكرة عن طريق الزر 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]واضح وما يحتاج شرح
