Как пользоваться функцией 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.091 из 5
Похожие ответы