FlexGrid Drag and Drop

  • Thread starter Thread starter Aleks1429
  • Start date Start date
A

Aleks1429

I am trying to do Drag and Drop on a FlexGrid control. The following code
works fine in VB 6.0, but when I try to use it in Access 2000. The code
blows up in two places. The DragIcon and Drag functions are not recognized.
Why is this? and is there a work around to this?


Private Sub MSFlexGrid1_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Long, ByVal Y As Long)

Dim strPath As String
strPath = "c:\Projects\proj\client.ico"

If Button = 1 Then

strDragText = MSFlexGrid1.TextMatrix(MSFlexGrid1.row,
MSFlexGrid1.col)
Set MSFlexGrid1.DragIcon = LoadPicture(strPath) ' load picture.
MSFlexGrid1.Drag
End If
End Sub
 
Back
Top