Ejemplos usando el Api de windows para Visual basic

113 - Api GetTextMetrics

Volver al Listado Api - Anterior - Siguiente

El siguiente ejemplo utiliza el Api GetTextMetrics para averiguar si una determinada fuente es de tipo Fija o variable

En el siguiente código, en el FormLoad, se cargan las fuentes instaladas en un control ListBox, luego al seleccionar una del List se le envía a una sub ( Tipo_De_Fuente ) el nombre de la fuente seleccionada, y dentro de la rutina se ejcuta el Api GetTextMetrics que devuelve y retorna una estructura para consultar si la fuente es de tipo Variable o es una fuente Fija

Controles

Un control List1
un Label1.

Código fuente en un formulario.

Option Explicit 'Api GetTextMetrics Private Declare Function GetTextMetrics _ Lib "gdi32" _ Alias "GetTextMetricsA" ( _ ByVal hdc As Long, _ lpMetrics As TEXTMETRIC) As Long ' Estructura TEXTMETRIC Private Type TEXTMETRIC tmHeight As Long tmAscent As Long tmDescent As Long tmInternalLeading As Long tmExternalLeading As Long tmAveCharWidth As Long tmMaxCharWidth As Long tmWeight As Long tmOverhang As Long tmDigitizedAspectX As Long tmDigitizedAspectY As Long tmFirstChar As Byte tmLastChar As Byte tmDefaultChar As Byte tmBreakChar As Byte tmItalic As Byte tmUnderlined As Byte tmStruckOut As Byte tmPitchAndFamily As Byte tmCharSet As Byte End Type Sub Tipo_De_Fuente(Nombre_Fuente As String) Dim Tmetrics As TEXTMETRIC Font.Name = Nombre_Fuente GetTextMetrics hdc, Tmetrics If (Tmetrics.tmPitchAndFamily And 1) = 0 Then Label1 = "Fuente FIJA" Else Label1 = "Fuente Variable" End If End Sub Private Sub Form_Load() Dim i As Integer 'Lista y agrega las fuentes al control List1 For i = 0 To Screen.FontCount - 1 List1.AddItem Screen.Fonts(i) Next End Sub Private Sub List1_Click() 'Le pasa el nombre de la fuente _ y muestra si es una fuente Fija o variable Call Tipo_De_Fuente(List1) End Sub

Buscar en Recursos vb