znaczacy > comp.lang.* > comp.lang.vbasic

Marek Żurkowski (30.12.2004, 19:16)
Witam

Mam taką petle While która odpowiada za dynamiczne przesuwanie PictureBox oraz procedure OnKeyDown - ktora po kliknieciu miała zmieniac warunek wejscia do petli While na FALSE.
Niestety ten programik nie dziala.
Wie ktos moze jak można ustawic w pettli While obsługe przerwan tak zeby po kliknieciu wyjsc z petli.

Protected Overrides Sub OnKeyDown(ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Left Then
flag = False
End If
End Sub

Private Sub PictureBox1_MouseDown(......)
Dim tmpX As Integer = PictureBox1.MousePosition.X
Dim tmpY As Integer = PictureBox1.MousePosition.Y

While true

Sleep(10)
x = tmpX - PictureBox1.MousePosition.X
y = tmpY - PictureBox1.MousePosition.Y
PictureBox1.Location = New Point((Panel1.Width / 2 - PictureBox1.Width / 2) - x
_, (Panel1.Height / 2) - PictureBox1.Height / 2 - y)
PictureBox1.Refresh()

End While

Ps. Nie chce tego robic metoda Drag'Drop.
Dzieki
Jarek Andrzejewski (30.12.2004, 19:30)
On Thu, 30 Dec 2004 18:16:40 +0100, Marek Żurkowski <markme>
wrote:

>Wie ktos moze jak można ustawic w pettli While obsługe przerwan tak zeby po kliknieciu wyjsc z petli.


W pętlę wstaw warunek, który sprawdzi zmienną ustawianą po kliknięciu,
a poza tym dodaj Application.DoEvents w pętli
Marek Żurkowski (30.12.2004, 19:37)
> W pętlę wstaw warunek, który sprawdzi zmienną ustawianą po kliknięciu,
> a poza tym dodaj Application.DoEvents w pętli
> --
> Jarek Andrzejewski
><ciach>


Wielkie dzięki za pomoc.
Podobne wątki