تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مـساعدة بخـصوص Listbox
#1
Bug 
بسم الله الرحمان الرحيم



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



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

 

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



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

Textbox

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





الرد }}}
تم الشكر بواسطة:
#2
لنسخ صف في TextBox

Private Sub listbox1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles listBox1.MouseDoubleClick
textbox1.text = listbox1.Text
end sub
الرد }}}
تم الشكر بواسطة: 3asfa~mdmra
#3
PHP كود :
   Private Sub ListBox1_MouseDoubleClick(sender As ObjectAs MouseEventArgsHandles 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
#4
اخي شكرا ولكن استخدمت هالطريقة وزبطت معي
TextBox1.Clear()
For Each Item As Object In ListBox2.SelectedItems
TextBox1.AppendText(Item.ToString + Environment.NewLine)
Next

اخواني اريد ان تظهر علامة copy بضغط ع اي صف من listbox ويتم نسخ الصف وشكراً
الرد }}}
تم الشكر بواسطة:
#5
ليس مرغوبا ان تقوم بعمل loop علي Items بهذا الشكل لكن طالما انت تحتاج لعمل Append للتكست بوكس
لذلك  يمكنك ان تخلط بين الطريقتين مثلا خذ من الكود الخاص بي كيفية تحديد Item  ثم من الكود الخاص بك االكود الخاص بعمل Append
الرد }}}
تم الشكر بواسطة: 3asfa~mdmra
#6
MouseDoubleClick =copy Item

كيف اخي ممكن ننسخ صف من خلال دبل كلك
الرد }}}
تم الشكر بواسطة:
#7
حاول تستخدم 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 
الرد }}}
تم الشكر بواسطة: 3asfa~mdmra



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم