Imprimir dos decimales de visual basic 6.0
Les cuento necesito imprimir con decimales si ingreso un valor entero, ejemplo
En una caja de texto ingreso el 1 y cuando imprima aparezca 1,00
Soy inexperto en esto
Desde ya muchas gracias
En una caja de texto ingreso el 1 y cuando imprima aparezca 1,00
Soy inexperto en esto
Desde ya muchas gracias
1 respuesta
Respuesta de ifrancoz
1
Para imprimir con decimales se utiliza la función Format
Ejemplos :
Text1 = 1
Valor = Val(text1)
Printer.Print Format(Valor, "###,###,###.00")
Print #1 Format(Valor,"###,##,###.00")
Text2 = Format(Valor,"###,##,###.00")
Suerte !
Ejemplos :
Text1 = 1
Valor = Val(text1)
Printer.Print Format(Valor, "###,###,###.00")
Print #1 Format(Valor,"###,##,###.00")
Text2 = Format(Valor,"###,##,###.00")
Suerte !
Ok, pero mira te muestro el código para ver si me aydas, aunque tu idea es bien clara, pero para ver como implementaría esto
Private Sub txt_peso_KeyPress(KeyAscii As Integer)
If Not (KeyAscii = 8) And Not (KeyAscii = 13) Then
pos = InStr(1, "1234567890.", Chr(KeyAscii))
If (pos = 0) Then
KeyAscii = 0
ElseIf KeyAscii = 46 Then
pos = InStr(1, txt_peso.Text, Chr(KeyAscii))
If (pos > 0 Or (pos = 0 And Len(txt_peso.Text) = 0)) Then
KeyAscii = 0
End If
End If
End If
End Sub
Private Sub txt_peso_LostFocus()
If opt_despachaa(0).Value = True And Trim(txt_peso.Text) <> "" Then
cmb_imprimir_Click
End If
Exit Sub
End Sub
Desde ya gracias nuevamente
Private Sub txt_peso_KeyPress(KeyAscii As Integer)
If Not (KeyAscii = 8) And Not (KeyAscii = 13) Then
pos = InStr(1, "1234567890.", Chr(KeyAscii))
If (pos = 0) Then
KeyAscii = 0
ElseIf KeyAscii = 46 Then
pos = InStr(1, txt_peso.Text, Chr(KeyAscii))
If (pos > 0 Or (pos = 0 And Len(txt_peso.Text) = 0)) Then
KeyAscii = 0
End If
End If
End If
End Sub
Private Sub txt_peso_LostFocus()
If opt_despachaa(0).Value = True And Trim(txt_peso.Text) <> "" Then
cmb_imprimir_Click
End If
Exit Sub
End Sub
Desde ya gracias nuevamente
La rutina para capturar solo números se puede simplificar de esta forma :
Private Sub txt_peso_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57 ' Permite los dígitos
Case 45 To 46 'Permite - y .
Case 8 ' Permite el carácter de retroceso
Case Else
KeyAscii = 0
Beep
End Select
End Sub
Private Sub txt_peso_LostFocus()
If opt_despachaa(0).Value = True And Val(txt_peso) <> 0 Then
cmb_imprimir_Click
End If
End Sub
Suerte !
Private Sub txt_peso_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57 ' Permite los dígitos
Case 45 To 46 'Permite - y .
Case 8 ' Permite el carácter de retroceso
Case Else
KeyAscii = 0
Beep
End Select
End Sub
Private Sub txt_peso_LostFocus()
If opt_despachaa(0).Value = True And Val(txt_peso) <> 0 Then
cmb_imprimir_Click
End If
End Sub
Suerte !
