Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Chamuanza

[Resolvido] Alterar Alguns Items de Combobox p/ Negrito

Mensagens Recomendadas

Chamuanza

Um bem Aja a todos

Tenho uma Combobox preenchida com uma colecção de items.

É possivel apresentar alguns desses items a negrito?

Um obrigado desde já

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
nelsonr

Tive a fazer uns testes, podes tentar adaptar a partir daqui:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ComboBox1.DrawMode = DrawMode.OwnerDrawVariable
Dim lista As String() = New String() {"Portugal", "a", "Programar"}
ComboBox1.DataSource = lista
End Sub

'
Private Sub ComboBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ComboBox1.DrawItem
Dim font As Font = ComboBox1.Font

'
e.DrawBackground()

' Ao desenhar o item na posição 1 ("a"), altera a fonte para usar o Bold
If e.Index = 1 Then
	font = New Font(ComboBox1.Font.FontFamily.Name, ComboBox1.Font.Size, FontStyle.Bold)
End If

'
e.Graphics.DrawString( _
		ComboBox1.Items(e.Index).ToString(), _
		font, _
		System.Drawing.Brushes.Black, _
		New RectangleF(e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height) _
		)

'
e.DrawFocusRectangle()
End Sub

'
Private Sub ComboBox1_MeasureItem(sender As Object, e As MeasureItemEventArgs) Handles ComboBox1.MeasureItem
e.ItemHeight = 17
End Sub

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.