🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.vbasic
Article #104724

Re: wykrywanie zdarzenia na obiekcie

#104724
From: Maciej Tokarz
Date: Wed, 01 Dec 2010 20:02
27 lines
1930 bytes
> 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
Technical Details
Message-ID: <id69kn$tc9$1@news.onet.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!.POSTED!not-for-mail
References: <67a81595-576e-48ca-9d16-0fea65218c04@39g2000yqa.googlegroups.com> <id5lnn$qup$1@news.onet.pl> <ef580024-39e8-4cf7-9627-bb2c2538fddf@k13g2000vbq.googlegroups.com>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!.POSTED!not-for-mail
From: Maciej Tokarz <mactok@hotmail.com>
Newsgroups: pl.comp.lang.vbasic
Subject: Re: wykrywanie zdarzenia na obiekcie
Date: Wed, 01 Dec 2010 21:02:36 +0100
Organization: http://onet.pl
Lines: 27
Message-ID: <id69kn$tc9$1@news.onet.pl>
References: <67a81595-576e-48ca-9d16-0fea65218c04@39g2000yqa.googlegroups.com> <id5lnn$qup$1@news.onet.pl> <ef580024-39e8-4cf7-9627-bb2c2538fddf@k13g2000vbq.googlegroups.com>
NNTP-Posting-Host: static-78-9-150-225.ssp.dialog.net.pl
Mime-Version: 1.0
X-Trace: news.onet.pl 1291233751 30089 78.9.150.225 (1 Dec 2010 20:02:31 GMT)
X-Complaints-To: niusy@onet.pl
NNTP-Posting-Date: Wed, 1 Dec 2010 20:02:31 +0000 (UTC)
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; pl; rv:1.9.2.12) Gecko/20101027 Thunderbird/3.1.6
In-Reply-To: <ef580024-39e8-4cf7-9627-bb2c2538fddf@k13g2000vbq.googlegroups.com>
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit