水印上的文字如何实现 从左下到右上的倾斜?急。
Public Sub BuildWater(ByVal sourcepath As String, ByVal outpath As String)
Dim image As Image = image.FromFile(sourcepath)
Dim bitWaterMark As New Bitmap(image.Width, image.Height)
Dim g As Graphics = Graphics.FromImage(bitWaterMark)
g.DrawImage(image, 0, 0, image.Width, image.Height)
Dim f As New Font( "华文琥珀 ", 10)
Dim b As Brush = New SolidBrush(Color.Orange)
Dim addtext As String = "CRM "
g.DrawString(addtext, f, b, CSng(image.Width - image.Width / 4), CSng(image.Height - image.Height / 10))
g.Dispose()
image.Dispose()
bitWaterMark.Save(outpath)
bitWaterMark.Dispose()
End Sub
想实现CRM三个字母的倾斜(左下到右上),如何实现?
------解决方案--------------------好象有个控制角度的,以前用过