ساخت Event هنگام اجرا (Runtime)

[Babak.Hassanpour]

سلام به تمام دوستان
منظور اینه که مثلا 2 تا کنترل (دکمه) در ران تایم ساختیم.ولی نمی خواهیم هر دو یک تابع رو اجرا کنند.می خواهیم دکمه دومی یک تابع جدید یا حداقل همون تابع رو در فضای آدرس جداگانه اجرا کنه.امیدوارم منظورم رو رسونده باشم.
کسی در این مورد چیزی می دونه؟اصلا عملی هست یا خیر؟
راستی یه تاپیک در مورد مدیریت اونت های کنترل های ساخته شده در زمان اجرا ، توی سایت بود منتها هرچی میگردم پیداش نمی کنم.توش بحث از ساب کلاسینگ و ازین جور حرفا بود.(واقعا سرچ توی این سایت دردسر داره).اگه کسی لینکش رو داره ، لطف کنه بزاره کلی ممنونش میشم.

[ASKaffash]

سلام
فکر کنم منظور شما شبیه به این کد است :


Dim WithEvents MyButton1 As CommandButton
Dim WithEvents MyButton2 As CommandButton
Private Sub Command1_Click()
For i = 1 To 2
Set MyButton = Me.Controls.Add("VB.CommandButton", "B" & i, Me)
With MyButton
.Top = 1000 * i
.Left = 500
Set .Font = Me.Font
.Caption = "MyButton" & i
.Visible = True
.Tag = i
End With
If i = 1 Then
Set MyButton1 = MyButton
Else
Set MyButton2 = MyButton
End If
Next
End Sub
Private Sub MyButton1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Caption = X & "+" & Y
End Sub
Private Sub MyButton2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Caption = X & "-" & Y
End Sub

[Babak.Hassanpour]

خیلی ممنونم.هرچند اونی که فکر می کردم نبود ولی کارسازه.:تشویق:

آیا روش یا روش های دیگری هم برای اینکار هست؟

اون تاپیک کذایی(البته منظور از بابت پیدا نشدنشه وگرنه جسارت خدمت نویسنده اش نیست) رو کسی پیدا نکرد؟فکر نکنم حذف شده باشه چون مفید بود و بدون حاشیه.