prob with array of colors from vb6 to vb.net

[B]

Hello,

I am trying to migrate a vb6 app to vb.net. In one piece
of the vb6 app I have a label where the label backcolor
changes every 5 seconds on a timer. So I created an array
of colors as follows and then run the array in the timer
event in vb6. Not working in vb.net. How would I do this
in vb.net?

vb6 code:
-----------------------------------------
Const ORANGISH As Long = &HC0C0FF
Const ORYEL As Long = &HC0E0FF
Const YELLOWISH As Long = &HC0FFFF
Const GREENISH As Long = &HC0FFC0
Const LIGHTBLUISH As Long = &HFFFFC0
Const PURPLISH As Long = &HFFC0C0
Const PINKISH As Long = &HFFC0FF
Const WHITE As Long = &HFFFFFF
Dim arrColors As Variant

Private Sub Form_Load()
arrColors = Array(ORANGISH, ORYEL, YELLOWISH, LIGHTBLUISH,
PURPLISH, PINKISH, WHITE)
End Sub
Private Sub Timer1_Timer()
Static i
lblRunning.Back Color = arrColors(i)
i = i + 1
If i > 5 Then i = 0
End Sub
------------------------------------------------------

Here is my vb.net conversion
-----------------------------------------
constants...
Dim arrColors() As Long = {ORANGISH, ORYEL, YELLOWISH,
GREENISH, LIGHTBLUISH, PURPLISH, PINKISH, WHITE}

Private Sub Timer1_Tick(... ) Handles Timer1.Tick
Static i As Integer
lblRunning.Back Color = CType(arrColors (i),
System.Drawing. Color)
i += 1
End Sub
-------------------------------------------------

The error message for vb.net says that it cannot convert a
long (arrColors(i)) to System.Drawing. Color. So how could
I achieve the same functionality in the vb.net app as in
the vb6 app above?

Thanks

[Russell Jones]

See the ColorTranslator .FromHTML method.

"B" <an*******@disc ussions.microso ft.com> wrote in message
news:1b******** *************** *****@phx.gbl.. .

Hello,

I am trying to migrate a vb6 app to vb.net. In one piece
of the vb6 app I have a label where the label backcolor
changes every 5 seconds on a timer. So I created an array
of colors as follows and then run the array in the timer
event in vb6. Not working in vb.net. How would I do this
in vb.net?

vb6 code:
-----------------------------------------
Const ORANGISH As Long = &HC0C0FF
Const ORYEL As Long = &HC0E0FF
Const YELLOWISH As Long = &HC0FFFF
Const GREENISH As Long = &HC0FFC0
Const LIGHTBLUISH As Long = &HFFFFC0
Const PURPLISH As Long = &HFFC0C0
Const PINKISH As Long = &HFFC0FF
Const WHITE As Long = &HFFFFFF
Dim arrColors As Variant

Private Sub Form_Load()
arrColors = Array(ORANGISH, ORYEL, YELLOWISH, LIGHTBLUISH,
PURPLISH, PINKISH, WHITE)
End Sub
Private Sub Timer1_Timer()
Static i
lblRunning.Back Color = arrColors(i)
i = i + 1
If i > 5 Then i = 0
End Sub
------------------------------------------------------

Here is my vb.net conversion
-----------------------------------------
constants...
Dim arrColors() As Long = {ORANGISH, ORYEL, YELLOWISH,
GREENISH, LIGHTBLUISH, PURPLISH, PINKISH, WHITE}

Private Sub Timer1_Tick(... ) Handles Timer1.Tick
Static i As Integer
lblRunning.Back Color = CType(arrColors (i),
System.Drawing. Color)
i += 1
End Sub
-------------------------------------------------

The error message for vb.net says that it cannot convert a
long (arrColors(i)) to System.Drawing. Color. So how could
I achieve the same functionality in the vb.net app as in
the vb6 app above?

Thanks

[Cor Ligthert]

B,

I think that this sample shows the most easy
(I took only three colors)

\\\
Private arrColors(2) As Drawing.Color
Private WithEvents mytimer As New Windows.Forms.T imer
Private Sub Form2_Load(ByVa l sender As Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
mytimer.Interva l = 5000
mytimer.Enabled = True
arrColors(0) = Drawing.Color.Y ellow
arrColors(1) = Drawing.Color.B lue
arrColors(2) = Drawing.Color.R ed
Label1.BackColo r = Drawing.Color.R ed
End Sub
Private Sub mytimer_Tick(By Val sender As Object, _
ByVal e As System.EventArg s) Handles mytimer.Tick
Static i As Integer
Label1.BackColo r = arrColors(i)
i = i + 1
If i > 2 Then i = 0
End Sub
///

I hope this helps

Cor

"B" <an*******@disc ussions.microso ft.com>

Hello,

I am trying to migrate a vb6 app to vb.net. In one piece
of the vb6 app I have a label where the label backcolor
changes every 5 seconds on a timer. So I created an array
of colors as follows and then run the array in the timer
event in vb6. Not working in vb.net. How would I do this
in vb.net?

vb6 code:
-----------------------------------------
Const ORANGISH As Long = &HC0C0FF
Const ORYEL As Long = &HC0E0FF
Const YELLOWISH As Long = &HC0FFFF
Const GREENISH As Long = &HC0FFC0
Const LIGHTBLUISH As Long = &HFFFFC0
Const PURPLISH As Long = &HFFC0C0
Const PINKISH As Long = &HFFC0FF
Const WHITE As Long = &HFFFFFF
Dim arrColors As Variant

Private Sub Form_Load()
arrColors = Array(ORANGISH, ORYEL, YELLOWISH, LIGHTBLUISH,
PURPLISH, PINKISH, WHITE)
End Sub
Private Sub Timer1_Timer()
Static i
lblRunning.Back Color = arrColors(i)
i = i + 1
If i > 5 Then i = 0
End Sub
------------------------------------------------------

Here is my vb.net conversion
-----------------------------------------
constants...
Dim arrColors() As Long = {ORANGISH, ORYEL, YELLOWISH,
GREENISH, LIGHTBLUISH, PURPLISH, PINKISH, WHITE}

Private Sub Timer1_Tick(... ) Handles Timer1.Tick
Static i As Integer
lblRunning.Back Color = CType(arrColors (i),
System.Drawing. Color)
i += 1
End Sub
-------------------------------------------------

The error message for vb.net says that it cannot convert a
long (arrColors(i)) to System.Drawing. Color. So how could
I achieve the same functionality in the vb.net app as in
the vb6 app above?

Thanks

[B]

Thanks. That was the trick. (for the sake of my own
posterity I thought I would add this comment) Actually, to
keep the array of colors as numbers I had to do it this
way:

lblRunning.Back Color = ColorTranslator .FromOle(CType
(arrColors(i), Integer))

To use ColorTranslator .FromHtml I would have to set each
constant as a String and create a String array.

Const WHITE As String = "&HFFFFFF"
....

Either way works fine. Many thanks for your help.

-----Original Message-----
See the ColorTranslator .FromHTML method.

"B" <an*******@disc ussions.microso ft.com> wrote in messagenews:1b******* *************** ******@phx.gbl. ..

Hello,

I am trying to migrate a vb6 app to vb.net. In one piece of the vb6 app I have a label where the label backcolor
changes every 5 seconds on a timer. So I created an array of colors as follows and then run the array in the timer
event in vb6. Not working in vb.net. How would I do this in vb.net?

vb6 code:
-----------------------------------------
Const ORANGISH As Long = &HC0C0FF
Const ORYEL As Long = &HC0E0FF
Const YELLOWISH As Long = &HC0FFFF
Const GREENISH As Long = &HC0FFC0
Const LIGHTBLUISH As Long = &HFFFFC0
Const PURPLISH As Long = &HFFC0C0
Const PINKISH As Long = &HFFC0FF
Const WHITE As Long = &HFFFFFF
Dim arrColors As Variant

Private Sub Form_Load()
arrColors = Array(ORANGISH, ORYEL, YELLOWISH, LIGHTBLUISH, PURPLISH, PINKISH, WHITE)
End Sub
Private Sub Timer1_Timer()
Static i
lblRunning.Back Color = arrColors(i)
i = i + 1
If i > 5 Then i = 0
End Sub
------------------------------------------------------

Here is my vb.net conversion
-----------------------------------------
constants...
Dim arrColors() As Long = {ORANGISH, ORYEL, YELLOWISH,
GREENISH, LIGHTBLUISH, PURPLISH, PINKISH, WHITE}

Private Sub Timer1_Tick(... ) Handles Timer1.Tick
Static i As Integer
lblRunning.Back Color = CType(arrColors (i),
System.Drawing. Color)
i += 1
End Sub
-------------------------------------------------

The error message for vb.net says that it cannot convert a long (arrColors(i)) to System.Drawing. Color. So how could I achieve the same functionality in the vb.net app as in
the vb6 app above?

Thanks

.

[Herfried K. Wagner [MVP]]

"B" <an*******@disc ussions.microso ft.com> schrieb:

I am trying to migrate a vb6 app to vb.net. In one piece
of the vb6 app I have a label where the label backcolor
changes every 5 seconds on a timer. So I created an array
of colors as follows and then run the array in the timer
event in vb6. Not working in vb.net. How would I do this
in vb.net?

Store your colors in 'Color' instances directly. You can use
'Color.FromArgb ' to construct a color from RGB data, or you can use
predefined colors available in 'Color.*'.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[B]

Yes. This is the best way. I was thinking about FromArgB
but wasn't sure about the implementation. Here is what I
found on the net which gives me a whole variety of colors

Private m_Rnd As New Random

Public Function RandomRGBColor( ) As Color
Return Color.FromArgb( 255, m_Rnd.Next(0, 255), _
m_Rnd.Next(0, 255), m_Rnd.Next(0, 255))
End Function

Thanks for this suggestion. I am amazed at how there are
so many different ways to accomplish something in vb.net.

-----Original Message-----
"B" <an*******@disc ussions.microso ft.com> schrieb:

I am trying to migrate a vb6 app to vb.net. In one piece of the vb6 app I have a label where the label backcolor
changes every 5 seconds on a timer. So I created an array of colors as follows and then run the array in the timer
event in vb6. Not working in vb.net. How would I do this in vb.net?
Store your colors in 'Color' instances directly. You can

use'Color.FromArg b' to construct a color from RGB data, or you can usepredefined colors available in 'Color.*'.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

.