[RESOLVED]moving error

[Ebiru]

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

[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

[Ebiru]

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

[Static]

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...

[MartinLiss]

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

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

[Ebiru]

That would be better written like

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

[damasterjo]

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

[MartinLiss]

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

[Ebiru]

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

no

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

[Static]

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

[Ebiru]

i figure it out....

If picleftmale.Visible = True Then

that is what was wrong.... ty for ur help guys