COMPONETE MONETARIO
olá grande escovadores de bits bom dia!
Alguem sabe de algum componete monetario ou que trabalhe com funções de dinheiro?
Por exemplo no vb6 temos o maskmonet um componente muito interessante que trabalha com funçoes monetárias (moedas)
Gostaria de saber se alguem tem uma sugestão no vb.net
sem mais um abraço a todos
Alguem sabe de algum componete monetario ou que trabalhe com funções de dinheiro?
Por exemplo no vb6 temos o maskmonet um componente muito interessante que trabalha com funçoes monetárias (moedas)
Gostaria de saber se alguem tem uma sugestão no vb.net
sem mais um abraço a todos
alguma sugestão sem ser compnentes,função?
Procure na ToolBox por MaskedTextBox.
Como não tive muita práica no vb6, gostaria que vc me explicasse melhor o que este componente faz para que eu possa ver se tenho como lhe ajudar.
Ela é uma ocx que não deixa vc digitar nada alem de frações montarias(moedas), tipo não deixa vc colocar mais de uma virgula já te da os pontos flutuantes e se voce digitar numeros inteiros ele já formata, poderiamos fazer uma funçao para isso mais leva tempo para elaborar , já com um componente isso fica bem pratico e rapido a sua programação, entende?
Exemplo vc ditada 12,30 no masktext conforme indicado pelo tecla ela vai ficar __12,30 esse traço vai dar pau no banco se tiver configurado decimal
Não sei se fui claro aqui , me desculpa caso não seja.
um abraço a todos
Exemplo vc ditada 12,30 no masktext conforme indicado pelo tecla ela vai ficar __12,30 esse traço vai dar pau no banco se tiver configurado decimal
Não sei se fui claro aqui , me desculpa caso não seja.
um abraço a todos
Citação:#318280 postada em 30/07/2009 08:01:55
Procure na ToolBox por MaskedTextBox.
TECLA - VBMania
[S30] Porque pela graça sois salvos, por meio da fé; e isto não vem de vós, é dom de Deus (Efésios 2:8).
Caro tecla não da certo devido a mascara do mesmo .
Mesmo assim sou grato pela sua sugestão
Citação:http://social.msdn.microsoft.com/forums/pt-BR/vsvbasicpt/thread/3f3a3f51-d8d4-4a1e-ad09-a2f927bca8f2/
Pesquisando sobre o assunto achei este forum bastante interessante e gostaria de repassar para vcs talvez seja util.
ainda estou teste as sugestões depois digo se foi validas, ok?
um abraço a todos
Bom dia a todos os VBmaina!
No componente maskedttextbox existe a propriedade TextAlign, sendo configurada para direita e a propriedade promptchar=0
isso fica bem interessante é uma solução para este fim monetário.
Por enquanto estarei utilizando este procedimento, se der tudo certinho voltarei para encerrar o topico, se alguém achar uma outra solução fiquem avontade.
Até a próxima um abraço a todos, fiquem com Deus
No componente maskedttextbox existe a propriedade TextAlign, sendo configurada para direita e a propriedade promptchar=0
isso fica bem interessante é uma solução para este fim monetário.
Por enquanto estarei utilizando este procedimento, se der tudo certinho voltarei para encerrar o topico, se alguém achar uma outra solução fiquem avontade.
Até a próxima um abraço a todos, fiquem com Deus
Bom,
Como eu não gostei de utilizar o masked para valores monetários, preferi utilizar o keypress e o leave para fazer a formatação do campo, com a propriedade do textbox LeftToRight =True:
Private Sub txtVlrPago_kEYPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtVlrPago.KeyPress
If Not Char.IsNumber(e.KeyChar) And Not e.KeyChar = vbBack And Not e.KeyChar = [Ô],[Ô] And Not e.KeyChar = [Ô].[Ô] Then
e.Handled = True
End If
End Sub
Private Sub txtVlrPago_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtVlrPago.Leave
Try
Me.txtVlrPago.Text = Format(CDbl(Me.txtVlrPago.Text), [Ô]#,####0.00[Ô])
[ô]Me.txtVlrPago.Text = Replace(Me.txtVlrPago.Text, [Ô].[Ô], [Ô][Ô])
If CDbl(Replace(Me.txtVlrPago.Text, [Ô].[Ô], [Ô][Ô])) - CDbl((Me.TXTSALDO.Text)) < 0 Then
Me.TXTTROCO.Text = 0
Else
Me.TXTTROCO.Text = (CDbl((Me.txtVlrPago.Text)) - CDbl((Me.TXTSALDO.Text))).ToString([Ô]c[Ô])
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Como eu não gostei de utilizar o masked para valores monetários, preferi utilizar o keypress e o leave para fazer a formatação do campo, com a propriedade do textbox LeftToRight =True:
Private Sub txtVlrPago_kEYPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtVlrPago.KeyPress
If Not Char.IsNumber(e.KeyChar) And Not e.KeyChar = vbBack And Not e.KeyChar = [Ô],[Ô] And Not e.KeyChar = [Ô].[Ô] Then
e.Handled = True
End If
End Sub
Private Sub txtVlrPago_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtVlrPago.Leave
Try
Me.txtVlrPago.Text = Format(CDbl(Me.txtVlrPago.Text), [Ô]#,####0.00[Ô])
[ô]Me.txtVlrPago.Text = Replace(Me.txtVlrPago.Text, [Ô].[Ô], [Ô][Ô])
If CDbl(Replace(Me.txtVlrPago.Text, [Ô].[Ô], [Ô][Ô])) - CDbl((Me.TXTSALDO.Text)) < 0 Then
Me.TXTTROCO.Text = 0
Else
Me.TXTTROCO.Text = (CDbl((Me.txtVlrPago.Text)) - CDbl((Me.TXTSALDO.Text))).ToString([Ô]c[Ô])
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Tópico encerrado , respostas não são mais permitidas