Problema con ShowFont

[rafapaskual]

Hola!

Estoy haciendo una aplicación con Visual Basic 6.0 que tengo instalado en un W2K. Tengo un problema cuando intento mostrar un dialogo de fuente del control CommonDialog 6.0 (SP3), éste me genera un error y me dice que no hay fuentes instaladas, que pruebe a instalarlas desde el panel de control, pero esto no es cierto, en la carpeta Fuentes del panel de control estan todas muy bien puestecitas!!! No se si se deberá a algun problema de mi W2k o si es un problema que pase siempre, alguien me puede ayudar??

Os pongo el código por si me he dejado algo al usar el control!

Private Sub VCABECERA_DblClick(Index As Integer)
With Dialog
.Flags = cdlCFEffects
.Color = VCABECERA(Index).ForeColor
.FontBold = VCABECERA(Index).FontBold
.FontItalic = VCABECERA(Index).FontItalic
.FontStrikethru = VCABECERA(Index).FontStrikethru
.FontUnderline = VCABECERA(Index).FontUnderline
.FontName = VCABECERA(Index).FontName
.FontSize = VCABECERA(Index).FontSize .ShowFont
End With
End Sub

Gracias por vuestro tiempo!

Saludos!

[pabli]

rafapaskual,

eso tiene más pinta del sistema operativo que de un error de programación. Lo probaré en mi 2000 Server...

Saludos
Pablo

[rafapaskual]

Antes que nada gracias por contestar Pabli. He probado el código en otro windows 2000 practicamente limpio y me ha dado el mismo problema. No puede ser que el control sea incompatible con windows2000 verdad? decidme que no!!! si fuera asi sabeis de alguna alternativa?

Gracias por vuestro tiempo!

Saludos!

[pabli]

rafapaskual,

lo he podido probar en un NT y me dice lo mismo, en 2000server imagino que lo mismo. Lo he buscado en la ayuda y en msdn de la web y como si te tocas...

http://msdn.microsoft.com/library/de...fontsexist.asp

Te dice que mires esto pero lo busco y no aparece nada.
ScreenFonts
PrinterFonts
Both

Es muy extraño porque es un control habitual, pero yo solo he utilizado ShowOpen. Si averiguo algo escribo.

Saludos
Pablo

[rafapaskual]

Hola! Muchas gracias Pabli he conseguido arreglarlo con la pagina que me diste:

CommonDialog1.Flags = cdlCFBoth
CommonDialog1.ShowFont

Hay que indicarle primero de donde quieres que coja las fuentes!

Gracias otra vez! Te debo una!

[pabli]

rafapaskual,

has estado muy suelto , pues yo busqué donde encajar esos argumentos y nada.

Saludos
Pablo