منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] هل توجد طريقه الكتابه علي الصور - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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.ObjectAs System.EventArgsHandles Button2.Click
        ImageXT 
Image.FromFile("D:\\AsemImagr.png")
 
       grf Graphics.FromImage(ImageXT)
 
       grf.DrawImage(ImageXT, New Point(00))
 
       grf.DrawString("String To Drow", New Font("Arial"36FontStyle.Bold), Brushes.Black, New Point(1010))
 
       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(xImaging.ImageFormat.Png)
 
       PictureBox1.Image Image.FromStream(x)
 
       grf.Dispose()
 
       ImageXT.Dispose()
 
   End Sub 

كود جلب درجات الالوان :

PHP كود :
   Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles 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