[RESOLVED]moving error

Printable View

VB Code:

Private Sub cmdmmove_KeyPress(KeyAscii As Integer)
        If KeyAscii = 97 And picleftmale.Visible = True Then
        frmupchar.Left = frmupchar.Left - 100
        picleftmale.Visible = True
        picbackmale.Visible = False
        picfrontmale.Visible = False
    ElseIf KeyAscii = 115 And picleftmale.Visible = True Then
        frmupchar.Top = frmupchar.Top + 100
        picfrontmale.Visible = True
        picleftmale.Visible = False
        picbackmale.Visible = False
    ElseIf KeyAscii = 100 And picleftmale.Visible = True Then
        frmupchar.Left = frmupchar.Left + 100
    ElseIf KeyAscii = 119 And picleftmale.Visible = True Then
        frmupchar.Top = frmupchar.Top - 100
        picbackmale.Visible = True
        picleftmale.Visible = False
        picfrontmale.Visible = False
    End If

that code is to make the frm move but the problem is it doesnt want to move anymore. maybe its bacause i have a **** load of stuff on the form. im not sure but ill leave the form so u can take a look

Apr 7th, 2006, 12:46 PM
Static

Re: moving error

my guess w/o downloading...

that cmdmmove needs to have the focus...

after downloading.. I have no clue whats going on in that form!! lol

try:
change the forms KeyPreview to True
then move your keypress code to Form_Keypress
Apr 7th, 2006, 12:51 PM
Ebiru

Re: moving error

Quote:

Originally Posted by Static

my guess w/o downloading...

that cmdmmove needs to have the focus...

after downloading.. I have no clue whats going on in that form!! lol

try:
change the forms KeyPreview to True
then move your keypress code to Form_Keypress

well u need to click cmdmmove other wise u wont move cause i got 3 other cmds which get the focus n it saved me some time and i try with the form_keypress but u need focus but the cmds got it
Apr 7th, 2006, 12:59 PM
Static

Re: moving error

but the problem is stuff is appearing , disapearing etc.. U might want to start over..
make your object move properly.. then slowly add things back in...

if u set keypreview to true.. it will still catch the keypress event even if a cmdbutton or textbox etc has focus...

Re: moving error

Quote:

Originally Posted by Ebiru

VB Code:

Private Sub cmdmmove_KeyPress(KeyAscii As Integer)
        If KeyAscii = 97 And picleftmale.Visible = True Then
        frmupchar.Left = frmupchar.Left - 100
        picleftmale.Visible = True
        picbackmale.Visible = False
        picfrontmale.Visible = False
    ElseIf KeyAscii = 115 And picleftmale.Visible = True Then
        frmupchar.Top = frmupchar.Top + 100
        picfrontmale.Visible = True
        picleftmale.Visible = False
        picbackmale.Visible = False
    ElseIf KeyAscii = 100 And picleftmale.Visible = True Then
        frmupchar.Left = frmupchar.Left + 100
    ElseIf KeyAscii = 119 And picleftmale.Visible = True Then
        frmupchar.Top = frmupchar.Top - 100
        picbackmale.Visible = True
        picleftmale.Visible = False
        picfrontmale.Visible = False
    End If

that code is to make the frm move but the problem is it doesnt want to move anymore. maybe its bacause i have a **** load of stuff on the form. im not sure but ill leave the form so u can take a look

That would be better written like

VB Code:

If picleftmale.Visible = True Then
        Select Case KeyAscii
            Case 97
                frmupchar.Left = frmupchar.Left - 100
                picleftmale.Visible = True
                picbackmale.Visible = False
                picfrontmale.Visible = False
            Case 115
                frmupchar.Top = frmupchar.Top + 100
                picfrontmale.Visible = True
                picleftmale.Visible = False
                picbackmale.Visible = False
            Case 100
                frmupchar.Left = frmupchar.Left + 100
            Case 119
                frmupchar.Top = frmupchar.Top - 100
                picbackmale.Visible = True
                picleftmale.Visible = False
                picfrontmale.Visible = False
        End Select
    End If

Re: moving error

Quote:

Originally Posted by MartinLiss

That would be better written like

VB Code:

If picleftmale.Visible = True Then
        Select Case KeyAscii
            Case 97
                frmupchar.Left = frmupchar.Left - 100
                picleftmale.Visible = True
                picbackmale.Visible = False
                picfrontmale.Visible = False
            Case 115
                frmupchar.Top = frmupchar.Top + 100
                picfrontmale.Visible = True
                picleftmale.Visible = False
                picbackmale.Visible = False
            Case 100
                frmupchar.Left = frmupchar.Left + 100
            Case 119
                frmupchar.Top = frmupchar.Top - 100
                picbackmale.Visible = True
                picleftmale.Visible = False
                picfrontmale.Visible = False
        End Select
    End If

ty for cleaning up my code but it still doesnt work

Apr 9th, 2006, 07:48 PM
damasterjo

Re: moving error

question - When you "hold" the key down does it work?
Apr 9th, 2006, 08:04 PM
MartinLiss

Re: moving error

Put a breakpoint on the If picleftmale.Visible = True Then line and then step through the code using F8.
Apr 10th, 2006, 06:10 AM
Ebiru

Re: moving error

Quote:

Originally Posted by damasterjo

question - When you "hold" the key down does it work?

no

Quote:

Originally Posted by MartinLiss

Put a breakpoint on the If picleftmale.Visible = True Then line and then step through the code using F8.

im not getting what u mean
Apr 10th, 2006, 07:38 AM
Static

Re: moving error

a breakpoint is when u click in the column next to the line of code. it will place a red dot in the column and highlight the line red... then when you run the code it willstop at that line. at this point u can pres F8 and have the code execute one line at a time.. helps to figure out where the problem is
Apr 10th, 2006, 05:41 PM
Ebiru

Re: moving error
i figure it out....
VB Code:
```
If picleftmale.Visible = True Then
```
that is what was wrong.... ty for ur help guys