+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : صنع برنامج لتنسيق Cover الفيس بوك (/showthread.php?tid=4179)
صنع برنامج لتنسيق Cover الفيس بوك - H111er - 17-09-12
السلام عليكم
اليوم ساريكم طريقة صنع برنامج لتنسيق غلاف الفيس بوك مع الصورة الشخصية
لتكوون هكذا
نقوم ببدء مشروع جديد .. و نضيف 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
و اي مساعدة تحتاجونها اني موجودة ان شاء الله تعالى
تحياتي
صنع برنامج لتنسيق Cover الفيس بوك - m.sami.ak - 17-09-12
ممتاز جداً اخي ووفقك الله
صنع برنامج لتنسيق Cover الفيس بوك - H111er - 17-09-12
M.Sami.AK كتب :ممتاز جداً اخي ووفقك الله
شكرا اخي
صنع برنامج لتنسيق Cover الفيس بوك - m.sami.ak - 20-09-12
العفو...
تم نقل الموضوع للقسم المناسب.
صنع برنامج لتنسيق Cover الفيس بوك - سامى ابوسريع - 01-04-13
جزاك الله خيرااخى