+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اضافة labe1 على picturbox (/showthread.php?tid=16803)
اضافة labe1 على picturbox - VAVABEL - 15-08-16
السلام عليكم
لدي استفسار حول كيفية دمج نص label على picturebox لكي استطيع بعدها حفظ الصورة و النص معا على شكل صورة
جربت طريقة تصوير الشاشة لكي لاحظت ان الصورة تفقد جودتها
شكرا لكم
RE: اضافة labe1 على picturbox - الوادي - 15-08-16
جرب هذ الكود
PHP كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim bmp As New Bitmap(Me.PictureBox1.Image)
Dim g As Graphics = Graphics.FromImage(bmp)
g.DrawString(Me.Label1.Text, Me.Label1.Font, New SolidBrush(Me.Label1.ForeColor), New Point(30, 30))
Me.PictureBox2.Image = bmp
End Sub
ويمكنك حفظ الصورة بدل عرضها في السطر الأخير بحيث يكون
bmp.Save
RE: اضافة labe1 على picturbox - VAVABEL - 15-08-16
(15-08-16, 01:05 AM)الوادي كتب : جرب هذ الكود
PHP كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim bmp As New Bitmap(Me.PictureBox1.Image)
Dim g As Graphics = Graphics.FromImage(bmp)
g.DrawString(Me.Label1.Text, Me.Label1.Font, New SolidBrush(Me.Label1.ForeColor), New Point(30, 30))
Me.PictureBox2.Image = bmp
End Sub
ويمكنك حفظ الصورة بدل عرضها في السطر الأخير بحيث يكون
bmp.Save
لقد جربت الكود ة بارك الله فيك لكن وقعت في مشكلة اخى بخصوص label1 كيف يمكنني التحكم في حجم خطها و مكان ظهورها على picturbox فهل لهذا حل ؟ ؟؟
او طريقة تمكنني من جعل اللابل تأخد المكان التي وضعته فيه على الفورم في المرة الاولى
اشكرك اخي
RE: اضافة labe1 على picturbox - الوادي - 16-08-16
في الكود اعتمدت على نوع خط الأداة Label1
Me.Label1.Font
وحددت المكان بالاحداثيات
New Point(30, 30)
ولأن طلبك عام، أكيد الجواب ما راح يجي على تريد بالضبط.
RE: اضافة labe1 على picturbox - VAVABEL - 16-08-16
بارك الله فيك اخي شكرا جزيلا لك