تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معلومة ::: My.Computer.Clipboard
#1
كاتب الموضوع : 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]



الكود واضح وما يحتاج شرح
}}}}
تم الشكر بواسطة:
#2
ولنرى كيف نحصل على صورة مخزنة فى الذاكرة

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


واضح وما يحتاج شرح
}}}}
تم الشكر بواسطة:
#3
حان الآن افراغ الذاكرة



كود :
[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]
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  معلومة ::: ListBox Blue Sky 14 2,426 14-11-16, 11:32 PM
آخر رد: فارس جراح
  معلومة مهمه فى المصفوفات ali.alfoly 2 797 30-08-13, 02:25 AM
آخر رد: ali.alfoly
  من المنتدى القديم - معلومة ::: ProgressBar ( للاخ BADRMEDIA ) المبرمج علي نوري 2 1,267 23-08-13, 11:17 PM
آخر رد: nin9e
  معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! أسامة أحمد 3 1,022 16-12-12, 06:25 PM
آخر رد: 3amo
  من المنتدى القديم - معلومة ::: CheckBox ( للاخ BADRMEDIA ) المبرمج علي نوري 1 574 30-11-12, 05:54 PM
آخر رد: مبرمج أوتار
  معلومة :: الحل لمشكلة الخطأ في الكود For Each i As Button In Me.Controls Aly El-Haddad 2 680 10-11-12, 09:15 PM
آخر رد: Mr. DotNet
  معلومة : Partial Class RaggiTech 1 545 06-10-12, 11:03 PM
آخر رد: RaggiTech
  معلومة : TryCast مهمة RaggiTech 0 462 06-10-12, 11:02 PM
آخر رد: RaggiTech
  معلومة : XML Comments مهمة RaggiTech 1 423 06-10-12, 11:01 PM
آخر رد: RaggiTech
  معلومة - الاستثناءات ( Exceptions ) RaggiTech 0 534 06-10-12, 11:00 PM
آخر رد: RaggiTech

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


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