منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

كاتب الموضوع : BADRMEDIA

كيف حصل علي نص خزنته فى الذاكرة أو صورة ؟؟؟

أنه التعامل مع Clipboard

كود :

[color=#000000][COLOR=#0000bb] Sub Get_Text_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]ContainsText[/color][color=#007700]() [/color][COLOR=#0000bb]Then 

                Dim ClipboardText [/COLOR][color=#007700]As [/color][COLOR=#0000bb]String 

                ClipboardText [/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]GetText 

                MsgBox[/COLOR][color=#007700]([/color][color=#0000bb]ClipboardText[/color][COLOR=#007700]) 

            Else 

                [/COLOR][color=#0000bb]MsgBox[/color][color=#007700]([/color][color=#dd0000]"No Text 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]

الكود واضح وما يحتاج شرح

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

قم بأخذ صورة فى الذاكرة عن طريق الزر 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]

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

حان الآن افراغ الذاكرة

كود :

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

        Try 

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

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

            MessageBox[/COLOR][color=#007700].[/color][color=#0000bb]Show[/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]

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

RaggiTech

RaggiTech

RaggiTech