Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Dim i as Integer
i=AddFontResource AppPath + "myfont.ttf"
If i<> 0 Then
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); // сообщить о шрифте системе
End If
VB 6.0 2 Problemki
Vopros1:
Kak sredstvami visual basic + windows api pravilno ustanovite shrift(FONT) v windows (ne prosto skopirovate ego v papku fonts a oficialno zaregistrirovate ego v windows)
Vopros2:
Kak sdelate v ListView(Microsoft Windows Common Controls 5.0) tak chtobi nelza bilo dvigate znachki po rabochey oblasti listview. V principe mozno ustanovite svoystvo OLEDragMode v polozenie 1 - ccOLEDragAutomatic no eto ne sovsem reshaet problemu vede togda stanovitsa mozno dvigate ikonku zapredeli listview. V principe so svoystvom ccOLEDragAutomatic za predelami listview ikonka uze ne kuda ne dropaetsa za isklucheniem odnogo objecta - standartnaya korzina windows- i kogda ikonku dropaesh na korzinu ona udalaetsa iz listview. Pomogite chem smozete a to chota ya uze sovsem zamuchilsa s etim listview.
Kak sredstvami visual basic + windows api pravilno ustanovite shrift(FONT) v windows (ne prosto skopirovate ego v papku fonts a oficialno zaregistrirovate ego v windows)
Vopros2:
Kak sdelate v ListView(Microsoft Windows Common Controls 5.0) tak chtobi nelza bilo dvigate znachki po rabochey oblasti listview. V principe mozno ustanovite svoystvo OLEDragMode v polozenie 1 - ccOLEDragAutomatic no eto ne sovsem reshaet problemu vede togda stanovitsa mozno dvigate ikonku zapredeli listview. V principe so svoystvom ccOLEDragAutomatic za predelami listview ikonka uze ne kuda ne dropaetsa za isklucheniem odnogo objecta - standartnaya korzina windows- i kogda ikonku dropaesh na korzinu ona udalaetsa iz listview. Pomogite chem smozete a to chota ya uze sovsem zamuchilsa s etim listview.
Цитата:
Originally posted by Putch
Vopros1:
Kak sredstvami visual basic + windows api pravilno ustanovite shrift(FONT) v windows (ne prosto skopirovate ego v papku fonts a oficialno zaregistrirovate ego v windows)
Vopros1:
Kak sredstvami visual basic + windows api pravilno ustanovite shrift(FONT) v windows (ne prosto skopirovate ego v papku fonts a oficialno zaregistrirovate ego v windows)
Код:
После этого он должен быть виден в любых других приложениях под Win.
Удаляется через RemoveFontResource.
P.S. там правда есть маленький моментик, с тем скоко он в системе будет висеть, ща разбираюсь с ним