Re: Enumerations And Random Numbers

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

From: Larry Serflaten (serflaten_at_usinternet.com)
Date: 10/30/04 

Date: Sat, 30 Oct 2004 07:21:01 -0500

"Herfried K. Wagner [MVP]" <hirf-spam-me-here@gmx.at> wrote

> Dim Values() As AnchorStyles = [Enum].GetValues(GetType(AnchorStyles))
> Dim r As New Random
> MsgBox(Values(r.Next(0, Values.Length - 1)).ToString())

The maxValue of Next needs to be one greater than the last value desired:

        Dim Values() As AnchorStyles = CType([Enum].GetValues(GetType(AnchorStyles)), AnchorStyles())
        Dim r As New Random
        MsgBox(Values(r.Next(0, Values.Length)).ToString())

LFS