textbox moneda

"Jose" escribió en el mensaje
news:erv7J%

Estimados hay alguna función que permita tener un textbox profesional para
datos numericos con 2 decimales estilo moneda.

Gracias de antemano.

Hola,

Prueba con esta:

Public Function Desarrollar(Requerimiento As Idea) As Control
Dim elEditor As New IDE
Dim intento As New Proyecto

intento.definir(Requerimiento)
Do
intento.diseñar
elEditor.revisarDiseño(intento)
elEditor.revisarCodigo(intento)
While Not intento.estaListo

Dim elControl As Control = elEditor.Build(intento)
return elControl
End Function

Salud!

Sin comentarios.

"Leonardo Azpurua" <l e o n a r d o (arroba) m v p s (punto) o r g> escribió
en el mensaje news:

"Jose" escribió en el mensaje
news:erv7J%

Estimados hay alguna función que permita tener un textbox profesional
para datos numericos con 2 decimales estilo moneda.

Gracias de antemano.

Hola,

Prueba con esta:

Public Function Desarrollar(Requerimiento As Idea) As Control
Dim elEditor As New IDE
Dim intento As New Proyecto

intento.definir(Requerimiento)
Do
intento.diseñar
elEditor.revisarDiseño(intento)
elEditor.revisarCodigo(intento)
While Not intento.estaListo

Dim elControl As Control = elEditor.Build(intento)
return elControl
End Function

Salud!

Tienes controles de terceros como Infragistics.


"Jose" escribió en el mensaje
news:

Sin comentarios.

"Leonardo Azpurua" <l e o n a r d o (arroba) m v p s (punto) o r g>
escribió en el mensaje news:

"Jose" escribió en el mensaje
news:erv7J%

Estimados hay alguna función que permita tener un textbox profesional
para datos numericos con 2 decimales estilo moneda.

Gracias de antemano.

Hola,

Prueba con esta:

Public Function Desarrollar(Requerimiento As Idea) As Control
Dim elEditor As New IDE
Dim intento As New Proyecto

intento.definir(Requerimiento)
Do
intento.diseñar
elEditor.revisarDiseño(intento)
elEditor.revisarCodigo(intento)
While Not intento.estaListo

Dim elControl As Control = elEditor.Build(intento)
return elControl
End Function

Salud!

"Cid" escribió en el mensaje
news:

Tienes controles de terceros como Infragistics.

Hola.

Es verdad, la pregunta se referia a como "tener" un control copn
determinadas caracteristicas.

En este caso, la funcion que pide Jose habria que reescribirla, asi:

Public Function Comprar(Requerimiento As Idea) As Control
Dim elMasAdecuado As New Control

For Each c As Control In ControlesDisponibles
If Requerimiento.adaptacion(c) >
Requerimiento.adaptacion(elMasAdecuado) Then
elMasAdecuado = c
End If
Next

If Not elMasAdecuado Is Nothing Then
If Precio(elMasAdecuado) > Presupuesto
AndAlso SomosGenteQueNoPiratea Then
elMasAdecuado = New TextBox ' peor es nada
End If
End If

Return elMasAdecuado
End Function

Salud!

Leo,

Si esas funciones que escribes para crear controles y tomar decisiones
funcionaran de verdad, sería la bomba!!

Saludos:

Jesús López