franculo_caoulene | Salut,
Pas d'exception, ça utilise le police par défaut. je soupçonne des pb de droits sur le police. Mon code : Code :
- Public Sub TxtToImg(ByVal Texte As String, ByVal Police As String, ByVal Taille As String, ByVal Cible As String)
- If Not File.Exists(Cible) Then
- Dim TypeFont As Font
- Dim Bmp As Bitmap
- Dim Graph As Graphics
- Dim TailleTxt As SizeF
- TypeFont = New Font(Police, Int32.Parse(Taille))
- Bmp = New Bitmap(1, 1, PixelFormat.Format32bppArgb)
- Graph = Graphics.FromImage(Bmp)
- TailleTxt = Graph.MeasureString(Texte, TypeFont)
- Graph.Dispose()
- Bmp.Dispose()
- Bmp = New Bitmap(Convert.ToInt32(TailleTxt.Width), Convert.ToInt32(TailleTxt.Height), PixelFormat.Format32bppArgb)
- Graph = Graphics.FromImage(Bmp)
- Graph.Clear(Color.White)
- Graph.DrawString(Texte, TypeFont, New SolidBrush(Color.Black), 0, 0)
- Graph.Flush()
- Bmp.Save(Cible, Imaging.ImageFormat.Png)
- Graph.Dispose()
- Bmp.Dispose()
- End If
- End Sub
|
L'appel : Code :
- GenImg.TxtToImg("montexte", "Garamond", 24, "resultat.png" )
|
OK c'est du VB.NET mais je cherche une solution ailleurs que dans le langage. |