Article View: pl.comp.lang.vbasic
Article #104724Re: wykrywanie zdarzenia na obiekcie
From: Maciej Tokarz
Date: Wed, 01 Dec 2010 20:02
Date: Wed, 01 Dec 2010 20:02
27 lines
1930 bytes
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-mailReferences:
<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