[حماده ممدوح البحيرى]

السلام عليكم 
لدى فورم به أكثر من ٥٠ بوتن 
اريد كود عند الضغط على اى بوتن
 يقوم بنسخ النص المكتوب داخل البوتن إلى  textbox1

[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

الجزئية دي هتعدلها ب اسماء العندك

[asmarsou]

(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 Sub

و اذا اردت استعمال تكست بوكس فقط ... احذف كل السطور عدا الاخير في حدث

كود :

Private Sub Button_Click

[Codack]

Textbox1.text=boutn1.text

[حماده ممدوح البحيرى]

باااااااااااااااااااااااااااااااااااااارك الله كلم جميعا
واسف جدا جدا جدا على تاخيرى ف الشكر لكم جميعا
لظروف مرضية
عفانا الله واياكم