developer_rahimi
دوشنبه 04 آبان 1388, 23: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")