Label

[bEbEr]

como fazer no Label.Caption o valor aparecer como 00,00?

[kuroi]

assim:

x = 0
Label1.Caption = Format(x, "#,##00.00;-#,##00.00")[/code]

Editado Agosto 11, 2006 por kuroi

[bEbEr]

não deu certo..

:/

[kuroi]

aparece o que então??

[bEbEr]

3

e é pra aparece 3,00

[kuroi]

o que eu te passei esta certo, como ficou o codigo que você esta usando??

testei agora e funcionou:

x = 3
Label1.Caption = Format(x, "#,##0.00;-#,##0.00")[/code]

[bEbEr]

cara

ainda não deu

:/

[kuroi]

posta o codigo do seu programa ai então

[bEbEr]

Private Sub TextBox3_Change()
        If TextBox3.Value = "" Then
        Else
        Set busca = Workbooks(Worksheets("Sistema").Range("F20").Value).Worksheets("PRODUTOS").Cells.Find(TextBox3.Value)
        If Not busca Is Nothing Then
            Label8.Caption = Workbooks(Worksheets("Sistema").Range("F20").Value).Worksheets("PRODUTOS").Range("B" & busca.Row).Value
            x = 0
            Label10.Caption = Format(x, "#,##00.00;-#,##00.00")
            Label10.Caption = Label8.Caption - Label7.Caption
            Else
            Label8.Caption = "Não existe!"
            End If
            End If
End Sub

[kuroi]

então, aquele x que eu passei era so um exemplo, não é pra usar também. eu passei um valor pra x e formatei o valor. no caso, é otro valor que você quer formatar. ai ficaria assim:

Private Sub TextBox3_Change()
        If TextBox3.Value = "" Then
        Else
        Set busca = Workbooks(Worksheets("Sistema").Range("F20").Value).Worksheets("PRODUTOS").Cells.Find(TextBox3.Value)
        If Not busca Is Nothing Then
            Label8.Caption = Workbooks(Worksheets("Sistema").Range("F20").Value).Worksheets("PRODUTOS").Range("B" & busca.Row).Value
            Label10.Caption = Format(Label8.Caption - Label7.Caption, "#,##00.00;-#,##00.00")
            Else
            Label8.Caption = "Não existe!"
            End If
            End If
End Sub[/code]

[bEbEr]

agora deu

:D

flwww

[Dracom]

porque não tentou

cap="00,00"

label1.caption=(cap)