+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] هل توجد طريقه الكتابه علي الصور (/showthread.php?tid=37536)
هل توجد طريقه الكتابه علي الصور - حسن الجلب - 20-01-21
السلام عليكم ورحمه الله وبركاته
هل توجد طريقه الكتابه على الصور؟
وادي سؤال اخر انا عندي كود لجلب اسماء الألوان الاساسيه فقط ولكن عايز كود لجلب درجاتها
RE: هل توجد طريقه الكتابه علي الصور - حسن الجلب - 20-01-21
عايز حل بعد اذنكم
RE: هل توجد طريقه الكتابه علي الصور - حسن الجلب - 20-01-21
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
RE: هل توجد طريقه الكتابه علي الصور - asemshahen5 - 20-01-21
كود الكتابة على الصور :
PHP كود :
Dim grf As Graphics
Dim ImageXT As Image = Image.FromFile("D:\\AsemImagr.png")
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
ImageXT = Image.FromFile("D:\\AsemImagr.png")
grf = Graphics.FromImage(ImageXT)
grf.DrawImage(ImageXT, New Point(0, 0))
grf.DrawString("String To Drow", New Font("Arial", 36, FontStyle.Bold), Brushes.Black, New Point(10, 10))
grf.Save()
If FileIO.FileSystem.FileExists("D:\\AsemImagr1.png") Then
FileIO.FileSystem.DeleteFile("D:\\AsemImagr1.png")
End If
ImageXT.Save("D:\\AsemImagr1.png", Imaging.ImageFormat.Png)
Dim x As New System.IO.MemoryStream()
ImageXT.Save(x, Imaging.ImageFormat.Png)
PictureBox1.Image = Image.FromStream(x)
grf.Dispose()
ImageXT.Dispose()
End Sub
كود جلب درجات الالوان :
PHP كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim ColorDialogXT As New ColorDialog
Dim colorR As Integer
Dim colorG As Integer
Dim colorB As Integer
If ColorDialogXT.ShowDialog = Windows.Forms.DialogResult.OK Then
colorR = ColorDialogXT.Color.R
colorG = ColorDialogXT.Color.G
colorB = ColorDialogXT.Color.B
MsgBox(colorR & "," & colorG & "," & colorB)
End If
End Sub