TECHNOLOGIES
FORUMS
JOBS
BOOKS
EVENTS
INTERVIEWS
Live
MORE
LEARN
Training
CAREER
MEMBERS
VIDEOS
NEWS
BLOGS
Sign Up
Login
No unread comment.
View All Comments
No unread message.
View All Messages
No unread notification.
View All Notifications
Answers
Post
An Article
A Blog
A News
A Video
An EBook
An Interview Question
Ask Question
Forums
Monthly Leaders
Forum guidelines
markward70
NA
5
0
Novice needs some help
Jul 9 2004 12:42 PM
I have been working on a lottery project that creates 6 random unique numbers 0 - 49, and sorts them using a Bubble Sort LBound to UBound and shows the results in a set of labels. It is similar to the English lottery here in the UK! The problem is this i want the labels to change colour to reflect the numbers of the balls, 0-9 the label is white, 10 - 19 the label is Cyan, 20 - 29 the label is Red and so on. The code i've written so far is below: Dim Balls(5) As Integer Dim labels(5) As System.Windows.Forms.Label Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer Dim OuterLoop As Integer Dim InnerLoop As Integer Dim TempNumber As Integer Dim NewNumber As Integer For i = 0 To 5 Randomize() Do NewNumber = CInt(Int((49 * Rnd()) + 1)) Loop Until NewNumber <> Balls(0) And _ NewNumber <> Balls(1) And _ NewNumber <> Balls(2) And _ NewNumber <> Balls(3) And _ NewNumber <> Balls(4) And _ NewNumber <> Balls(5) Balls(i) = NewNumber Next For OuterLoop = LBound(Balls) To (UBound(Balls) - 1) For InnerLoop = (OuterLoop + 1) To UBound(Balls) If Balls(OuterLoop) > Balls(InnerLoop) Then TempNumber = Balls(OuterLoop) Balls(OuterLoop) = Balls(InnerLoop) Balls(InnerLoop) = TempNumber End If Next Next I can generate the random unique numbers compare them with each other and display them in the labels that i have set up, but i cant manage to figure out how to change the colour of the label to reflect the number displayed in the labels? I hope that you can give me a clue or tips to over come this, i tried alot of If Then Else, or a set of Select Case statements but i couldnt slim or get the code to work. I know iam waffling on but could you help me please? Mark (uk)
Reply
Answers (
5
)
Datagrid loses columns during edit
COM Object