• Viernes 8 de Noviembre de 2024, 21:42

Autor Tema:  Re: Fonts  (Leído 788 veces)

cocoliso

  • Nuevo Miembro
  • *
  • Mensajes: 5
    • Ver Perfil
Re: Fonts
« en: Lunes 28 de Julio de 2003, 12:26 »
0
Hola a todos
Estoy tratando de leer los fonts del sistema desde la registry (font del caption, menu, etc) esto lo logro sin problema pero el valor que me devuelve es Byte().
Como convierto eso a font? a string? a lo que sea?
Muchas gracias!

Brroz

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Fonts
« Respuesta #1 en: Lunes 28 de Julio de 2003, 13:39 »
0
Me imagino que cuando dices que el valor devuelto es byte() quieres decir que obtienes una matriz de bytes...Si esto es así, prueba con algo de este estilo para comprobar el valor.

' Supongamos que byt1() es la matriz en cuestión, que está dimensionada y que su opción base es 1.

...

Dim int1 as integer, str1 as string

For int1 = 1 To UBound(byt1)
str1 = str1 & Chr(byt1(int1))
Next int1
Msgbox str1

...