|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Formatar conteúdo do listbox ...
|
 |
|
|
|
Postada em 5/1/2001 por Maze
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
|
|
|
|
|
