FONTE NA COMBO BOX

JECIK 23/05/2011 10:37:38
#374741

Olá gostaria que alguÃ©m me dissesse como coloco as fontes na combo box!!!!!!!!!
Agradeço desde já!!

PEGUDO 23/05/2011 11:01:37
#374744 Resposta escolhida

Pega este exemplo aqui

LISTAR FONTES

Troque o List1.AddItem(fontFamilies.Name) Por ComboBox1.Items.Add(fontFamilies.Name)

Qualquer coisa avise.

ESLEYSANCHES 23/05/2011 11:02:36
#374745

Amigão use esse exemplo:

Private Sub AddFonts()  
    Dim allFonts As New Drawing.Text.InstalledFontCollection  
    Dim fontFamilies() As FontFamily = allFonts.Families()  

    For Each fontFamilies As FontFamily In fontFamilies  
        List1.AddItem(fontFamilies.Name)  
    Next  
End Sub

ESLEYSANCHES 23/05/2011 11:04:04
#374746

PUTTSSS !!!
MALS

O NOSSO AMIGO ACIMA TINHA POSTADO ANTES.
aBRAÃ‡OS USE O EXEMPLO DO NOSSO AMIGO PEGUDO

FLW ABRAÃ‡OS !!!!

JECIK 23/05/2011 14:23:19
#374771

olá agradeço a ajuda de vcs mas na estrutura for each depois do in esta dando erro
In fontFamilies ,eu não sei oque colocar já tentei de tudo!!!
obrigada!!!

PEGUDO 23/05/2011 14:49:03
#374773

TaÃ o código alterado, testado e funcionando


Dim allFonts As New Drawing.Text.InstalledFontCollection
Dim fontFamilies() As FontFamily = allFonts.Families()

For Each fonte As FontFamily In fontFamilies
    ComboBox1.Items.Add(fonte.Name)
Next

ComboBox1.SelectedIndex = 0
End Sub

JECIK 23/05/2011 14:57:50
#374774

tudo esta certo mas acontece que na fontfamilies depois do in (In fontFamilies) aparece sublinhado de azul indicando o erro
e a mensagem:[Ã”]Which is not a collection type[Ã”]
tenho q declarar mais alguma variavel alÃ©m destas q vc colocou????
tentei colocar o nome da cobo box mas não adiantou.

PEGUDO 24/05/2011 09:28:20
#374823

Você lembrou de trocar:

For Each fontFamilies As FontFamily

Por:

For Each fonte As FontFamily

???

Se vc reparar, no promeiro, já existe uma variável chamada fontFamilies, então quando foi declarada

For Each fontFamilies As FontFamily In fontFamilies

o programa reclamou que haviam duas variáveis iquais.

Veja o exemplo em anexo como funciona bem.

JECIK 24/05/2011 15:12:23
#374851

Muitooo Obrigada Pegudo!!!!!
agora deu td certo
Vlw!!!!

[txt-size=2] [/txt-size][txt-color=#0000f0] [/txt-color]

Página única

Tópico encerrado , respostas não são mais permitidas

Voltar