Rais evenet و add handler در dll

[maxvel]

سلام

من يا تايمر توي dll خودم دارم كه هر 1ثانيه مقدار يك string رو تغيير ميده

حالا ميخوام هر دفعه كه تغيير كرد مقدارش رو توي فرمم دريافت كنم

در dll هايي نظير jabber-net ديدم كه هر وقت xml از سرور به dll ارسال ميشه اونو ميتوني با گذاشتن يك كد addhandler دريافت كني در همان زماني كه xml به dll ميرسه!!!!

لطفا كمك كنيد

[Mani_rf]

اگر اون مقدار String رو به عنوان Property تعریف کنی، میتونی زمان Set شدن مقدار به اون هر Event که خودت نوشتی و می خوای رو Raise کنی. درباره Property ها و نحوه نوشتن Event ها جستجو کن مثال زیاد گفته شده.

[maxvel]

خيلي ممنون مدير بخش

اگه ميشه يه مثال ساده برام بزنيد! چون هيچ اطلاعي در مورد اينگونه كد ندارم

2روز هست كه تو گوگل سرچ ميزنم اما نتيجه نميگيرم چون اصلا نميدونم چي هست

يه لطفي بكنيد

ممنون

[Mani_rf]

2تا Event تعریف کردم و موقع خواندن و ست کردن Property اونها رو Raise کردم

Public Class Sample





Public Event OnGetValue(Value As String)

Public Event OnSetValue(OldValue As String)









Private _TestProp As String

Public Property TestProp As String

Get

        RaiseEvent OnGetValue(_TestProp)    

Return _TestProp 

End Get

Set(value As String)

        RaiseEvent OnSetValue(_TestProp)    

_TestProp = value

End Set

End Property

























End Class

[mmbguide]

سلام.

من کمی با این RaiseEvent مشکل دارم و متوجه عملکردش نمیشم. من می خوام یک DLL بسازم و به Reference برنامم اضافه کنم. این کلاس تو خودش یک فرم رو برای انجام کاری نمایش میده. حالا برنامه اصلی من که این DLL رو اجرا میکنه چطور میتونه متوجه یک Event داخل DLL بشه و یک مقدار برگشتی هم دریافت کنه؟

ممنون میشم کمی با جزئیات بیشتر راهنمایی کنید.

[mmbguide]

کدهای موجود در کلاس

    Public Shared WithEvents frm As Form

    Public Shared Event _AlertClick(ByVal AlertID As Long)





    Public Shadows Sub AlertClick()

        RaiseEvent _AlertClick(AlertID)

    End Sub

کد موجود در برنامه اصلی

    Dim WithEvents a As New HMGH_Alert.HMGH_Alert





    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim aa As String = "Test"

        a.ShowAlert(CLng(Now.Second), aa, , , , HMGH_Alert_Position.TopRight, HMGH_Alert_ExitAnimation.ShrinkVertically)

        AddHandler a.AlertClick, AddressOf CheckAlertID

    End Sub





    Sub CheckAlertID()

        MsgBox("Clicked")

    End Sub

اما زیر عبارت AddHandler a.AlertClick خط قرمز کشیده و مینویسه Expression Dose not produce a value.

نکته بعدی اینه که اگر بخوام تو همان a.ShowAlert نام CheckAlertID رو تعیین کنم باید چکار کنم.

ممنون

[mmbguide]

آیا لزومی داره که متغیرها بصورت WithEvents تعریف بشند یا نه

[mmbguide]

با تغییر زیر جواب گرفتم

    Sub CheckAlertID(ByVal ID As Long) Handles a._AlertClick

        MsgBox(ID)

    End Sub