Как пользоваться функцией LoadResData - VB
Формулировка задачи:
Как пользоваться функцией LoadResData? не получается загрузить шрифт из файла ресурса!Хочу чтоб в моей программе был "вшит" собственный шрифт, чтобы программа работала на любом компе, даже если такого шрифта в системе не установлено! Перерыл весь инет.. ничего толкового не нашел!!
Решение задачи: «Как пользоваться функцией LoadResData»
textual
Листинг программы
sPath = App.Path & "\MyFont.ttf" BinaryData = LoadResData(101, "Files") Open sPath For Binary Access Write As #1 Put #1, 1, BinaryData Close #1