Drag & Drop .Net

 

Almost same way as in VB6:

 

Good extension! I use RC in the following manner:

 

12.07.2009

  A

  B

  C

  A

14.07.2009

  X

  Z

  Y

 

The report is grouped by date. Now drag & drop is not possible inside a group (e.g. moving the lower A to the upper). Moving an item shoul only be possible inside a group!

 

What do you think about that? Would this be possible to implement?

 

Thanks in advance

 

Thanks again!

 

Sorry I've only just got round to replying. However, whist I have a VB6 app that works fine it does not in VB2005.

 

I can detect the prescence of records and then just loop thyrough For Each Row in RC.SelectedRows

 

That way it works. The code that CJ supply as an example in VB6 does not.

 

 

Regards, ...

 

 

What is ready - OCX with proper drag and drop for unsorted and sorted cases (like Vista Windows Explorer) -

ocx - https://forum.codejock.com/uploads/DemoVersion/ReportControlUpdated.rar

ready to run demo - https://forum.codejock.com/uploads/DemoVersion/ReportPaneViewStatic.rar

 

Thanks. Sure - this is upgrade to current 13.1

You can try it now - there is checkbox for SortedDD mode - see reaction

 

Looks like current behaviour is most logical - no need to modify something

 

I don't think that this works. Moving a row (RED LINE) is disabled as soon as you have created a group, at least in V13.0. And how can I restrict the red line to one group? It should be made invisible as soon as I move outside the starting group!

 

If I am wrong - please advice or show me in my uploaded sample.

 

Thanks in advance!

 

 

Thanks

 

If this really works I will install 13.1 immediately!

BestFit in your case - looks good -

 

 

Private Sub Form_Load()
  Dim ReportCol As ReportColumn
  Dim ReportRec As ReportRecord
  Dim Item As ReportRecordItem
  Dim i As Integer
  Dim w As Integer
  w = 200
  Call CJInitReport(ReportControl1)
  ReportControl1.EnableDragDrop "Report", xtpReportAllowDrop + xtpReportAllowDrag
  ReportControl1.AllowEdit = True
 
  ReportControl1.ShowGroupBox = True 'False
  ReportControl1.HideColumnAfterGroupBoxDrop = False
 
  ReportControl1.AllowColumnRemove = True
  ReportControl1.AllowColumnSort = False
  'ReportControl1.AllowColumnSort = True
  ReportControl1.PaintManager.HideSelection = True
  '---Wird nur gebraucht, um die Gruppenzeile schmaler zu machen
  ReportControl1.PaintManager.ShadeGroupHeadings = True
  ReportControl1.PaintManager.GroupShadeBackColor = RGB(245, 245, 245)
  '---
  ReportControl1.PaintManager.ShadeSortColumn = False
 
  Set ReportCol = ReportControl1.Columns.Add(0, "Date", w, True)
  Set ReportCol = ReportControl1.Columns.Add(1, "Code", w, True)
  Set ReportCol = ReportControl1.Columns.Add(2, "Price", w, True)
 
  For i = 0 To 100
    Set ReportRec = ReportControl1.Records.Add
   
    Set Item = ReportRec.AddItem(Format(Now() + i Mod 10, "short date"))
    Set Item = ReportRec.AddItem(CStr(4000 + i))
    Set Item = ReportRec.AddItem(Format$(200 + Rnd() * 10, "###,###.00"))
  Next i
 
  'ReportControl1.IconViewRowNumberSetup 0, 0, 1, 20
 
  ReportControl1.SortOrder.Add ReportControl1.Columns.Find(0)
  'ReportControl1.SortOrder.Add ReportControl1.Columns.Find(1)
  ReportControl1.GroupsOrder.Add ReportControl1.Columns.Find(0)
 
  ReportControl1.Populate
 
  ReportControl1.Columns(0).BestFit
  ReportControl1.Columns(1).BestFit
  ReportControl1.Columns(2).BestFit
 
  ReportControl1.SortedDragDrop = True
  Check.Value = 1
 
  ReportControl1.Redraw
End Sub

1st - get and install official 13.1 (Mid of June 2009) from CJ Store

 

2nd - get fresh upgrade here - https://forum.codejock.com/uploads/DemoVersion/ReportControlUpdated.rar
unrar it on same place your official 13.1 located.

Rename the same way as official filename use
No need to re-registrate as you already had it