+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] طلب كود التقاط صورة سطح المكتب فيجوال بيسك 2010 (/showthread.php?tid=343)
الصفحات:
1
2
طلب كود التقاط صورة سطح المكتب فيجوال بيسك 2010 - ملك الاحاسيس - 01-10-13
مرحبا ,,
أخواني أنا أريد تصميم برنامج تصوير الشاشة ( سطح المكتب )
أنا أستخدم الفيجوال بيسك 2010
أريد أكواد معينه واتمني أحصلها عندكم لاني تعب أبحث عنها
كود الالتقاط ~> Button1
كود الحفظ وياليت يكوون الحفظ علي سطح المكتب ~> Button2
كود المساحه التصويريه ~> PictureBox1 اذا كان الاداه صحيحه
وكود الخروج ~> Button3
أنا جهزت البرنامج كاملا
من ناحيه Button2 Button3 Button1
و ناحيه PictureBox1
RE: طلب كود التقاط صورة سطح المكتب فيجوال بيسك 2010 - ملك الاحاسيس - 03-10-13
وينكم
؟؟؟؟؟؟؟؟؟؟
RE: طلب كود التقاط صورة سطح المكتب فيجوال بيسك 2010 - kslawy - 03-10-13
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
RE: طلب كود التقاط صورة سطح المكتب فيجوال بيسك 2010 - Omar Mekkawy - 03-10-13
سلام عليكم أخوي
تم نقل الموضوع للقسم الصحيح وهو الأسئلة
يعطيك العافية
RE: طلب كود التقاط صورة سطح المكتب فيجوال بيسك 2010 - ملك الاحاسيس - 21-10-13
يعطيكم العافيه حبايبي
لكن هناك امران اتمني القي حلهم
أولا
وهو كل ما اصور واسوي حفظ يتم حفظه بنفس الاسم او انه يحذف الصوره السابقه لها
ويحفظ الصوره الجديده في مكان الصورة القديمه
ثانيا
طيب اخوي ممكن عند التقاط الصوره يختفي البرنامج
لاني اذا صورت سطح المكتب أحصل البرنامج معاه يصور
اذا في طريقه كود عند التنفيذ الاتقاط يختفي البرنامج الين مايصور سطح المكتب ويرجع بعد كذا عادي
RE: طلب كود التقاط صورة سطح المكتب فيجوال بيسك 2010 - kslawy - 21-10-13
السلام عليكم ورحمة الله وبركاته
المطلوب في المرفقات
RE: طلب كود التقاط صورة سطح المكتب فيجوال بيسك 2010 - ملك الاحاسيس - 22-10-13
يعطيك العافيه حبيبي
شكلي تعبتكم معي
اخوي
ابي الكود عند شغيل الجهاز الكمبيوتر يشتغل البرنامج تلقائي
نفس ظريقة الياهو والهوتميل
وسلامتك
RE: طلب كود التقاط صورة سطح المكتب فيجوال بيسك 2010 - kslawy - 22-10-13
السلام عليكم ورحمة الله وبركاته
ضع الكود التالي في حدث تحميل النموذج 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 .
RE: طلب كود التقاط صورة سطح المكتب فيجوال بيسك 2010 - ملك الاحاسيس - 24-10-13
مشكـور أخـوي
وضع الكود كما وضحت لي
لكن استخدم انا ويندوز أكس بي
حاولت ابحث عن الصلاحيات ماحصلت
وبحثت بقوقل عن الطريقه وحثلت طريقه ولكن بالانجلش
وجهازي انا بالعربي
حتي الترجمه مانفعت معايا
فاليت اذا في امكان طريقه الشرح بالعربي
وشكرا حبيبي
~
RE: طلب كود التقاط صورة سطح المكتب فيجوال بيسك 2010 - kslawy - 24-10-13
لا يا أخي ...... صلاحيات المدير تحتاج إليها فقط في يندوز 7 في الإكسبي لا تحتاجها