-----------------------------------------------------------

New Message on MumbaiUserGroup

-----------------------------------------------------------
From: Kishor
Message 2 in Discussion


Hi 
payal,
    I am here sending you a code, pb 
is picture box. rest you will understand. it is 
simple
 
Regards 
Kishor


Imports 
System.Drawing.Drawing2D
Private Sub Button2_Click(ByVal sender As System.Object, 
ByVal e As 
System.EventArgs) Handles 
Button2.Click


Dim txtprint As String = "Kishor Pise"

Dim textSize As SizeF

Dim g As Graphics

Dim myForeBrush 
As Brush = 
Brushes.Black

Dim myFont As New 
Font("Times New Roman", 20, FontStyle.Regular)

Dim textHeight 
As Single

g = pb.CreateGraphics()

g.Clear(Color.Cyan)

textSize = g.MeasureString(txtprint, 
myFont)

g.TranslateTransform(100, 300)

g.RotateTransform(270)

' Draw the main 
text

g.DrawString(txtprint, myFont, myForeBrush, 
_

New 
RectangleF(0, 0, pb.Width, pb.Height))

End Sub

-----------------------------------------------------------

To stop getting this e-mail, or change how often it arrives, go to your E-mail 
Settings.
http://groups.msn.com/mumbaiusergroup/_emailsettings.msnw

Need help? If you've forgotten your password, please go to Passport Member Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help

For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact

If you do not want to receive future e-mail from this MSN group, or if you received 
this message by mistake, please click the "Remove" link below. On the pre-addressed 
e-mail message that opens, simply click "Send". Your e-mail address will be deleted 
from this group's mailing list.
mailto:[EMAIL PROTECTED]

Reply via email to