17-09-12, 09:56 PM
السلام عليكم
اليوم ساريكم طريقة صنع برنامج لتنسيق غلاف الفيس بوك مع الصورة الشخصية
لتكوون هكذا
نقوم ببدء مشروع جديد .. و نضيف 3 PictureBoxes
و زر لفتح الصورة .. و زر للصنع .. و زر للحفظ و OpenFileDialog و FolderBrowserDialog
في زر فتح الصورة نضع الكود الاتي :
و في زر صنع الصور نضع التالي :
و في زر الحفظ نضع التالي
اتمنى انكم قد استفدتم من الموضوع
و اي مساعدة تحتاجونها اني موجودة ان شاء الله تعالى
تحياتي
اليوم ساريكم طريقة صنع برنامج لتنسيق غلاف الفيس بوك مع الصورة الشخصية
لتكوون هكذا
نقوم ببدء مشروع جديد .. و نضيف 3 PictureBoxes
و زر لفتح الصورة .. و زر للصنع .. و زر للحفظ و OpenFileDialog و FolderBrowserDialog
في زر فتح الصورة نضع الكود الاتي :
PHP كود :
Try
Dim x As DialogResult = openFileDialog1.ShowDialog()
If x = DialogResult.OK Then
Dim bmp As Bitmap = New Bitmap(Image.FromFile(openFileDialog1.FileName), 600, 300)
PictureBox1.Image = bmp
End If
Catch
MessageBox.Show("Error", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
PHP كود :
Try
Dim x As Rectangle = New Rectangle(New Point(10, 135), New Size(130, 144))
Dim bmp As Bitmap = New Bitmap(x.Width, x.Height)
Dim g As Graphics = Graphics.FromImage(bmp)
g.DrawImage(PictureBox1.Image, 0, 0, x, GraphicsUnit.Pixel)
PictureBox2.Image = bmp
PictureBox3.Image = PictureBox1.Image
Catch
MessageBox.Show("Error", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
PHP كود :
Try
Dim x As DialogResult = FolderBrowserDialog1.ShowDialog()
If x = DialogResult.OK Then
Dim h As Integer = (PictureBox2.Image.Size.Width * 180) / PictureBox2.Image.Size.Height
Dim bmp As Bitmap = New Bitmap(PictureBox2.Image, 180, h)
bmp.Save(FolderBrowserDialog1.SelectedPath + "\ProfileImage.jpg")
PictureBox1.Image.Save(FolderBrowserDialog1.SelectedPath + "\CoverImage.jpg")
End If
Catch
MessageBox.Show("Error", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
و اي مساعدة تحتاجونها اني موجودة ان شاء الله تعالى
تحياتي