+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مـساعدة بخـصوص Listbox (/showthread.php?tid=17908)
مـساعدة بخـصوص Listbox - 3asfa~mdmra - 04-11-16
بسم الله الرحمان الرحيم
سلام عليكم جميعاً
اود اشغالكم بموضع بسيط وهو كيف نسخ صف معين
من الصورة المرفقة وطلب اخر بسيط هوا كيف
ضغط مرتين ع صف المحدد بصورة وينزل الصف في
Textbox
المرفق بصورة وشكراً لكم
RE: مـساعدة بخـصوص Listbox - shwehdi4pc - 04-11-16
لنسخ صف في TextBox
Private Sub listbox1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles listBox1.MouseDoubleClick
textbox1.text = listbox1.Text
end sub
RE: مـساعدة بخـصوص Listbox - silverlight - 04-11-16
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
RE: مـساعدة بخـصوص Listbox - 3asfa~mdmra - 04-11-16
اخي شكرا ولكن استخدمت هالطريقة وزبطت معي
TextBox1.Clear()
For Each Item As Object In ListBox2.SelectedItems
TextBox1.AppendText(Item.ToString + Environment.NewLine)
Next
اخواني اريد ان تظهر علامة copy بضغط ع اي صف من listbox ويتم نسخ الصف وشكراً
RE: مـساعدة بخـصوص Listbox - silverlight - 04-11-16
ليس مرغوبا ان تقوم بعمل loop علي Items بهذا الشكل لكن طالما انت تحتاج لعمل Append للتكست بوكس
لذلك يمكنك ان تخلط بين الطريقتين مثلا خذ من الكود الخاص بي كيفية تحديد Item ثم من الكود الخاص بك االكود الخاص بعمل Append
RE: مـساعدة بخـصوص Listbox - 3asfa~mdmra - 04-11-16
MouseDoubleClick =copy Item
كيف اخي ممكن ننسخ صف من خلال دبل كلك
RE: مـساعدة بخـصوص Listbox - silverlight - 04-11-16
حاول تستخدم 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