i tried adding a textbox to an empty app. then set it as readonly, + changed the forecolor to red - nothing happened. so i changed the backcolor to black - bingo - forecolor = red. i changed the backcolor back to control - still forecolor = red.
so you might have to do something along those...
you could use the multimedia control .com component:
mmc.FileName = "C:\Documents and Settings\a user\My Documents\lazy boy (good version).mp3"
mmc.Command = "Open"
mmc.Command = "Play"
'other commands are -
'mmc.Command = "Stop"
'mmc.Command = "Close"
but whether you use the multimedia...
timers (from the toolbox) have an interval property which is the number of milliseconds until the timer_tick event occurs. you could start a timer with an interval of 4.5 hours, or you could use a timespan
have a look at this thread for how to use timespans
heres all the changes i've made
Public Class frmMain
Dim P As Integer
Dim PN As Integer
Dim DN As Integer
Dim DorU As Integer
Dim WinNo As Integer
Dim NowPlaying As...
i've had a bit of a look at it.
i managed to get it running by editing the picDice_Click event
If P = 0 Then
P = 1
P = 0
at the end of the sub before the
then in IncP() i've commented out 'P = P - 1
Public Sub IncP()
its the arrayindex.
as i said earlier, you should use either debug.print or just a msgbox in your code to check your variables, (in this case P) are what you expect them to be. then you can trace it back to where P is set
you need to check that your variable values are what you're expecting them to be
Player(P) = PicBoard.CreateGraphics()
debug.print L & " / " & T
Player(P).DrawImage(EmptyBitmap(P), L, T, EmptyBitmap(P).Width, EmptyBitmap(P).Height)
you know that the .SetPixel - x+y are greater than 0 because they are your i+j loops, so the problem must be L or T. looking at the previous part of the code, it looks like L might be a negative value.
EDIT: although the error says parameter = y, so T + j is either less than 0 or greater than...
this is how the array should be. arrays are zero based.
i'm not sure about the find/delete.
if this doesn't work, try declaring a() as string
Dim a(0) as object
a(0) = me.combo1.selecteditem
edit: why does it have to be an array anyway?