منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمه الله وبركاته
هل توجد طريقه الكتابه على الصور؟
وادي سؤال اخر انا عندي كود لجلب اسماء الألوان الاساسيه فقط ولكن عايز كود لجلب درجاتها

عايز حل بعد اذنكم

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

كود الكتابة على الصور :

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 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

حسن الجلب

حسن الجلب

حسن الجلب

asemshahen5