FUN?ÃO FORMAT()

FUTURA 06/09/2017 19:01:42
#476361
Pessoal, como formatar no vb.net, semelhante ao format do vb6 ?

Format(Rs!total, [Ô]###########0.00[Ô])
Format(Rs!CNPJ, [Ô]00000000000000[Ô])

Procurei na net, e não fica muito claro, achei algo de padlef ou padding.... No ve.net, não tem esse facilitador do format ?
CLEVERTON 06/09/2017 19:42:55
#476362
Dim CPF As String = [Ô]12345678900[Ô]

CPF = Convert.ToUInt64(CPF).ToString([Ô]000\.000\.000\-00[Ô])
CLEVERTON 06/09/2017 19:45:35
#476363
Dim Preco As String = [Ô]10005,3[Ô]
Preco = Decimal.Parse(Preco).ToString([Ô]0,000.00[Ô])
AMORIM 06/09/2017 22:31:08
#476365
[ô]Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Private Sub txtcnpj_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtcnpj.KeyPress
If Not Char.IsNumber(e.KeyChar) And e.KeyChar <> Chr(8) And e.KeyChar <> Chr(13) Then
e.Handled = True
End If
If txtcnpj.TextLength = 18 Then
If Not e.KeyChar = Chr(8) Then
e.Handled = True
txtcnpj.SelectionStart = txtcnpj.TextLength
End If
End If
If IsNumeric(e.KeyChar) = True Then
Select Case txtcnpj.TextLength
Case 0
txtcnpj.Text = [Ô][Ô]
Case 2
txtcnpj.Text = txtcnpj.Text & [Ô].[Ô]
txtcnpj.SelectionStart = 3
Case 6
txtcnpj.Text = txtcnpj.Text & [Ô].[Ô]
txtcnpj.SelectionStart = 9
Case 10
txtcnpj.Text = txtcnpj.Text & [Ô]/[Ô]
txtcnpj.SelectionStart = 11
Case 15
txtcnpj.Text = txtcnpj.Text & [Ô]-[Ô]
txtcnpj.SelectionStart = 17
End Select
End If
End Sub
MOREIRA 07/09/2017 14:23:14
#476369
Citação:

:
[ô]Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Private Sub txtcnpj_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtcnpj.KeyPress
If Not Char.IsNumber(e.KeyChar) And e.KeyChar <> Chr(8) And e.KeyChar <> Chr(13) Then
e.Handled = True
End If
If txtcnpj.TextLength = 18 Then
If Not e.KeyChar = Chr(8) Then
e.Handled = True
txtcnpj.SelectionStart = txtcnpj.TextLength
End If
End If
If IsNumeric(e.KeyChar) = True Then
Select Case txtcnpj.TextLength
Case 0
txtcnpj.Text = [Ô][Ô]
Case 2
txtcnpj.Text = txtcnpj.Text & [Ô].[Ô]
txtcnpj.SelectionStart = 3
Case 6
txtcnpj.Text = txtcnpj.Text & [Ô].[Ô]
txtcnpj.SelectionStart = 9
Case 10
txtcnpj.Text = txtcnpj.Text & [Ô]/[Ô]
txtcnpj.SelectionStart = 11
Case 15
txtcnpj.Text = txtcnpj.Text & [Ô]-[Ô]
txtcnpj.SelectionStart = 17
End Select
End If
End Sub




e com CPF ?
CLEVERTON 07/09/2017 19:42:56
#476372
Rapaz, vcs não estão viajando com essa questão de mascara de entrada não ?

pra que codificar se existe o MaskEditBox ?
MOREIRA 07/09/2017 20:07:38
#476374
Citação:

:
Rapaz, vcs não estão viajando com essa questão de mascara de entrada não ?

pra que codificar se existe o MaskEditBox ?



no meu caso, tenho uma txtbox, onde faço consulta, nomecliente, CPF, CNPJ e Nome apelido. usando o case select

mas já resolvi.
Tópico encerrado , respostas não são mais permitidas
Voltar