استفاده از AddressOf در AddHandler با پارامتر

[daniyal_13]

سلام میخواستم بدونم چه جوری میتونم این کار رو بکنم




Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim tt As New Timer


AddHandler tt.Tick, AddressOf timer_tick(پارامتر مورد نظرم)
tt.Interval = 1000
tt.Enabled = True




End Sub


Sub timer_tick(ورودی که میخوام)




End Sub




اینکار الان خطا میده، راه درستش چیه، اگه میشه با درست همین رو بگین که متوجه بشم !!!!

ممنون از همه

[the king]

سلام میخواستم بدونم چه جوری میتونم این کار رو بکنم




Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim tt As New Timer


AddHandler tt.Tick, AddressOf timer_tick(پارامتر مورد نظرم)
tt.Interval = 1000
tt.Enabled = True




End Sub


Sub timer_tick(ورودی که میخوام)




End Sub




اینکار الان خطا میده، راه درستش چیه، اگه میشه با درست همین رو بگین که متوجه بشم !!!!

ممنون از همه
زمانی که شما روی Button2 کلیک می کنید هنوز رخداد Tick ای صورت نگرفته، برای همین بی معنیه که همون موقع بخواهیم به timer_tick پارامتری ارسال کنیم. از طرف دیگه رخداد Tick پارامتر هاش بصورت (sender As Object, e As EventArgs) ئه و
نمی توانید به حالتی مثل timer_tick(my_parameter) فراخوانیش کنید.
کاری که معمولا انجام میشه اینه :


Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim tt As New Timer
AddHandler tt.Tick, AddressOf timer_tick
tt.Interval = 1000
tt.Enabled = True
End Sub

Private Sub timer_tick(sender As Object, e As EventArgs)

End Sub


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


Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim tt As New Timer
tt.Tag = "پارامتر مورد نظر شما"
AddHandler tt.Tick, AddressOf timer_tick
tt.Interval = 1000
tt.Enabled = True
End Sub

Private Sub timer_tick(sender As Object, e As EventArgs)
Dim your_parameter = CType(sender, Timer).Tag
End Sub


پارامتری که داخل tt.Tag قرار میدید میتونه از هر نوعی باشه، حتی میتونه آرایه ای باشه تا چند پارامتر رو بهش ارسال کنید :


Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim tt As New Timer
tt.Tag = {"بابک", Color.Yellow, 18}
AddHandler tt.Tick, AddressOf timer_tick
tt.Interval = 1000
tt.Enabled = True
End Sub

Private Sub timer_tick(sender As Object, e As EventArgs)
Dim your_parameter = CType(sender, Timer).Tag
Dim name = your_parameter(0)
Dim color = your_parameter(1)
Dim age = your_parameter(2)
Button2.Text = name + " - " + CStr(age)
Button2.BackColor = color
End Sub

[daniyal_13]

خیلی خوب توضیح دادین کاملا متوجه شدم، بسیار ممنون