moving with keys

ok i did some wokin and iv come alon quite nicely ((right...))
anyhoo im making a new game and i have some questions.

i have an image in a picture box, and i would like for it to do the following:

when i press the up arrow on the keyboard the img would go up until it reaches the top of the picture box.

when i press the down arrow i would like the img to go down until it reaches the bottom of the picture box.

____

im not sure how to assign differnt keys, such as the up arrow and down arrow, i know it has somthing to do with the keydown and keyup code area but im lost after that....

I don't know much about pictures within pictures... but for the keys:

VB Code:

Dim Keys(0 to 255)
Form1_Keydown (......)
'Print Keycode
Keys(KeyCode) = True
end sub
 
Form1_KeyUp (......)
Keys(KeyCode) = False
end sub

get rid of ' before print keycode to get the codes for arrow keys (I think it's somehere around 40...)

Look at this thread...it may be come inn handy...

http://vbforums.com/showthread.php?s=&threadid=219053

the arrow keys are:
37 up
38 right
39 down
40 left

as far as moveing the image in the picbox the easyiest way would probaly be to use the bitblt api call

if you dont know how it works i copyed the text from vbapi.com(currently shut down but i downloaded the whole site)

BitBlt Function
Declare Function BitBlt Lib "gdi32.dll" (ByVal hdcDest As Long, ByVal nXDest As Long, ByVal nYDest As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hdcSrc As Long, ByVal nXSrc As Long, ByVal nYSrc As Long, ByVal dwRop As Long) As Long

Platforms

Windows 95: Supported.
Windows 98: Supported.
Windows NT: Requires Windows NT 3.1 or later.
Windows 2000: Supported.
Windows CE: Requires Windows CE 1.0 or later.

Description & Usage
BitBlt performs a bit-block transfer of a rectangular portion of an image from one device to another. The dimensions of the transfered rectangle are perfectly preserved. The function can perform a variety of raster operations to transfer the block from the source device to the target device.

Return Value
If an error occured, the function returns 0 (Windows NT, 2000: use GetLastError to get the error code). If successful, the function returns a non-zero value.

Visual Basic-Specific Issues
None.

Parameters

hdcDest
A handle to the device context of the device which receives the transfered image block.
nXDest
The x-coordinate of the point to position the upper-left corner of the transfered image block.
nYDest
The y-coordinate of the point to position the upper-left corner of the transfered image block.
nWidth
The width in pixels of the image block.
nHeight
The height in pixels of the image block.
hdcSrc
A handle to the device context of the device which contains the image block to transfer.
nXSrc
The x-coordinate of the upper-left corner of the image block to transfer.
nYSrc
The y-coordinate of the upper-left corner of the image block to transfer.
dwRop
One of the following flags identifying the raster operation to use to transfer the image block. Each raster operation uses the RGB color value of the source and/or target pixel to determine the new color of the target pixel.
BLACKNESS
Fill the destination rectangle with the color whose index is 0 in the physical palette (which is black by default).
CAPTUREBLT
Windows 98, 2000: Include any windows layered on top of the window being used in the resulting image.
DSTINVERT
Invert the colors in the destination rectangle.
MERGECOPY
Merge the colors of the source rectangle with the specified pattern using the bitwise AND operator.
MERGEPAINT
Merge the colors of the inverted source rectangle with the colors of the destination rectangle using the bitwise OR operator.
NOMIRRORBITMAP
Windows 98, 2000: Prevent the bitmap from being mirrored.
NOTSRCCOPY
Copy the inverted source rectangle to the destination rectangle.
NOTSRCERASE
Combine the colors of the source and destination rectangles using the bitwise OR operator and then invert the resulting color.
PATCOPY
Copy the specified pattern into the destination bitmap.
PATINVERT
Combine the colors of the specified pattern with the colors of the destination rectangle using the bitwise XOR operator.
PATPAINT
Combine the colors of the specified pattern with the colors of the inverted source rectangle using the bitwise OR operator. Combine the result of that operation with the colors of the destination rectangle using the bitwise OR operator.
SRCAND
Combine the colors of the source and destination rectangles using the bitwise AND operator.
SRCCOPY
Copy the source rectangle directly into the destination rectangle.
SRCERASE
Combine the inverted colors of the destination rectangle with the colors of the source rectange using the bitwise AND operator.
SRCINVERT
Combine the colors of the source and destination rectangles using the bitwise XOR operator.
SRCPAINT
Combine the colors of the source and destination rectangles using the bitwise OR operator.
WHITENESS
Fill the destination rectangle with the color whose index is 1 in the physical palette (which is white by default).

Constant Definitions

Const BLACKNESS = &H42
' Const CAPTUREBLT = ???
Const DSTINVERT = &H550009
Const MERGECOPY = &HC000CA
Const MERGEPAINT = &HBB0226
' Const NOMIRRORBITMAP = ???
Const NOTSRCCOPY = &H330008
Const NOTSRCERASE = &H1100A6
Const PATCOPY = &HF00021
Const PATINVERT = &H5A0049
Const PATPAINT = &HFB0A09
Const SRCAND = &H8800C6
Const SRCCOPY = &HCC0020
Const SRCERASE = &H440328
Const SRCINVERT = &H660046
Const SRCPAINT = &HEE0086
Const WHITENESS = &HFF0062
Example

' This code is licensed according to the terms and conditions listed here.

' Copy a rectanglular image from window Form1 to window Form2
' exactly (using SRCCOPY). The rectangle has a width of 100 and a height of
' 50. The upper-left corner of the source block is (350, 250); the block
' is placed at (0,0) in Form2.
Dim retval As Long ' return value

' Transfer the image exactly as described above.
retval = BitBlt(Form2.hDC, 0, 0, 100, 50, Form1.hDC, 350, 250, SRCCOPY)



this should get you started post again if you need more help

:eek: :eek: :eek: :confused:

uhhhhh...
((that last post confuses the hell out of me no offence to ther poster but that scares me))

but ok now that i have the keycodes where should i add them to the code?

To use this you need to put that in the GeneralSection

VB Code:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

in your code ( in a loop!) you can use this one to get the Arrowkeys

VB Code:

If (GetAsyncKeyState(vbKeyLeft)) Then
                    'move image to the left
                ElseIf (GetAsyncKeyState(vbKeyRight)) Then
                    'move image to the right
                ElseIf (GetAsyncKeyState(vbKeyUp)) Then
                    'move image up
                ElseIf (GetAsyncKeyState(vbKeyDown)) Then
                    'move image down
                End If

Quote:

---

Originally posted by SmashX
:eek: :eek: :eek: :confused:

uhhhhh...
((that last post confuses the hell out of me no offence to ther poster but that scares me))

but ok now that i have the keycodes where should i add them to the code?

---

Did you look at my post at all???

Quote:

---

Originally posted by NoteMe
Did you look at my post at all???

---

yes i did.

opus thanks. thats what i was asking for.

I'm just wondering...which of these lines did you not understand in my code that you understod in Opus code:

VB Code:

If GetAsyncKeyState(VK_RIGHT) <> 0 Then
      intX = intX + 25
    End If
    If GetAsyncKeyState(VK_LEFT) <> 0 Then
      intX = intX - 25
    End If
    If GetAsyncKeyState(VK_UP) <> 0 Then
      intY = intY - 25
    End If
    If GetAsyncKeyState(VK_DOWN) <> 0 Then
      intY = intY + 25
    End If
    If GetAsyncKeyState(65) <> 0 Then
        intX2 = intX2 - 25
    End If
    If GetAsyncKeyState(83) <> 0 Then
        intY2 = intY2 + 25
    End If
    If GetAsyncKeyState(68) <> 0 Then
        intX2 = intX2 + 25
    End If
    If GetAsyncKeyState(87) <> 0 Then
        intY2 = intY2 - 25
    End If

im sorry i dident see that.

um i got a new question.

where would i put that code?
i have it in a loop..but...where do i put that?

Quote:

---

Originally posted by SmashX
im sorry i dident see that.

um i got a new question.

where would i put that code?
i have it in a loop..but...where do i put that?

---

If you want to use a loop, you just make a sub called GameLoop or what ever, and call the sub when your game is starting....Or you could use a timer, and skip the loop, and set the timer enabled property to true when you want your game to start...

ok

how should i go about that?

do i just add the code in the timer1_time part?

Quote:

---

Originally posted by SmashX
ok

how should i go about that?

do i just add the code in the timer1_time part?

---

Yes you do..maybe you shoul take an other look at my code...It has answers to all the questions you have been asking and more to0...

hehehe
ya this is helping...

Quote:

---

Originally posted by SmashX
hehehe
ya this is helping...

---

It is always importent to look at all the posts...;)

:(
its not workin...

VB Code:

Option Explicit
 
Private Declare Function GetAsyncKeyState Lib _
                "user32" _
                (ByVal vKey As Long) As Integer
Const VK_DOWN = &H28
Const VK_LEFT = &H25
Const VK_RIGHT = &H27
Const VK_UP = &H26
 
Dim intX As Integer
Dim intY As Integer
Dim intY2 As Integer
Dim intX2 As Integer
 
Private Sub Form_Load()
    
    intX = 200
    intY = 200
    intX2 = 200
    intY2 = 250
    
    With Me
        .AutoRedraw = True
        .KeyPreview = True
        .PaintPicture imgsuit2.Picture, intX, intY
        .PaintPicture imgsuit.Picture, intX2, intY2
    End With
    
    Timer1.Interval = 10
    Timer1.Enabled = True
    
End Sub
 
Private Sub Timer1_Timer()
 
    If GetAsyncKeyState(VK_RIGHT) <> 0 Then
      intX = intX + 25
    End If
    If GetAsyncKeyState(VK_LEFT) <> 0 Then
      intX = intX - 25
    End If
    If GetAsyncKeyState(VK_UP) <> 0 Then
      intY = intY - 25
    End If
    If GetAsyncKeyState(VK_DOWN) <> 0 Then
      intY = intY + 25
    End If
    If GetAsyncKeyState(65) <> 0 Then
        intX2 = intX2 - 25
    End If
    If GetAsyncKeyState(83) <> 0 Then
        intY2 = intY2 + 25
    End If
    If GetAsyncKeyState(68) <> 0 Then
        intX2 = intX2 + 25
    End If
    If GetAsyncKeyState(87) <> 0 Then
        intY2 = intY2 - 25
    End If
    
    Me.Cls
    Me.PaintPicture imgsuit2.Picture, intX, intY
    Me.PaintPicture imgsuit.Picture, intX2, intY2
End Sub

all i did was change the picture names and its not workin.

Did you change the names of the picture boxes to

imgsuit2
imgsuit

???

or just the name of the images..???

ok

i added that code to my new project. it was blank and so i added a pic and named it imgsuit and imgsuit2.
i also added a timmer.

the only thing differnt is i have a picture box for the picture to swim around in, would that effect it?

Nope..it is something else that is wrong...but I don't kknow what you did...are you using Pictureboxes or Image controls???

it was the picture box.

after i got rid of that it worked fine.

is there a way to get rid of that pic that says there the whole time. cuz there is one img that moves and another that just stays there. i dont want that to be visible.

((BTW: im adding you onto my credits page.;) ))

Quote:

---

Originally posted by SmashX
it was the picture box.

after i got rid of that it worked fine.

is there a way to get rid of that pic that says there the whole time. cuz there is one img that moves and another that just stays there. i dont want that to be visible.

((BTW: im adding you onto my credits page.;) ))

---

In my example it is a two player game...you move the other picture using A,S,D,W. If you don't want that. You can delete the picture box, and delete this lines in your code...:

VB Code:

Dim intY2 As Integer
Dim intX2 As Integer
----------------------------------
intX2 = 200
intY2 = 250
-----------------------------------
.PaintPicture imgsuit.Picture, intX2, intY2
---------------------------------------------------
If GetAsyncKeyState(65) <> 0 Then
        intX2 = intX2 - 25
    End If
    If GetAsyncKeyState(83) <> 0 Then
        intY2 = intY2 + 25
    End If
    If GetAsyncKeyState(68) <> 0 Then
        intX2 = intX2 + 25
    End If
    If GetAsyncKeyState(87) <> 0 Then
        intY2 = intY2 - 25
    End If
---------------------------------------------------------------
    Me.PaintPicture imgsuit.Picture, intX2, intY2

try to look at all the code ans see if you can learn something. You should have seen this if you read the code...;)

BTW thank The Hobo not me...it was he that made the code in the first place...I have only fixed it a bit...:)

ok.
will do.

Sorry NoteMe,
I wasn't trying to outsmart you, I just figured he would be stalled by the amount of code you gave as a start. My intention was to get him started and as you said

Quote:

---

see if you can learn something

---

Quote:

---

Originally posted by opus
Sorry NoteMe,
I wasn't trying to outsmart you, I just figured he would be stalled by the amount of code you gave as a start. My intention was to get him started and as you said

---

I wasn't blaming you at all...just wanted to make a point about that he already had got the answers to all his question if he just looked at it...;)

:D

ok next on my list on things that i need to aquire knolage for are:

being able to have my little guy to shoot things. from his current position on the screne.

i need to set bounderys so the img cant go off the screen...i need help with that one, i orginaly had a pic box...i think of somthin...

ima gunna add a collision code for the shooting part.

find a way to have the astroids or enimes move in the screen...

hmmm this is gunna take some time...:rolleyes: :D :( :D :D :) :cool:

ok my brain hurts...i cant figure out how to get the little guy to shoot...

AHHHHHHHHHHHHHHHHHH!!!!!!!!!

theres got to be somthing i dont know...grrr...i hate not knowing...lol...

all i have to do is have a line extend form the img's current position...im drawing a blank.:eek:

Do you want the shooting to be a line??? Or do you want it to be a small object like a bullet that shoots out from the man???

its like a laser shot.

so im usin a line, and moving it with x1 and x2

So what is the problem???

i cant get it to shoot from where the img is. i just shoots from one spot.:(

Look at this...is this something you are trying too do???

yea.

except i have that picture moving around.

Quote:

---

Originally posted by SmashX
yea.

except i have that picture moving around.

---

Yes exactly, so now you have the code to move the guy, and you have the code to shoot a laser from his hand...so no you have to put it togheter...that sould be no match for you...

ok

ill work on it some more.

thanks

YAY!!!!
I GOT IT!

all i had to do is use the intX and intY to place the line where the pic was.

but then i had a nother problem with the line so i changed to a shape. and i then i would move indepndently across the screen.

with that little break thru i could think clearly.

im now trying an attempt at setting bounderys so that my img cant sweet off the screen.

Nice going...I know you can do a lot if you out your mind to it...

Quote:

---

im now trying an attempt at setting bounderys so that my img cant sweet off the screen.

---

Draw a drawing of it on a piece of paper with all the X and y coordinates, then it's simpler to see...I do that when I make games...

ya...

i know what i have to do ...i just dont know how...

VB Code:

if imgsuit.top <= 0 then
     .............((drawing a blank))stop? 
:rolleyes: 
     end if

VB Code:

If imgsuit.top <= 0 Then
    imgsuit.top = 0
End If

This should do it...

that dident work