منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - طلب كود التقاط صورة سطح المكتب فيجوال بيسك 2010

الصفحات : 1 2

مرحبا ,,

أخواني أنا أريد تصميم برنامج تصوير الشاشة ( سطح المكتب )

أنا أستخدم الفيجوال بيسك 2010

أريد أكواد معينه واتمني أحصلها عندكم لاني تعب أبحث عنها

كود الالتقاط ~> Button1
كود الحفظ وياليت يكوون الحفظ علي سطح المكتب ~> Button2
كود المساحه التصويريه ~> PictureBox1 اذا كان الاداه صحيحه
وكود الخروج ~> Button3

أنا جهزت البرنامج كاملا
من ناحيه Button2 Button3 Button1
و ناحيه PictureBox1

وينكم
؟؟؟؟؟؟؟؟؟؟

PHP كود :

Public Function GetScreen() As Bitmap
        Dim Picture As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
        Dim g As Graphics = Graphics.FromImage(Picture)
        Dim t As New Rectangle(Windows.Forms.Cursor.Position, Picture.Size)
        g.CopyFromScreen(0, 0, 0, 0, Picture.Size)
        Windows.Forms.Cursor.Current.Draw(g, t)
        Return Picture
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PictureBox1.Image = GetScreen()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim SavePath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
        PictureBox1.Image.Save(SavePath & "\myDesktopImage.jpg", Imaging.ImageFormat.Jpeg)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub 

سلام عليكم أخوي Big Grin

تم نقل الموضوع للقسم الصحيح وهو الأسئلة

يعطيك العافية

يعطيكم العافيه حبايبي

لكن هناك امران اتمني القي حلهم

أولا

وهو كل ما اصور واسوي حفظ يتم حفظه بنفس الاسم او انه يحذف الصوره السابقه لها

ويحفظ الصوره الجديده في مكان الصورة القديمه

ثانيا

طيب اخوي ممكن عند التقاط الصوره يختفي البرنامج

لاني اذا صورت سطح المكتب أحصل البرنامج معاه يصور

اذا في طريقه كود عند التنفيذ الاتقاط يختفي البرنامج الين مايصور سطح المكتب ويرجع بعد كذا عادي

السلام عليكم ورحمة الله وبركاته

المطلوب في المرفقات

يعطيك العافيه حبيبي

شكلي تعبتكم معي

اخوي

ابي الكود عند شغيل الجهاز الكمبيوتر يشتغل البرنامج تلقائي

نفس ظريقة الياهو والهوتميل

وسلامتك

السلام عليكم ورحمة الله وبركاته

ضع الكود التالي في حدث تحميل النموذج FormLoad :

PHP كود :

Dim sReg As String = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
        Dim path As String = Application.ExecutablePath.ToString
        Dim getvalu As String = My.Computer.Registry.GetValue(sReg, "YourProjectName", "default Value")
        If getvalu = "default Value" Then
            My.Computer.Registry.SetValue(sReg, "YourProjectName", path)
        End If 

بدل جملة YourProjectName ضع اسم برنامجك أو أي اسم تريده لكن بدون فواصل (Space) بين الكلمات .

طبعا بما أننا سنسجل قيمة في الريجستري سيحتاج برنامجك لصلاحيات المدير في ويندوز 7 .

مشكـور أخـوي

وضع الكود كما وضحت لي

لكن استخدم انا ويندوز أكس بي

حاولت ابحث عن الصلاحيات ماحصلت

وبحثت بقوقل عن الطريقه وحثلت طريقه ولكن بالانجلش

وجهازي انا بالعربي

حتي الترجمه مانفعت معايا

فاليت اذا في امكان طريقه الشرح بالعربي

وشكرا حبيبي

~

لا يا أخي ...... صلاحيات المدير تحتاج إليها فقط في يندوز 7 في الإكسبي لا تحتاجها

الصفحات : 1 2

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

ملك الاحاسيس

ملك الاحاسيس

kslawy

Omar Mekkawy

ملك الاحاسيس

kslawy

ملك الاحاسيس

kslawy

ملك الاحاسيس

kslawy