SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: cocoliso en Lunes 28 de Julio de 2003, 12:26

Título: Re: Fonts
Publicado por: cocoliso en Lunes 28 de Julio de 2003, 12:26
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!
Título: Fonts
Publicado por: Brroz en Lunes 28 de Julio de 2003, 13:39
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

...