User Group Assignments

This commit is contained in:
Jonathan Jenne
2019-02-20 16:05:33 +01:00
parent 6131182d64
commit 08e3ca9dd3
15 changed files with 330 additions and 82 deletions

View File

@@ -68,13 +68,14 @@ Public Class ClassDragDrop
Private Sub grid_DragOver(sender As Object, e As DragEventArgs)
Dim multipleDropped As Boolean = e.Data.GetDataPresent(GetType(GridView))
Dim singleDroppped As Boolean = e.Data.GetDataPresent(GetType(DataRow))
' TODO: Check which kind of record was dragged
'Dim singleUserDropped As Boolean = e.Data.GetDataPresent(GetType(TBDD_USERRow))
'Dim singleGroupDropped As Boolean = e.Data.GetDataPresent(GetType(DS_ChangeS.TBDD_GROUPSRow))
'If multipleDropped Or singleUserDropped Or singleGroupDropped Then
If multipleDropped Then
If multipleDropped Or singleDroppped Then
e.Effect = DragDropEffects.Move
Else
e.Effect = DragDropEffects.None