04-11-16, 05:04 PM
بسم الله الرحمان الرحيم
سلام عليكم جميعاً
اود اشغالكم بموضع بسيط وهو كيف نسخ صف معين
من الصورة المرفقة وطلب اخر بسيط هوا كيف
ضغط مرتين ع صف المحدد بصورة وينزل الصف في
Textbox
المرفق بصورة وشكراً لكم
04-11-16, 05:55 PM
لنسخ صف في TextBox
Private Sub listbox1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles listBox1.MouseDoubleClick
textbox1.text = listbox1.Text
end sub
Private Sub listbox1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles listBox1.MouseDoubleClick
textbox1.text = listbox1.Text
end sub
04-11-16, 06:23 PM
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
04-11-16, 06:27 PM
اخي شكرا ولكن استخدمت هالطريقة وزبطت معي
TextBox1.Clear()
For Each Item As Object In ListBox2.SelectedItems
TextBox1.AppendText(Item.ToString + Environment.NewLine)
Next
اخواني اريد ان تظهر علامة copy بضغط ع اي صف من listbox ويتم نسخ الصف وشكراً
TextBox1.Clear()
For Each Item As Object In ListBox2.SelectedItems
TextBox1.AppendText(Item.ToString + Environment.NewLine)
Next
اخواني اريد ان تظهر علامة copy بضغط ع اي صف من listbox ويتم نسخ الصف وشكراً
04-11-16, 06:37 PM
ليس مرغوبا ان تقوم بعمل loop علي Items بهذا الشكل لكن طالما انت تحتاج لعمل Append للتكست بوكس
لذلك يمكنك ان تخلط بين الطريقتين مثلا خذ من الكود الخاص بي كيفية تحديد Item ثم من الكود الخاص بك االكود الخاص بعمل Append
لذلك يمكنك ان تخلط بين الطريقتين مثلا خذ من الكود الخاص بي كيفية تحديد Item ثم من الكود الخاص بك االكود الخاص بعمل Append
04-11-16, 06:48 PM
MouseDoubleClick =copy Item
كيف اخي ممكن ننسخ صف من خلال دبل كلك
كيف اخي ممكن ننسخ صف من خلال دبل كلك
04-11-16, 07:33 PM
حاول تستخدم Tooltip و تربطها مع الليست بوكس
الكود التالي للتوضيح فقط لكن اين و متي سوف تقوم بإظهار 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