| Вопрос: Вставка текста на рисунок | Добавлено: 06.02.08 08:24 |
Автор вопроса:  Ejara
|
| Есть фотография в jpeg. Необходимо вставить дату и время на рисунок. Подскажите как это можно сделать. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545 |
Web-сайт: Профиль | | #1 | Добавлено: 06.02.08 13:47 |
|
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim jpg As Image jpg = Image.FromFile("C:\source.jpg" 
Dim font As New System.Drawing.Font("Times New Roman", 12) Dim gc As Graphics = Graphics.FromImage(jpg) gc.DrawString("27.12.99 13:14:15", font, Brushes.Blue, jpg.Width - 130, jpg.Height - 30) gc.Dispose() jpg.Save("c:\dest.jpg"
jpg.Dispose() End Sub End Class |
||
Страница: 1 |