Crear UDT.

Intenta con esta clase
Public Class CualquierNombre
Dim n As Double
Dim max As Double = 10 'Por defecto será el 10
Dim min As Double = 0 'Por defecto será el 0

'Propiedad de asigancion y lectura del valor
Property valor() As Double
Get
Return n
End Get
Set(ByVal Value As Double)
If Value > max Then Value = max
If Value < min Then Value = min
n = Value
End Set
End Property

'Propiedad para modificar el máximo
Property Maximo() As Double
Get
Return max
End Get
Set(ByVal Value As Double)
max = Value
End Set
End Property
'Propiedad para modificar el mímino
Property Minimo() As Double
Get
Return min
End Get
Set(ByVal Value As Double)
min = Value
End Set
End Property
End Class


la puedes usar así:

dim dato as new CualquierNombre
dato.minimo=0 'no es necesario
dato.maximo0 'no es necesario
dato.valor0
Debug.Write(dato.valor.ToString) 'Escribe 100

JAson

Hola,
Como puedo crear una clase o estructura de manera que se

comporte como los

tipos base del .Net Frmework como "Integer" o "Boolean".
O sea, que pueda hacer lo siguiente:

Dim var As MiClase
var = 24
Debug.Write(var.ToString) 'Escribe 24

Lo que necesito es un tipo de datos que este acotado como

yo quiera, o sea,

que su valor maximo y minimo sean unos que yo decida.

Gracias.
Saludos.



.

Otra pregunta asi y el foro hay que cerrarlo.

Comprate un libro.
Miao.

Hola,
Como puedo crear una clase o estructura de manera que se

comporte como los

tipos base del .Net Frmework como "Integer" o "Boolean".
O sea, que pueda hacer lo siguiente:

Dim var As MiClase
var = 24
Debug.Write(var.ToString) 'Escribe 24

Lo que necesito es un tipo de datos que este acotado

como yo quiera, o sea,

que su valor maximo y minimo sean unos que yo decida.

Gracias.
Saludos.



.

Hola Jasonfabian,
Gracias por la respuesta, la clase que me propones esta muy bien, pero yo lo
que pretendía es hacer una clase o estructura la cual pueda usar de igual
manera que los tipo base sin tener que usar una propiedad de por medio (en
el caso de tu código la propiedad 'valor').
Pero si lo que quiero no es posible, sin duda quetu clase es la mejor
opción.
Muchas gracias.
Saludos.



"Jasonfabian" escribió en el mensaje
news:534001c5236e$9e69b670$
Intenta con esta clase
Public Class CualquierNombre
Dim n As Double
Dim max As Double = 10 'Por defecto será el 10
Dim min As Double = 0 'Por defecto será el 0

'Propiedad de asigancion y lectura del valor
Property valor() As Double
Get
Return n
End Get
Set(ByVal Value As Double)
If Value > max Then Value = max
If Value < min Then Value = min
n = Value
End Set
End Property

'Propiedad para modificar el máximo
Property Maximo() As Double
Get
Return max
End Get
Set(ByVal Value As Double)
max = Value
End Set
End Property
'Propiedad para modificar el mímino
Property Minimo() As Double
Get
Return min
End Get
Set(ByVal Value As Double)
min = Value
End Set
End Property
End Class


la puedes usar así:

dim dato as new CualquierNombre
dato.minimo=0 'no es necesario
dato.maximo0 'no es necesario
dato.valor0
Debug.Write(dato.valor.ToString) 'Escribe 100

JAson

Hola,
Como puedo crear una clase o estructura de manera que se

comporte como los

tipos base del .Net Frmework como "Integer" o "Boolean".
O sea, que pueda hacer lo siguiente:

Dim var As MiClase
var = 24
Debug.Write(var.ToString) 'Escribe 24

Lo que necesito es un tipo de datos que este acotado como

yo quiera, o sea,

que su valor maximo y minimo sean unos que yo decida.

Gracias.
Saludos.



.