Private Sub Button_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button3.Click, Button4.Click
Dim button As Button = DirectCast(sender, Button)
me.text= button.Text
End Sub
Handles Button1.Click, Button3.Click, Button4.Click(22-05-22, 07:51 PM)mrfenix93 كتب : [ -> ]و عليكم السلام و رحمة الله وبركانهممكن تستخدم الكود ده بدل متكتب كود في كل بوتنPHP كود :
Private Sub Button_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button3.Click, Button4.Click
Dim button As Button = DirectCast(sender, Button)
me.text= button.Text
End Sub
وطبعا
الجزئية دي هتعدلها ب اسماء العندككود :
Handles Button1.Click, Button3.Click, Button4.Click
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For Each b As Button In Me.Controls.OfType(Of Button)()
AddHandler b.Click, AddressOf Button_Click
Next
End Sub
Private Sub Button_Click(sender As Object, e As EventArgs)
If Not ListBox1.Items.Contains(sender.Text) Then
ListBox1.Items.Add(sender.Text)
End If
ListBox1.SelectedItem = (sender.text)
TextBox1.Text = (sender.text)
End SubPrivate Sub Button_Click