Works for me. :(

 

Here code I tried:

 

Private Declare Function RegisterClipboardFormat Lib "user32" Alias "RegisterClipboardFormatA" (ByVal lpString As String) As Integer

Dim GridClipboardID As Integer

Private Sub Command1_Click()
    Command1.OLEDrag
End Sub

Private Sub Command1_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
    Dim d(0 To 10) As Byte
   
    Data.SetData d, GridClipboardID
    AllowedEffects = vbDropEffectCopy
   
End Sub

Private Sub Form_Load()
GridClipboardID = RegisterClipboardFormat("GridGIDs")
End Sub

Private Sub Text1_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, state As Integer)
    If Data.GetFormat(GridClipboardID) Then
        Debug.Print "Data"
    End If
End Sub

Private Sub FlatEdit1_OLEDragOver(ByVal Data As XtremeSuiteControls.DataObject, Effect As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single, ByVal state As Integer)
    If Data.GetFormat(GridClipboardID) Then
        Debug.Print "Data!"
    End If
End Sub

 

This DataObject is not the same as the DataObject of other VB controls. More important, if another drag source registers a clipboard format, the FlatEdit control DragDrop DataObject does not return it:

 

That is: Data.GetFormat(GridClipboardID) = False even though that clipboard format was registered (using GridClipboardID = RegisterClipboardFormat("GridGIDs")). As a consequence, I must use the regular VB textbox, which works just fine.

 

I'd like to use your control suite, but missing features and/or "improperly" implemented ones is causing me problems. Now... does an app look professional if some controls use visual styles (when using CodeJock's) and some don't (when I need to use VB stock) ? For uniformity, I can't use the CodeJock control suite, even though I'd like to.

 

Any chance that the CodeJock suite controls can be made closer to the VB stock ones?