🚀 go-pugleaf

W dniu 2010-12-01 14:59, 92584 pisze:
> witam, mam następujący problem
> mam kontrolkę laser pod windows CE i jeśli umieszczę ją w więcej niż
> jednej formie to po zamknięciu programu pozostaje mi wątek.
>
> zdecydowałem się wyrzucić kontrolkę i utworzyć obiekt w module
> Public laser As datalogic.datacapture.Laser = New
> datalogic.datacapture.Laser
>
> nie wiem jak teraz wykryć zdarzenie obiektu laser. standardowo
> tworzone jest zdarzenei dla kontolki:
>
> Private Sub Laser_GoodReadEvent(ByVal sender As
> datalogic.datacapture.ScannerEngine) Handles Laser.GoodReadEvent
>
> Proszę o pomoc

public withevents (..) ?
jarek

On 1 Gru, 15:22, Jarek Mielcarek <jarek...@brak.mi.wp.pl> wrote:
> W dniu 2010-12-01 14:59, 92584 pisze:
>
> > witam, mam następujący problem
> > mam kontrolkę laser pod windows CE i jeśli umieszczę ją w więcej niż
> > jednej formie to po zamknięciu programu pozostaje mi wątek.
>
> > zdecydowałem się wyrzucić kontrolkę i utworzyć obiekt w module
> > Public laser As datalogic.datacapture.Laser = New
> > datalogic.datacapture.Laser
>
> > nie wiem jak teraz wykryć zdarzenie obiektu laser. standardowo
> > tworzone jest zdarzenei dla kontolki:
>
> > Private Sub Laser_GoodReadEvent(ByVal sender As
> > datalogic.datacapture.ScannerEngine) Handles Laser.GoodReadEvent
>
> > Proszę o pomoc
>
> public withevents (..) ?
> jarek

zaćmienie, dzięki
a da się zrobić tak, żeby utworzyć obiekt public withevents w module,
a zdarzenie przechwycić w formie?

> zaćmienie, dzięki
> a da się zrobić tak, żeby utworzyć obiekt public withevents w module,
> a zdarzenie przechwycić w formie?

W module/klasie np. mojej Ftp deklarujesz (przykładowo):
Public Event TransferredBytes(ByVal bytes As Long)

     Private Sub Ftp_BytesTransferred(ByVal sender As Object, ByVal e As 
EnterpriseDT.Net.Ftp.BytesTransferredEventArgs) Handles f.BytesTransferred
         ' nowa paczka danych została przesłana - aktualizuj Progress
         RaiseEvent TransferredBytes(e.ByteCount)
     End Sub

a w innym module:
Private WithEvents f As New Ftp

Private Sub Ftp_TransferredBytes(ByVal bytes As Long) Handles 
f.TransferredBytes
         ' przesłano kolejną paczkę trzeba zaktualizować Progress
         RaiseEvent Check_TransferredBytes_Set(bytes)
     End Sub


Nie wiem czy o to Ci chodzi?
-- 
   Maciej Tokarz
   http://my-poi.pl