VPF::Печатаем прописью - Форум программистов

DenageS

Дата 4.11.2006, 14:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 81
Регистрация: 29.9.2006

Репутация: нет
Всего: нет

Значит так, есть все отсканированные буквы алфавита в формате .ico с прозрачностью. Хочу сделать так, чтобы можно было ими печатать. Я сделал это печатью на форме:

Код


If Chr(KeyAscii) = "а" Then
Form1.PaintPicture а.Picture, x, y
x = x + а.ScaleWidth
If x >= Form1.ScaleWidth Then
x = 0
y = y + а.ScaleHeight
End If
End If

Но сразу возникли проблемы:
1. При выполнении form1.printform, весь этот текст или очищался, или просто не печатался = пустой лист.
2. Размер шрифта. Допустим есть большая отсканированная буква. Надо чтобы при выборе шрифта "минимальный" она уменьшалась. Я сделал так:

Код


If Chr(KeyAscii) = "а" Then
Form1.PaintPicture а.Picture, x, y, w/2,h/2 'тут ширина и высота уменьшаются вдвое
x = x + а.ScaleWidth
If x >= Form1.ScaleWidth Then
x = 0
y = y + а.ScaleHeight
End If
End If

Но при этом вокруг буквы появляются черные точки.
Помогите как правильно реализовать. Может копированием pictureBox;ов в форме? Но как?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »