Jump to content
Fórum Script Brasil
  • 0

Editando Valores Específicos Dentro Da List


Bob Esponja
 Share

Question

Olá a todos! wink.gif

Seguinte, estou com uma duvida.... Eu tenho uma list (list1) e fiz uma repetição com FOR. Esta repetição é bem grande, com mais ou menos uns 96 itens, que são automaticamente adicionados na List com a rotina abaixo.

Private Sub Form_Load()
Dim meses
For meses = 1 To tempo
List1.AddItem prestinicial & "   " & "PGTO"
Next
End Sub

Eu gostaria de fazer o seguinte. A cada 12 itens, ele fizesse com que o 12º viesse em Negrito. Eu tenho tendado colocar um if ali dentro, mas não tem dado certo... alguém sabe como eu posso interagir com um determinado item dentro da list sem afetar os demais ??? huh.gif

Obrigado...

Abraços! smile.gif

Link to comment
Share on other sites

4 answers to this question

Recommended Posts

  • 0

Vou explicar o que eu estou tentando fazer com essa rotina ai:

Private Sub Form_Load()

legenda = 1
If tempo <> 0 Then
MsgBox "A quantidade de meses a serem pagos é:" & " " & tempo, vbOKOnly

'rotina de inclusao na listbox
List1.FontBold = True
List1.AddItem legenda & "º ano"
For meses = 1 To 12
List1.FontBold = False
List1.AddItem prestinicial
Next

end if

É o seguinte:

Eu quero adicionar ao meu list, inicialmente, algo como por exemplo "1º ANO" estando este em NEGRITO. E posteriormente alguns valores com letra normal (sem estar em negrito). Mas quando eu coloco na repetição list1.fontbold = false ele coloca todos os registros do list em letra normal.....

Minha estrutura ficaria com o "1º ANO" em negrito e os outros com letra normal, "2º ano" em negrito, e outros valores com letra normal.... e assim sucessivamente.

alguém pode me ajudar com isso ?!?!? blink.gif

Abraço! blink.gif

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.7k
    • Total Posts
      648.5k
×
×
  • Create New...