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
yes it will copy element 1 to element 0, element 2 to element 1, element 3 to element 2, etc. then the ReDim Preserve LoginArray(totalUsers - 1), will remove the highest index.
heres all the changes i've made
Imports System
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
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
+ inserting
If P = 0 Then
P = 1
Else
P = 0
End If
at the end of the sub before the
IncP()
call.
then in IncP() i've commented out 'P = P - 1
Public Sub IncP()
NextPlayer:
'P =...
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
Else
Player(P) = PicBoard.CreateGraphics()
debug.print L & " / " & T
Player(P).DrawImage(EmptyBitmap(P), L, T, EmptyBitmap(P).Width, EmptyBitmap(P).Height)
End If
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...
datediff + dateadd are legacy code. you can use .addDays
Dim Date1 As Date
Date1 = "01-07-2007 09:45:00"
If Now > Date1.AddDays(90) Then
MsgBox("Date1 is more than 90 days ago.")
End If
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
Me.MyDataSet.System.Rows.Find(a(0)).Delete()
edit: why does it have to be an array anyway?
why...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.