[asemshahen5]

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

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