Why am I getting a type mismatch here!? [resolved]

I'm using this code to display a random advert in a form (either ad1.bmp, ad2.bmp or ad3.bmp) but it keeps failing with a compile error - type mismatch at the last & sign in the code.

Any ideas why?

Simon

Code:

---

Private Function RandomInteger(Lowerbound As Integer, Upperbound As Integer) As Integer
    RandomInteger = Int((Upperbound - Lowerbound + 1) * Rnd + Lowerbound)
End Function

---

Code:

---

Randomize
picAdvert.Picture = (App.Path & "/ad" & RandomInteger(1, 3) & ".bmp")

---

which line was the error on?

picAdvert.Picture = (App.Path & "/ad" & RandomInteger(1, 3) & ".bmp")

there!

One thing that is wrong is

picAdvert.Picture = (App.Path & "\ad" & RandomInteger(1, 3) & ".bmp")

would that solve the mismatch?

Thanks Martin - same problem with the mismatch though :(

I can get the random number ok - just doesn't seem to like it in that line :(

Simon

maybe you should do this...

VB Code:

dim number as long
 
number = randominteger(1,3)
 
picAdvert.Picture = (App.Path & "\ad" & number & ".bmp")

type mismatch in exactly the same place!

How bizarre?!

Simon

at the point before oppening the app whats the value of the random number?

Oh, I know what the problem is - remove the parentheses.

Same problem Martin (tried that before).

Pino - not sure what you mean there - the random number part works fine (tested with a msgbox)

SImon

Incidently, this works fine:

Code:

---

MsgBox App.Path & "\ad" & RandomInteger(1, 3) & ".bmp"

---

Put together a small project that demonstrates the problem, zip it up and post it. Please make sure to include the bmps.

wow - this is driving me crazy!

Here you go folks.

Simon

(attachment deleted - resolved)

done...

VB Code:

picAdvert.Picture = LoadPicture(App.Path & "/ad" & RandomInteger(1, 3) & ".bmp")

:)

oh what a fool :)

I can't believe I missed that!

Thanks pino

Simon

add resolved to your title :) .. Please ;)

edit - you beat me to it :)

already done :)