'The Mouse_Mouve event will be used to prepare records to be dropped into the report.
Private Sub lstItems_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'If the left mouse button is pressed while in the List Control If (Button And vbLeftButton) Then
Dim Records As ReportRecords
'CreateRecords is primarily used to create an empty ReportRecords collection in Drag and Drop
'operations. The new ReportRecords collection is used to create a collection of ReportRecord
'objects to be dropped into the Report Control or to retrieve records that have been dragged
'out of the Report Control. '
'Below, a records collection is created that will contain a record for each item that
'is currently selected in the list control Set Records = wndReport.CreateRecords
Dim i As Long
'Loop through all items in the List Control For i = 0 To lstItems.ListCount - 1
'If the list item is selected, then add it to then create a record for it
'in the records colleciton If lstItems.Selected(i) Then
Dim Record As ReportRecord
'Add a new record to the records collection Set Record = Records.Add
Record.AddItem lstItems.List(i)
Debug.Print \ End If
Next
'The DragRecords method is used to prepare records to be dropped
into the Report Control.
'DragRecords accepts a ReportRecords collection created by CreateRecords. Any records that 'have been prepared using DragRecords will be added to the Report when the items are dropped
'into the Report Control. Typically DragRecords would be used in the MouseMove event of the
'control from which items are being dragged. The Report Control will automatically add the
'new records to the report once they have been dropped. '
'Below, the Records collection is filled with a record that corresponds to each item that is
'currently selected in the List Control. If the items are dropped into the Report Control, then 'all records contained in the Records collection will be added to the report. ' 'Now Data.GetFormat(cfRecords) will return True as some Records have been added to the clipboard
wndReport.DragRecords Records
End If End Sub
'The OLEDragDrop event will be used to add items to the List Control that have been dragged from the Report Control
Private Sub lstItems_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
'If the format of the data on the clipboard is of type \ If Data.GetFormat(cfRecords) Then
'Create a ByteArray Dim byteData() As Byte
'Retrieve the Records collection from the clipboard, the data is stored as a ByteArray
byteData = Data.GetData(cfRecords)
Dim Records As ReportRecords
'The CreateRecordsFromDropArray method is used when retrieving
records that have been dragged
'from the Report Control. CreateRecordsFromDropArray accepts the ByteArray returned from the
'Data.GetData parameter from any control's OLEDragDrop event and populates a ReportRecords
'collection created by CreateRecords with the records stored on the clipboard.
'
'Below, the Records collection is populated by the records that were copied to the clipboard
Set Records = wndReport.CreateRecordsFromDropArray(byteData)
'If there were some records on the clipboard If (Not Records Is Nothing) Then
'Unselect all items in the list control ClearListSelection
Dim i As Long
'Add a list item for each record that was on the clipboard For i = 0 To Records.Count - 1
lstItems.AddItem Records(i).Item(0).Value
lstItems.Selected(lstItems.ListCount - 1) = True Next
End If
'If the ctrl key was pressed when the items were dropped, then the drag operation was a Copy
'Else, a Move operation is performed If ((Shift And 2) = 0) Then Effect = vbDropEffectMove Else
Effect = vbDropEffectCopy End If
End If End Sub
'The OLEDragOver event is used to detect when items are dragged over the list control Private Sub lstItems_OLEDragOver(Data As DataObject, Effect As Long,
Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Effect = 0
'If the format of the data on the clipboard is of type \ If Data.GetFormat(cfRecords) Then
'If the ctrl key is pressed when items are dragged over the list control, then the drag operation is Copy 'Else, a Move operation is performed If ((Shift And 2) = 0) Then Effect = vbDropEffectMove Else
Effect = vbDropEffectCopy End If End If End Sub
'The BeginDrag event occurs when records are being dragged from\\within the Report Control, and provides a
'ReportRecords collection containing all of the selected records when the drag operation started.
Private Sub wndReport_BeginDrag(ByVal Records As XtremeReportControl.IReportRecords)
Debug.Print \End Sub
'The DropRecords event occurs when records are dropped into a Report Control, and provides a
'ReportRecords collection containing all of the records that will be dropped into the Report Control.
'This gives the opportunity to modify the ReportRecords collection before they are actually added
'to the Report Control.
Private Sub wndReport_DropRecords(ByVal Records As XtremeReportControl.IReportRecords)
Debug.Print \ End Sub
Making a Group Special Author: Mike Palmatier
Posted: May 3, 2008
Environment:Visual Basic 6.0
You can designate a task panel group as \ Groups marked as special will be displayed differently than normal groups drawing the users attention to that particular group. This is an excellent way to show the user the \ \
Normal group
To set a group as special all you need to do is set the Special property to True. Dim Group As TaskPanelGroup
Set Group = wndTaskPanel.Groups.Add(0, \Group.Special = True
Applying the Office 2007 Skin Author: Mike Palmatier Posted: May 3, 2008
Last Updated: December 10, 2007
Environment:Visual Basic 6.0
First a skin must be loaded before it can be applied to your application. The LoadSkin method loads a skin from a .cjstyles or .msstyles file.
The Office 2007 skin is located in the Office2007.cjstyles skin file and is loaded using the NormalOffice2007.ini file name.
'Loads the NormalBlue.ini skin
SkinFramework.LoadSkin App.Path + _
\To actually apply the skin, the ApplyWindow method must be called. ApplyWindow only needs to be called one time in the Load event of the window a skin will be applied.
