منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : نقل نص البوتن إلى التيكست بوكس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم 
لدى فورم به أكثر من ٥٠ بوتن 
اريد كود عند الضغط على اى بوتن
 يقوم بنسخ النص المكتوب داخل البوتن إلى  textbox1
PHP كود :
Private Sub Button_Click(sender As ObjectAs EventArgsHandles Button1.ClickButton3.ClickButton4.Click
        Dim button 
As Button DirectCast(senderButton)
 
       me.textbutton.Text
    End Sub 
ممكن تستخدم الكود ده بدل متكتب كود في كل بوتن


وطبعا 
كود :
Handles Button1.Click, Button3.Click, Button4.Click
الجزئية دي هتعدلها ب اسماء العندك
(22-05-22, 07:51 PM)mrfenix93 كتب : [ -> ]
PHP كود :
Private Sub Button_Click(sender As ObjectAs EventArgsHandles Button1.ClickButton3.ClickButton4.Click
        Dim button 
As Button DirectCast(senderButton)
 
       me.textbutton.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
Textbox1.text=boutn1.text
باااااااااااااااااااااااااااااااااااااارك الله كلم جميعا
واسف جدا جدا جدا على تاخيرى ف الشكر لكم جميعا
لظروف مرضية
عفانا الله واياكم