As the webbrowser control does not seem to support OLE commands I'm trying to 'fake it' First I load up a webbrowser control with a image from my HD or Internet. Now I copy the contents to the windows clipboard like this.... Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) On Error Resume Next 'select and copy to clipboard [url removed, login to view] OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUSER [url removed, login to view] OLECMDID_COPY, OLECMDEXECOPT_DONTPROMPTUSER End Sub Now I use a label to initiate a drag drop. Private Sub label1_mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single) [url removed, login to view] End Sub On start of the drag drop I want to set the clipboard data down as the data to use, abit like this... (I've put *** where I want the 'clipboard' data to be instead.) Private Sub label1_OLEStartDrag(Data As DataObject, AllowedEffects As Long) [url removed, login to view] [url removed, login to view] "***", vbCFText AllowedEffects = vbDropEffectCopy End Sub I hope all the above makes sense, if it works, it should allow you to drag and drop a image into a email message in outlook (html format). (you can do this direct from the webbrowser control manually but this is trying to 'fake' it from the label control) Once I can achieve the above I can check if the operation was a succes or not using.... Private Sub label1_OLECompleteDrag(effect As Long) ' hide dragged piccy If effect = 0 Then [url removed, login to view] = "FAIL" Else [url removed, login to view] = "SUCCESS" End If End Sub Please see attached code.......
1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done.
2) Installation package that will install the software (in ready-to-run condition) on the platform(s) specified in this bid request.
3) All deliverables will be considered "work made for hire" under U.S. Copyright law. Buyer will receive exclusive and complete copyrights to all work purchased. (No GPL, GNU, 3rd party components, etc. unless all copyright ramifications are explained AND AGREED TO by the buyer on the site per the coder's Seller Legal Agreement).
Win 9x / XP