10-06-15, 06:12 PM
السلام عليكم ورحمة الله وبركاتة ايها الاعضاء الكرام
طبعا عشان ما فى اى مساعدة من العرب وكل شخص بيخلى كل شئ لنفسو
فا انا هنزلكم كل يوم ان شاء الله درس جديد عن الفيجوال بيسك 10
فا انا هنزلكم كل يوم ان شاء الله درس جديد عن الفيجوال بيسك 10
أســف لان الدروس لن تكون ابتدأئـــــيى
المــــهم نخش ف الدرس الاول
الدرس عبــارة عن صنع برنامج لتصوير الشاشة
اســف الدروس لن تكون فيديو
المهم احنا هنصمم الفورم على حسب ما احنا نريد بس المهم نحط زر ل( التقاط الصورة )
وزر ل (حفظ)
وزر ل (الخروج) اذا بدك طبعا :
وزر للمعلومات
و PictureBox
وهنحظ Save File Dialog
يلا نبدا بمشيئة الله
هنخلى Picture Box على الفورم كلو
ونحط الازرار من فوق
ونسمى الازرار مثل ما قلتلكم فوق
المهم ندخل ف مرحلة الاكواد لان من رئيى مرحلة التصميم ما بتهمنى اوى
اول هنحط الكود دا ف الفورم نفسو :
Dim timp As New DateTime
كود التصوير :
Me.Opacity = 0
Me.ShowInTaskbar = False
timp = Now()
Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
PictureBox1.Image = screenshot
Me.Opacity = 100
Me.ShowInTaskbar = True
Me.ShowInTaskbar = False
timp = Now()
Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
PictureBox1.Image = screenshot
Me.Opacity = 100
Me.ShowInTaskbar = True
كود الحفظ
Dim filesavedialog1 As New SaveFileDialog
SaveFileDialog1.Title = "حفظ الصورة "
SaveFileDialog1.FileName = "scr" & timp.ToString("HH-mm-dd-MM-yyyy") & ".jpg"
SaveFileDialog1.Filter = "JPEG File| .jpg"
Try
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
SaveFileDialog1.Title = "حفظ الصورة "
SaveFileDialog1.FileName = "scr" & timp.ToString("HH-mm-dd-MM-yyyy") & ".jpg"
SaveFileDialog1.Filter = "JPEG File| .jpg"
Try
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
وز المعلومات :]
(" اكتب معلومات عك هنا :]") msgbox
كود الخروج
End
كلمة شكر تكفيـــنى أنتظر ردودكم وشكرا
اال