تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال datagridview
#1
سلام عليكم 
وجدت كود في الموقع هنا وهو الترتيب على  datagridview  بالسحب والافلات ولكن يتعامل مع كل خلية لوحدها 
هل هناك طريقة لترتيب بسطر كله بدل من تعامل مع خلية وبارك الله فيكم
والكود 
كود :
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
       DataGridView1.AllowDrop = True
   End Sub
   Private CR As Integer, CC As Integer, CV As Object
   Private Sub DataGridView1_DragOver(ByVal sender As Object, ByVal e As DragEventArgs) Handles DataGridView1.DragOver
       e.Effect = DragDropEffects.Move
   End Sub
   Private Sub DataGridView1_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles DataGridView1.DragDrop
       Dim ClientPoint As Point = DataGridView1.PointToClient(New Point(e.X, e.Y))
       Dim hit As DataGridView.HitTestInfo = DataGridView1.HitTest(ClientPoint.X, ClientPoint.Y)
       DataGridView1.Item(CC, CR).Value = Nothing
       DataGridView1.Item(CC, CR).Style.BackColor = Color.White
       MsgBox("تم سحب القيمة من العمود : " & CC + 1 & vbNewLine & "و الصف : " & CR + 1)
       CR = hit.RowIndex : If CR < 0 Then Exit Sub
       CC = hit.ColumnIndex : If CC < 0 Then Exit Sub
       DataGridView1.Item(CC, CR).Value = CV
       DataGridView1.Item(CC, CR).Style.BackColor = Color.Brown
       MsgBox("تم الاسقاط على العمود : " & CC + 1 & vbNewLine & " والصف : " & CR + 1)
   End Sub
   Private Sub DataGridView1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles DataGridView1.MouseDown
       Dim hit As DataGridView.HitTestInfo = DataGridView1.HitTest(e.X, e.Y)
       CR = hit.RowIndex : If CR < 0 Then Exit Sub
       CC = hit.ColumnIndex : If CC < 0 Then Exit Sub
       CV = DataGridView1.Item(CC, CR).Value : If CV Is Nothing Then Exit Sub
       DataGridView1.DoDragDrop(CV, DragDropEffects.Move)
   End Sub
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد
تم الشكر بواسطة: أشرف كريم 2
#2
وجدت طلبك في هذا الموضوع 

https://stackoverflow.com/questions/1620...each-other

وقمت بتنفيذ الحل في مثال Vb.net


.zip   DragDropDataGridView.zip (الحجم : 16.17 ك ب / التحميلات : 4)
الرد
تم الشكر بواسطة: ابو انس
#3
(01-11-21, 12:37 AM)Anas Mahmoud كتب : وجدت طلبك في هذا الموضوع 

https://stackoverflow.com/questions/1620...each-other

وقمت بتنفيذ الحل في مثال Vb.net

اللهم ارحم اباه وكل اموات المسلمين

الف شكر اخي الكريم على هذا المجهود بارك الله فيك
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد
تم الشكر بواسطة:



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


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