Ejemplos usando el Api de windows para Visual basic

181 - Obtener ancho y alto de un texto en pixeles

<Volver> - Anterior - Siguiente



 

 

 

 

Ejemplo que usa la función GetTextExtentPoint32 , para retornar el ancho y alto de un texto

 

 

 

 

 

 

 

Declaración de la función

Private Declare Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" ( _
    ByVal hDC As Long, _
    ByVal lpsz As String, _
    ByVal cbString As Long, _
    lpSize As SIZE) As Long 

 

La función GetTextExtentPoint32 tiene como parámetros

Hdc : DEbemos pasar el Hdc del objeto que tiene el texto al cual se quiere averiguar el ancho y alto

lpsz : El texto

cbString : Tamaño de la cadena

lpSize : Esta estructura retorna el ancho y alto en pixeles

 

Ejemplo

Los siguiente carga unos datos en unos ComboBox y un ListBox, y alhacer clic en un elemento se obtienen los valores

 

Nota: los valores los retorna en las variables ( ancho y alto de la función Obtener_Text_Size)

Código fuente en el formulario

 

Código en un módulo bas

 

Nota en el ejemplo siguiente a este : Agregar un Scrollbar horizontal a un listbox, se utiliza el Api GetTextExtentPoint32 para poder obtener el ancho del texto del item mas largo del listbox, para luego utilizar este valor para especificarlo como ancho del Scroll

 



Buscar en Recursos vb