Как пользоваться функцией 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
