T A J P R O G Сешанбе, 18.06.2019, 16:00
Приветствую Вас Гость | RSS
Меню сайта

Наш опрос
Аз кадом фанн маълумотнома лозим аст!
Ҷавобҳо ҳамагӣ: 2271

Статистика

Онлайн ҳамагӣ: 2
Меҳмон: 2
Истифодабаранда: 0


01:58
Дарси 3. Ҳуруф аз дохили барнома
 
Dim FC As New PrivateFontCollection()
Dim F As Font
Dim buffer() As Byte
buffer = My.Resources.res.Font_VALENTINEHEARTS
Dim ip As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(GetType(Byte)) * buffer.Length)
Marshal.Copy(buffer, 0, ip, buffer.Length)
Try
    FC.AddMemoryFont(ip, buffer.Length) '
    F = New Font(FC.Families(0), FSize, FStyle, GraphicsUnit.Pixel)
Catch ex As Exception
    F = New Font("Georgia", FSize, FStyle, GraphicsUnit.Pixel)
End Try
Marshal.FreeHGlobal(ip)
Просмотров: 123 | Добавил: aplove | Рейтинг: 0.0/0
Всего комментариев: 1
1 Khisrav   (02.01.2019 15:44)
Дизайнери барномара чихел даст рас кнем?

Ном *:
Email:
Код *:
Реклама

Поиск

Календарь
«  Март 2014  »
ДСЧПҶШЯ
     12
3456789
10111213141516
17181920212223
24252627282930
31

Архив записей

Друзья сайта

Copyright © Умаров Алибек 2019,. Все права защищены.