Jump to content

Search the Community

Showing results for tags 'textebox'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Q&A Desenvolvimento
    • Perguntas e respostas rápidas
  • Web Development
    • HTML e CSS
    • Javascript
    • PHP
    • Ruby
    • Python
    • Java
    • .NET
    • Docker, Kubernets and other environments
    • WordPress
    • Mobile
    • Agile
    • Desenvolvimento de Games
    • Banco de Dados
    • Design and UX
    • Algoritmos & Outras Tecnologias
  • Entretenimento e uso pessoal
    • Segurança & Malwares
    • Geral
    • iMasters's pub

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Google+


Hangouts


Skype


Twitter


deviantART


Github


Flickr


LinkedIn


Pinterest


Facebook


Site Pessoal


Localização


Interesses

Found 1 result

  1. Robson Wenzel

    Casas decimais

    Olá, sou novo no VB Estou desenvolvendo um programa de atendimento médico onde tem vários textboxs e um deles é de Valor (R$). O meu problema é o seguinte... No meu banco de dados o campo valor é do tipo moeda e o banco é em access No meu programa no dataset configurei ele para double e por código consegui colocar automaticamente ponto e virgula. Até ai acho que tudo bem... Só que quando eu clico para salvar ele automaticamente esquece do ponto e virgula e salva no datagridview o valor sem ponto e virgula, e dai quando eu seleciono o registro ele esquece dos centavos Ex.: Eu digito na text box: R$ 1.250,00 E quando eu salvo aparece na datagridview: 1250 Quando seleciono o mesmo registro ele fica assim na textbox: R$ 12,50 Só se os centavos não forem zerados ele salva mais se forem 00 ele não salva Por favor! me ajudem. Segue o código da formula para colocar os ponto e virgula para vocês darem uma olhada e ver se tem erros... -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Public Shared Sub Moeda(ByRef txt As TextBox) Dim n As String = String.Empty Dim v As Double = 0 Try n = txt.Text.Replace(",", "").Replace(".", "") If n.Equals("") Then n = "" n = n.PadLeft(3, "0") If n.Length > 3 And n.Substring(0, 1) = "0" Then n = n.Substring(1, n.Length - 1) v = Convert.ToString(n) / 100 txt.Text = String.Format("{0:C2}", v) txt.SelectionStart = txt.Text.Length Catch ex As Exception End Try End Sub Private Sub valortxt_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles valortxt.KeyPress Select Case (valortxt.TextLength) Case 4 valortxt.SelectionStart = 5 End Select End Sub Private Sub valortxt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles valortxt.TextChanged Atendimentos.Moeda(valortxt) End Sub ------------------------------------------------------------------------------------------------------------------------------------------------------------
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.