منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
نقل نص البوتن إلى التيكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : نقل نص البوتن إلى التيكست بوكس (/showthread.php?tid=41522)

نقل نص البوتن إلى التيكست بوكس - حماده ممدوح البحيرى - 22-05-22

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

RE: نقل نص البوتن إلى التيكست بوكس - mrfenix93 - 22-05-22

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
الجزئية دي هتعدلها ب اسماء العندك

RE: نقل نص البوتن إلى التيكست بوكس - asmarsou - 22-05-22

(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


RE: نقل نص البوتن إلى التيكست بوكس - Codack - 24-05-22

Textbox1.text=boutn1.text

RE: نقل نص البوتن إلى التيكست بوكس - حماده ممدوح البحيرى - 05-07-22

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