به وجود آوردن یک Event در اکتیو ایکس

[.:KeihanCPU:.]

سلام
قابل توجه دوستانی که اکتیوایکس کار کردن . استاد محترم Mbt925
من میخوام برای ActiveX م یه Event بذارم.چطوری میتاونم این کار رو انجام بدم؟

[Payam Moradi]

Public Event MyEvent(Arg1 As Integer, Arg2 As String, Arg_n As Variant)

Private Sub MySub()
If Time = "12:00:00" Then
RaiseEvent MyEvent(1, "@@@", "pppp")
End If
End Sub

:چشمک:

[.:KeihanCPU:.]

حالا اگر بخوایم در این Event یه مقدار رو از کاربر بگیریم چطور میشه؟

[Mbt925]

Event توسط کنترل مربوطه فراخوانی میشه، بنابراین نمی تونه مقداری رو از کاربر بگیره.
این موضوع بی معنیه مگر اینکه منظور شما چیزه دیگه ای باشه.

[.:KeihanCPU:.]

حتما من بد توضیح میدم.
یه مثال میزنم.به رویداد ConnectionRequst در Winsock توجه کنید.
با دستور Accept RequstId ارتباط رو قبول میکنه.
من یه اونطور چیزی میخوام

[Mbt925]

رویدادی که گفتین کار خاصی نمی کنه، فقط داره مقداری رو به کاربر می ده.
برگردوندن مقدار هم در مثال دوستمون نشون داده شده.

متد Accept هم ارتباطی با رویداد مربوطه نداره، فقط یه آیدی به عنوان ورودی می گیره.