send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Listar Las Fuentes Del Sistema En ComboBox

  • 0 Respuestas
  • 1319 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5283
  • Actividad:
    35%
  • Reputación 28
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 04:06:50 pm »
este ejemplo lista las fuentes del sistema en un combobox y se le puede aplicar multiples usos en un editor de texto por ejemplo:

ingresa solo un combobox en el form1

en un modulo:

Código: Visual Basic
  1. Public Const LF_FACESIZE = 32
  2.  
  3. Type LOGFONT
  4.  
  5. lfHeight As Long
  6.  
  7. lfWidth As Long
  8.  
  9. lfEscapement As Long
  10.  
  11. lfOrientation As Long
  12.  
  13. lfWeight As Long
  14.  
  15. lfItalic As Byte
  16.  
  17. lfUnderline As Byte
  18.  
  19. lfStrikeOut As Byte
  20.  
  21. lfCharSet As Byte
  22.  
  23. lfOutPrecision As Byte
  24.  
  25. lfClipPrecision As Byte
  26.  
  27. lfQuality As Byte
  28.  
  29. lfPitchAndFamily As Byte
  30.  
  31. lfFaceName(LF_FACESIZE) As Byte
  32.  
  33. End Type
  34.  
  35. Type NEWTEXTMETRIC
  36.  
  37. tmHeight As Long
  38.  
  39. tmAscent As Long
  40.  
  41. tmDescent As Long
  42.  
  43. tmInternalLeading As Long
  44.  
  45. tmExternalLeading As Long
  46.  
  47. tmAveCharWidth As Long
  48.  
  49. tmMaxCharWidth As Long
  50.  
  51. tmWeight As Long
  52.  
  53. tmOverhang As Long
  54.  
  55. tmDigitizedAspectX As Long
  56.  
  57. tmDigitizedAspectY As Long
  58.  
  59. tmFirstChar As Byte
  60.  
  61. tmLastChar As Byte
  62.  
  63. tmDefaultChar As Byte
  64.  
  65. tmBreakChar As Byte
  66.  
  67. tmItalic As Byte
  68.  
  69. tmUnderlined As Byte
  70.  
  71. tmStruckOut As Byte
  72.  
  73. tmPitchAndFamily As Byte
  74.  
  75. tmCharSet As Byte
  76.  
  77. ntmFlags As Long
  78.  
  79. ntmSizeEM As Long
  80.  
  81. ntmCellHeight As Long
  82.  
  83. ntmAveWidth As Long
  84.  
  85. End Type
  86. Declare Function EnumFontFamiliesEx Lib "gdi32" Alias "EnumFontFamiliesExA" (ByVal hdc As Long, lpLogFont As LOGFONT, ByVal lpEnumFontProc As Long, ByVal LParam As Long, ByVal dw As Long) As Long
  87. Function EnumFontFamProc(lpNLF As LOGFONT, lpNTM As NEWTEXTMETRIC, ByVaFontType As Long, LParam As Long) As Long
  88. Dim FaceName As String
  89. FaceName = StrConv(lpNLF.lfFaceName, vbUnicode)
  90. Form1.Combo1.AddItem FaceName
  91. EnumFontFamProc = 1
  92. End Function

en el form_load pone:

Código: Visual Basic
  1. Dim LF As LOGFONT
  2. EnumFontFamiliesEx Me.hdc, LF, AddressOf EnumFontFamProc, ByVal 0&, 0
« Última modificación: Mayo 12, 2014, 03:24:48 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



Saber el directorio de "Fonts" del sistema

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1103
Último mensaje Julio 26, 2010, 04:05:12 pm
por ANTRAX
Apagar el equipo, reiniciar Windows, reiniciar el Sistema

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1307
Último mensaje Julio 26, 2010, 10:31:47 am
por ANTRAX
Como apagar, reiniciar o salir del sistema

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1426
Último mensaje Julio 26, 2010, 11:24:30 am
por ANTRAX
Cambiar Fecha u Hora del Sistema

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1279
Último mensaje Julio 26, 2010, 01:39:27 pm
por ANTRAX
Listar los procesos

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1093
Último mensaje Julio 26, 2010, 12:13:04 pm
por ANTRAX