USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Formatar conteúdo do listbox ...
Postada em 5/1/2001 por Maze      Clique aqui para enviar email para o autor  mazesyst@ig.com.br
'Abra um novo projeto e adicione:
'
'1 ListBox(List1) e 1 CommandButton(Command1)
'
'e o código abaixo no Form1:

Option Explicit

Private Sub Command1_Click()

If Command1.Caption = "Fechar" Then Unload Me: End

Dim Valor As Currency, Valor2 As Currency, J As Integer, Frase As String

Cls
List1.Clear

  'Esta formatação funcionará com as Fontes Abaixo
   List1.FontName = "Fixedsys"
   FontName = "Courier New"
   'FontBold = True
  'List1.FontName = "Courier New"
  'List1.FontName = "Courier"
  'List1.FontBold = True
    
  Valor = 9: Valor2 = 2180: Frase = "a"

  List1.AddItem Format(Format(Valor, "$#,##0.00"), "@@@@@@@@@@@@") & Format(Frase, "@@@@@@@@@@@" & Format(Format(Valor2, "$#,##0.00"), "@@@@@@@@@@@@@@@"))
  Print Format(Format(Valor, "$#,##0.00"), "@@@@@@@@@@@@") & Format(Frase, "@@@@@@@@@@@" & Format(Format(Valor2, "$#,##0.00"), "@@@@@@@@@@@@@@@"))
  
  For J = 1 To 22
    Valor = Valor + 90
    Valor2 = Valor2 - 99
    Frase = Frase & "a"
    
    If Len(Frase) > 5 Then Frase = String((Len(Frase) - 5), "a")
    
    List1.AddItem Format(Format(Valor, "$#,##0.00"), "@@@@@@@@@@@@") & Format(Frase, "@@@@@@@@@@@" & Format(Format(Valor2, "$#,##0.00"), "@@@@@@@@@@@@@@@"))
  
   'Para Impressora ou Formulário use:
   Print Format(Format(Valor, "$#,##0.00"), "@@@@@@@@@@@@") & Format(Frase, "@@@@@@@@@@@" & Format(Format(Valor2, "$#,##0.00"), "@@@@@@@@@@@@@@@"))

Next J

End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Command1.Caption = "Fechar"
Command1.FontBold = True

End Sub

Private Sub Form_Resize()
  
Command1_Click
WindowState = 2
List1.Left = Me.Width / 2
List1.Width = Me.Width / 2.2
List1.Height = Height * 0.75
List1.Top = 0
Command1.Left = List1.Left - Command1.Width
Command1.Top = Height * 0.8

End Sub

'sds

'Maze
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página