Troca de fonte: vbAccelerator Grid não funciona!?


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Troca de fonte: vbAccelerator Grid não funciona!?

vilmarbr

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 27/12/2005 15:45 hs

Troca de fonte neste vbAccelerator Grid não funciona mesmo! ??

Nenhum dos modos usados abaixo troca a fonte:
grid.Font.Name = cdlg.FontName
grid.Font = cdlg.FontName
grid.cell(1, 1).Font = cdlg.FontName
grid.cell(1, 1).Font.Name = cdlg.FontName

Seria mesmo um bug deste grid?

Obrigado.

http://www.vilmarbro.com.br

vilmarbr

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 28/12/2005 07:33 hs

funciona só assim:

        Dim Font As StdFont

        Set Font = New StdFont
        Font.Name = m_Doc.CelulasFonte
        Set m_frm.Grid.Font = Font

http://www.vilmarbro.com.br

tomprata

JUIZ DE FORA
MG - BRASIL

ENUNCIADA !

Postada em 29/12/2005 00:57 hs

Olá,
Eu uso  sub abaixo para mudar fonte da célula e funciona legal.

[ ]',s
Tomás

Public Sub FonteGRID(Zgrid As vbalGrid, Zlinha, Zcoluna, FonteSize, FonteNegrito, Optional Fontenome, Optional FonteItalico, Optional FonteSUBlinhado)

  On Error Resume Next
    Dim sFnt2 As New StdFont


    If Not IsMissing(Fontenome) Then sFnt2.Name = Fontenome
    sFnt2.SIZE = FonteSize '.Size
    sFnt2.Bold = FonteNegrito '(chkBold.Value = Checked)
    If Not IsMissing(FonteItalico) Then sFnt2.Italic = FonteItalico
    If Not IsMissing(FonteSUBlinhado) Then sFnt2.Underline = FonteSUBlinhado

    Zgrid.CellFont(Zlinha, Zcoluna) = sFnt2


    Set sFnt2 = Nothing
    Err.Clear
End Sub

vilmarbr

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 29/12/2005 07:05 hs

Ok, ficou bem parecido, apenas usou uma Sub!

valeu!

http://www.vilmarbro.com.br

Página(s): 1/1