Working with Hex numbers in VBA

[CMIIandExcel]

Hi all

I am having some issues in passing Hex numbers to a function:

the call which is showing a syntax error is this

SetLabel FormControls.lblHeader, 2, iBarSidePad, (iFormHeaderHight - 2), iBarWidth, _
          "Header", &H999999, &HO00000

the function itself is this:

Private Function SetLabel(ByVal lblLabel As Control, ByVal iTop As Long, ByVal iLeft As Long, ByVal iHeight As Long, ByVal iWidth As Long, _
                          strText As String, ByVal BackColour As Byte, ByVal ForeColour As Byte)
With lblLabel
  .top = iTop
  .left = iLeft
  .Height = iHeight
  .Width = iWidth
  .Caption = strText
  .BackColor = BackColour
  .ForeColor = ForeColour
End With

End Function

I have tried a number of varible types for the 'Back and Fore Colour varibles, if i work with the hex numbers as strings the code complies but falls over at run time.

I know i could replace the hex number with the RGB function, but i would like to get my head around working with hex numbers

and thoughts and advice?

Regards

Mike

 

[Rick Rothstein]

Private Function SetLabel(ByVal lblLabel As Control, _
                          ByVal iTop As Long, _
                          ByVal iLeft As Long, _
                          ByVal iHeight As Long, _
                          ByVal iWidth As Long, _
                          strText As String, _
                          ByVal BackColour As Byte, _
                          ByVal ForeColour As Byte)

Your problem is with the declaration of the last two arguments as Byte data types. A Byte can be assigned a value of 0 to 255... you are trying to assign &H999999 (base 10 value of 10066329) to the BackColor argumant which is just a smidgeon too large to fit in the a Byte variable. Hex representation is just an alternate way of representing "normal" numbers. Just change those two Byte declarations to Long and everything should probably be fine (VB will handle the necessary conversions behind the scenes for you).

 

[GTO]

The uppercase 'O' in the second one also turns the code a pretty color of red...

&HO00000

 

[Rick Rothstein]

The uppercase 'O' in the second one also turns the code a pretty color of red...

&HO00000

Good eyes!! I completely missed that one.

 

[CMIIandExcel]

GTO, Rick

Thanks for the quick responses, I think it was that 'O' which was causing me the headache.

Cheers guys, have a good Friday and a great weekend

Mike

 

[Rick Rothstein]

I think it was that 'O' which was causing me the headache.

Well, maybe one of your headaches... you still cannot stuff a value larger than 255 into a Byte variable/argument. Since you named those last two arguments BackColour and ForeColour, I'm guessing you will want a larger value than 255 every now and then for them, so I think you should still change their declarations from Byte to Long.

 

[CMIIandExcel]

Rick

Sorry i wasnt clear in my last post, i have changed it back to a long.

Thanks again


Mike