Programování pausy

Bez tvého kódu se dost těžko radí.

Pokud by to šlo potřebovala bych to zvládnout bez něho, protože momentálně mám problémy s programech a tak to musím někomu poslat. Stačil by mi alespoň nějaký příkaz nebo jeho část, který by udržel tu hru i s pohnutím myši nehybnou.

To opravdu silně záleží na tom, jak to máš udělané. Bez téhle informace není možné poradit.

Do behu nejakeho programu (hra) sa neda zasahovat zvonku inym programom (P.S. vynimka je len ked je vyslovene na to predpripraveny nejaky interface v cielovom programe).
P.S. alebo nechapem co vlastne robis.

Postačí tento kousek?

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
    If e.KeyCode = Keys.P Then
        If Timer1.Enabled Then
            Timer1.Stop()
        Else
            Timer1.Start()
        End If

    End If
End Sub

Nepostačí. Minimálně ještě obsluhu pohybu myši budeme potřebovat.

Private Sub pboxPlatno_MouseMove(sender As Object, e As MouseEventArgs) Handles pboxPlatno.MouseMove

    Select Case e.Location.X
        Case Is < d.Sirka \ 2
            d.Pozice = 0
        Case Is > pboxPlatno.Width - (d.Sirka \ 2)
            d.Pozice = pboxPlatno.Width - d.Sirka
        Case Else
            d.Pozice = e.Location.X - (d.Sirka \ 2)
    End Select

    If Timer1.Enabled = False Then
        m.Poloha = New Point(d.X + (d.Sirka \ 2) - (m.Velikost \ 2), d.Y - m.Velikost)
        pboxPlatno.Refresh()
    End If

End Sub

Ja by som na začiatok tej procedúry dal niečo takéto:
If Timer1.Enabled = False Then Exit (alebo neviem čo sa používa vo VB...)

to postačí jenom tahle věta?

Programujem v Delphi - tam áno... Neviem ako vo VB.

mám to podtrhlý tak to asi nepostačí

Timer1.Enabled = False Then
 Return
End If

a to co jsem měla uprostřed to mám nahradit tím ´Return´?

Co máš uprostřed?

m.Poloha = New Point(d.X + (d.Sirka \ 2) - (m.Velikost \ 2), d.Y - m.Velikost)
pboxPlatno.Refresh()

If Timer1.Enabled = False Then
    m.Poloha = New Point(d.X + (d.Sirka \ 2) - (m.Velikost \ 2), d.Y - m.Velikost)
    pboxPlatno.Refresh()
End If

Ne, to máš dát na začátek.

zkopíruj mě to jak to myslíš, mimo tu podmínku?

Private Sub pboxPlatno_MouseMove(sender As Object, e As MouseEventArgs) Handles pboxPlatno.MouseMove

If Timer1.Enabled = False Then
Return
End If

Select Case e.Location.X
Case Is < d.Sirka \ 2
d.Pozice = 0
Case Is > pboxPlatno.Width - (d.Sirka \ 2)
d.Pozice = pboxPlatno.Width - d.Sirka
Case Else
d.Pozice = e.Location.X - (d.Sirka \ 2)
End Select

If Timer1.Enabled = False Then
m.Poloha = New Point(d.X + (d.Sirka \ 2) - (m.Velikost \ 2), d.Y - m.Velikost)
pboxPlatno.Refresh()
End If

End Sub

moc děkuju

Private Sub pboxPlatno_MouseMove(sender As Object, e As MouseEventArgs) Handles pboxPlatno.MouseMove

If Timer1.Enabled = False Then
Return
End If

Select Case e.Location.X
Case Is < d.Sirka \ 2
d.Pozice = 0
Case Is > pboxPlatno.Width - (d.Sirka \ 2)
d.Pozice = pboxPlatno.Width - d.Sirka
Case Else
d.Pozice = e.Location.X - (d.Sirka \ 2)
End Select

If Timer1.Enabled = False Then
m.Poloha = New Point(d.X + (d.Sirka \ 2) - (m.Velikost \ 2), d.Y - m.Velikost)
pboxPlatno.Refresh()
End If

End Sub

Ale nejspíš to nezabere, protože to máš celé podivné a nejlepší by bylo to úplně překopat.

Tvoj problem je asi to ze robis to cele

Select Case e.Location.X
    Case Is < d.Sirka \ 2
        d.Pozice = 0
    Case Is > pboxPlatno.Width - (d.Sirka \ 2)
        d.Pozice = pboxPlatno.Width - d.Sirka
    Case Else
        d.Pozice = e.Location.X - (d.Sirka \ 2)
End Select

aj ked je ten timer disablovany. Preto ti pisu daj si test na zaciatok tej procedury.

Alebo mas v tom programe logicky nejake nezmysly napr. ze timer1 v jedneom mieste neni timer1 na inom mieste, alebo tam niekde zas ten timer zapinas to si musis najst ty.

Máš zdrojové kódy tej hry, že chceš niečo programovať vo VB?

mám ji až tohoto kroku celou

A my máme hádať ako je program napísaný, akú má logiku, ako je ošetrené zastavenie hry, čo sa udeje v tom programe - ak niečo... ???