• Miércoles 6 de Noviembre de 2024, 06:31

Autor Tema:  Sobre El Manejo De Formatos  (Leído 1026 veces)

Jamaicol

  • Nuevo Miembro
  • *
  • Mensajes: 22
    • Ver Perfil
Sobre El Manejo De Formatos
« en: Lunes 31 de Octubre de 2005, 14:27 »
0
Pues tengo un combobox que quiero que me saque porcentajes, y mi duda es, como hago para que cuando yo le meta un valor a mano en la casill y apriete enter me ponga el detras automaticamente el simbolo del tanto por cien.
No se como darle formato a eso.

cpmario

  • Miembro HIPER activo
  • ****
  • Mensajes: 629
    • Ver Perfil
    • http://www.cpimario.com
Re: Sobre El Manejo De Formatos
« Respuesta #1 en: Lunes 31 de Octubre de 2005, 18:46 »
0
Puedes hacerlo cuando presionas enter o al perder el foco.

Código: Text
  1.  
  2. Private Sub Combo1_KeyPress(KeyAscii As Integer)
  3.     If KeyAscii = 13 Then
  4.          KeyAscii = 37
  5.     End If
  6. End Sub
  7.  
  8. Private Sub Combo1_LostFocus()
  9.     If Right$(Combo1.Text, 1) <> "%" Then
  10.         Combo1.Text = Combo1.Text & "%"
  11.     End If
  12. End Sub
  13.  
  14.  

 :comp: