developer_rahimi
سه شنبه 05 آبان 1388, 00:17 صبح
يه موقعي آقاي زواره اي (بابك) يه كد گذاشته بودن كه ميشد باهاش يه متن روي يه عكس نوشت. حالا چطوري ميشه اين نوشته رو روي همون عكس با ماوس جابجا كرد و در نهايت فقط همون نوشته ها رو بدون خود عكس روي كاغذ چاپ كرد؟
اينم كد آقاي زواره اي
Dim bim AsNew Bitmap(PictureBox1.Image)
Dim g As Graphics = Graphics.FromImage(bim)
PictureBox1.CreateGraphics.DrawString(TextBox1.Tex t, Me.Font, Brushes.Black, 10, 10)
g.DrawString(TextBox1.Text, Me.Font, Brushes.Black, 10, 10)
bim.Save("e:\test.jpg")
اينم كد آقاي زواره اي
Dim bim AsNew Bitmap(PictureBox1.Image)
Dim g As Graphics = Graphics.FromImage(bim)
PictureBox1.CreateGraphics.DrawString(TextBox1.Tex t, Me.Font, Brushes.Black, 10, 10)
g.DrawString(TextBox1.Text, Me.Font, Brushes.Black, 10, 10)
bim.Save("e:\test.jpg")