VB.net Object Min/Max feststellen

[Tim S. (Firma: tsx89) (freak_ts)]

Hallo Leute, mal angenommen, ich hab eine Nummerische Variable 'X', 
dessen Typ ein beliebig verfügbarer Int-Type aus dem .Net-Framework ist. 
(also Int, Int16, Int64, UInt, etc) Und ich möchte herausfinden, welchen 
Min/Max-Wert dieser Typ annehmen kann:

Dim min As Decimal
Dim max As Decimal
Dim X As Integer  'oder beliebiger IntType

Select Case X.GetType               
 Case GetType(Int16)
      max = Int16.MaxValue
      min = Int16.MinValue
 Case GetType(Int32)
      max = Int32.MaxValue
      min = Int32.MinValue
 Case GetType(Int64)
      max = Int64.MaxValue
      min = Int64.MinValue
 Case ...
End Select

MsgBox("X.max=" & max.ToString & vbNewLine & ", X.min=" & min.ToString)

Wie kann ich das machen, ohne jeden einzelnen Typen per Select-Case, 
oder noch umständlicherem abzufragen?

Danke schon mal im Voraus
Gruß, TS

[Tim S. (Firma: tsx89) (freak_ts)]

Gibt es echt keine Möglichkeit?

[bluppdidupp (Gast)]

Ich verstehe zwar nicht wozu man das braucht, aber Reflection wäre da 
eine Möglichkeit. Hier die C#-Variante ohne Prüfung auf mögliche 
Fehlerquellen (z.B. obj=null, oder Typ von obj hat kein .MaxValue)

long einLong=long.MinValue;
            
object obj=einLong; // von obj soll das statische Feld "MaxValue" ausgelesen werden

// Das Feld "MaxValue" aus dem Typ von obj holen:
FieldInfo fieldInfo=obj.GetType().GetField("MaxValue",BindingFlags.Static|BindingFlags.Public);            

// Feld "MaxValue" von obj auslesen:
object fieldValue=fieldInfo.GetValue(obj);
// ..und auf der Konsole ausgeben:
Console.WriteLine("obj.MaxValue: "+fieldValue);

[Tim S. (Firma: tsx89) (freak_ts)]

bluppdidupp schrieb:
> Ich verstehe zwar nicht wozu man das braucht

Ich möchte eine GUI schreiben, bei der man zur Laufzeit dynamisch 
beliebige Objekte instanziieren kann. Die Construcoren der Objekte haben 
Parameter, und diese müssen einen Wert annehmen. Daher stellt das GUI 
ein NumericUpDown oder DomainUpDown-Control bei Int-Typen bereit, um 
diesen Wert einzustellen. Diese Controls benötigen den Min/Max Wert.

Deine Idee mit Reflection ist super, nur leider ist diese Fieldinfo dann 
"Nothing":

Dim X As Integer = 12345
Dim MaxFeld As FieldInfo = SelectedType.GetType().GetField("MaxValue", BindingFlags.Static & BindingFlags.Public)
Dim MinFeld As FieldInfo = X.GetType().GetField("MinValue", BindingFlags.Static & BindingFlags.Public)
Dim max As Decimal = MaxFeld.GetValue(X)
Dim min As Decimal = MinFeld.GetValue(X)

X.GetType.GetFields().Count.ToString   == 0   ??

Kann das eventuell jemand verbessern, oder gibt es eine andere Idee?
Danke schon mal.

[bluppdidupp (Gast)]

Der "|"-Operator ist in vb.net doch bestimmt nicht "&"? - Das wäre auf 
jedenfall sehr unglücklich gewählt ;D