Thanks for your quick response and it works perfect.And I need a little help in this program is that straight away I want to load image and rotate text as what you have done in this program instead of paint text and rotate.
And I am pasting my code here can you help me in this
Dim opac As Integer = 0
Dim sOpacity As String = TxtOpacity.Text
' Determine the opacity of the watermark
Select Case (sOpacity)
Case "100%"
opac = 255 ' 1 * 255
Case "75%"
opac = 191 ' .75 * 255
Case "50%"
opac = 127 ' .5 * 255
Case "25%"
opac = 64 ' .25 * 255
Case "10%"
opac = 25 ' .10 * 255
Case Else
opac = 127 ' default at 50%; .5 * 255
End Select
Dim img As New Bitmap(imgPic.Image) 'Dim img As New Bitmap(Preview.Image)
Dim g = Graphics.FromImage(img)
Dim myBrush As Brush
myBrush = New SolidBrush(Color.FromArgb(opac, KryptonColorButton1.SelectedColor))
Dim sz As SizeF = g.MeasureString(TxtImg.Text, FontDialog1.Font)
Dim phWidth As Integer = img.Width
Dim phHeight As Integer = img.Height
If CUShort(Math.Truncate(sz.Width)) < CUShort(phWidth) Then
End If
Dim yPixlesFromBottom As Integer = 0
Dim yPosFromBottom As Single = 0
Dim xCenterOfImg As Single = 0
If BottomCenter.Checked = True Then
'Since all photographs will have varying heights, determine a
'position 5% from the bottom of the image
yPixlesFromBottom = CInt(Math.Truncate(phHeight * 0.05))
'Now that we have a point size use the m_Copyrights string height
'to determine a y-coordinate to draw the string of the photograph
yPosFromBottom = ((phHeight - yPixlesFromBottom) - (sz.Height / 2))
'Determine its x-coordinate by calculating the center of the width of the image
xCenterOfImg = (phWidth \ 2)
If X = 0 And Y = 0 Then
If cboAngle.SelectedIndex = 0 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(400, 700)
g.RotateTransform(0)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 1 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(400, 735)
g.RotateTransform(-45)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 2 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(380, 760)
g.RotateTransform(-90)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 3 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(640, 760)
g.RotateTransform(-180)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 4 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(450, 490)
g.RotateTransform(-270)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 5 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(400, 700)
g.RotateTransform(360)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
End If
Else
If BottomLeft.Checked = True Then
yPixlesFromBottom = CInt(Math.Truncate(phHeight * 0.05))
yPosFromBottom = ((phHeight - yPixlesFromBottom) - (sz.Height / 2))
xCenterOfImg = (sz.Width / 2) + 10
If X = 0 And Y = 0 Then
If cboAngle.SelectedIndex = 0 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(10, 700)
g.RotateTransform(0)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 1 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(10, 735)
g.RotateTransform(-45)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 2 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(10, 735)
g.RotateTransform(-90)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 3 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(280, 760)
g.RotateTransform(-180)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 4 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(60, 500)
g.RotateTransform(-270)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 5 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(10, 700)
g.RotateTransform(360)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
End If
Else
If BottomRight.Checked = True Then
yPixlesFromBottom = CInt(Math.Truncate(phHeight * 0.05))
yPosFromBottom = ((phHeight - yPixlesFromBottom) - (sz.Height / 2))
xCenterOfImg = (phWidth - (sz.Width / 2)) - 10
If X = 0 And Y = 0 Then
If cboAngle.SelectedIndex = 0 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(730, 700)
g.RotateTransform(0)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 1 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(730, 735)
g.RotateTransform(-45)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 2 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(750, 760)
g.RotateTransform(-90)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 3 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(1010, 760)
g.RotateTransform(-180)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 4 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(820, 490)
g.RotateTransform(-270)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 5 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(730, 700)
g.RotateTransform(360)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
End If
Else
If MiddleCenter.Checked = True Then
yPixlesFromBottom = CInt(Math.Truncate(phHeight * 0.5))
yPosFromBottom = ((phHeight - yPixlesFromBottom) - (sz.Height / 2))
xCenterOfImg = (phWidth \ 2)
If X = 0 And Y = 0 Then
If cboAngle.SelectedIndex = 0 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(380, 355)
g.RotateTransform(0)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 1 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(400, 355)
g.RotateTransform(45)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 2 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(440, 370)
g.RotateTransform(90)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 3 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(650, 410)
g.RotateTransform(180)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 4 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(380, 640)
g.RotateTransform(270)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 5 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(380, 355)
g.RotateTransform(360)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
End If
Else
If MiddleLeft.Checked = True Then
yPixlesFromBottom = CInt(Math.Truncate(phHeight * 0.5))
yPosFromBottom = ((phHeight - yPixlesFromBottom) - (sz.Height / 2))
xCenterOfImg = (sz.Width / 2) + 10
If X = 0 And Y = 0 Then
If cboAngle.SelectedIndex = 0 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(10, 365)
g.RotateTransform(0)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 1 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(30, 355)
g.RotateTransform(45)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 2 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(50, 370)
g.RotateTransform(90)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 3 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(280, 420)
g.RotateTransform(180)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 4 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(20, 650)
g.RotateTransform(270)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 5 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(10, 300)
g.RotateTransform(360)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
End If
Else
If MiddleRight.Checked = True Then
yPixlesFromBottom = CInt(Math.Truncate(phHeight * 0.5))
yPosFromBottom = ((phHeight - yPixlesFromBottom) - (sz.Height / 2))
xCenterOfImg = (phWidth - (sz.Width / 2)) - 10
If X = 0 And Y = 0 Then
If cboAngle.SelectedIndex = 0 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(740, 365)
g.RotateTransform(0)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 1 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(770, 355)
g.RotateTransform(45)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 2 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(820, 360)
g.RotateTransform(90)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 3 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(1010, 410)
g.RotateTransform(180)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 4 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(760, 640)
g.RotateTransform(270)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 5 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(750, 300)
g.RotateTransform(360)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
End If
Else
If TopCenter.Checked = True Then
yPixlesFromBottom = CInt(Math.Truncate(phHeight * 0.95))
yPosFromBottom = ((phHeight - yPixlesFromBottom) - (sz.Height / 2))
xCenterOfImg = (phWidth \ 2)
If cboAngle.SelectedIndex = 0 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(400, 0)
g.RotateTransform(0)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 1 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(400, 0)
g.RotateTransform(45)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 2 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(400, 0)
g.RotateTransform(90)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 3 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(650, 60)
g.RotateTransform(180)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 4 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(400, 280)
g.RotateTransform(270)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 5 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(400, 0)
g.RotateTransform(360)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
Else
If TopLeft.Checked = True Then
yPixlesFromBottom = CInt(Math.Truncate(phHeight * 0.95))
yPosFromBottom = ((phHeight - yPixlesFromBottom) - (sz.Height / 2))
xCenterOfImg = (sz.Width / 2) + 10
If X = 0 And Y = 0 Then
If cboAngle.SelectedIndex = 0 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(10, 10)
g.RotateTransform(0)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 1 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(40, 0)
g.RotateTransform(45)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 2 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(60, 10)
g.RotateTransform(90)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 3 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(280, 70)
g.RotateTransform(180)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 4 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(10, 300)
g.RotateTransform(270)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 5 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(10, 10)
g.RotateTransform(360)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
End If
Else
If TopRight.Checked = True Then
yPixlesFromBottom = CInt(Math.Truncate(phHeight * 0.95))
yPosFromBottom = ((phHeight - yPixlesFromBottom) - (sz.Height / 2))
xCenterOfImg = (phWidth - (sz.Width / 2)) - 10
If cboAngle.SelectedIndex = 0 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(750, 10)
g.RotateTransform(0)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 1 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(760, 10)
g.RotateTransform(45)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 2 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(780, 10)
g.RotateTransform(90)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 3 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(1010, 70)
g.RotateTransform(-180)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 4 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(750, 280)
g.RotateTransform(270)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
If cboAngle.SelectedIndex = 5 Then
g.SmoothingMode = SmoothingMode.HighQuality
g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
g.TranslateTransform(750, 10)
g.RotateTransform(360)
g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
g.ResetTransform()
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Dim StrFormat As New StringFormat()
StrFormat.Alignment = StringAlignment.Center
'g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New PointF(xCenterOfImg + 1, yPosFromBottom + 1), StrFormat)
imgPreview.Image = img
imgPic.Hide()
imgPreview.Show()
modified on Monday, May 30, 2011 5:15 AM
|