[3asfa~mdmra]

بسم الله الرحمان الرحيم

سلام عليكم جميعاً

اود اشغالكم بموضع بسيط وهو كيف نسخ صف معين

 

من الصورة المرفقة وطلب اخر بسيط هوا كيف

ضغط مرتين ع صف المحدد بصورة وينزل الصف في

Textbox

المرفق بصورة وشكراً لكم

[shwehdi4pc]

لنسخ صف في TextBox

Private Sub listbox1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles listBox1.MouseDoubleClick
textbox1.text = listbox1.Text
end sub

[silverlight]

PHP كود :

   Private Sub ListBox1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseDoubleClick
        Dim itemIndex As Integer = Me.ListBox1.IndexFromPoint(e.Location)
        If itemIndex <> System.Windows.Forms.ListBox.NoMatches Then
            TextBox1.Text = ""
            TextBox1.Text = ListBox1.Items(itemIndex)
        End If
    End Sub 


[3asfa~mdmra]

اخي شكرا ولكن استخدمت هالطريقة وزبطت معي
TextBox1.Clear()
For Each Item As Object In ListBox2.SelectedItems
TextBox1.AppendText(Item.ToString + Environment.NewLine)
Next

---

اخواني اريد ان تظهر علامة copy بضغط ع اي صف من listbox ويتم نسخ الصف وشكراً

[silverlight]

ليس مرغوبا ان تقوم بعمل loop علي Items بهذا الشكل لكن طالما انت تحتاج لعمل Append للتكست بوكس
لذلك  يمكنك ان تخلط بين الطريقتين مثلا خذ من الكود الخاص بي كيفية تحديد Item  ثم من الكود الخاص بك االكود الخاص بعمل Append

[3asfa~mdmra]

MouseDoubleClick =copy Item

كيف اخي ممكن ننسخ صف من خلال دبل كلك

[silverlight]

حاول تستخدم Tooltip و تربطها مع الليست بوكس
الكود التالي للتوضيح فقط لكن اين و متي سوف تقوم بإظهار Tooltip فالأمر راجع لك

PHP كود :

       Dim itemIndex As Integer = ListBox1.IndexFromPoint(e.Location)
        If itemIndex >= 0 AndAlso itemIndex < ListBox1.Items.Count Then
            Dim s As String = ListBox1.Items(itemIndex).ToString
            ToolTip1.SetToolTip(ListBox1, "copy" & " " & s)
            Me.TextBox1.Text = ""
            Me.TextBox1.Text = s
        End If