dragdrop and tabcontrol

[dave]

I am wishing to drag something from the desktop to a tab of a tab control in
vb.net.
The dragdrop event fires when release the mouse above the tab however i am
having a hard time trying to figure out which tab it was dropped on.

Currently i am using the following code but it is not working..Any help
would be appreciated...

Private Sub tc_DragDrop(ByV al sender As Object, ByVal e As
System.Windows. Forms.DragEvent Args) Handles tc.DragDrop
Dim pt As New Point(e.X, e.Y)
pt = PointToClient(p t)
Dim hover_tab As TabPage = GetTabPageByTab (e.X, e.Y)
If Not hover_tab Is Nothing Then
Debug.Write("go t it")
End If
End Sub
Private Function GetTabPageByTab (ByVal x As Integer, ByVal y As Integer)
As TabPage
'Private Function GetTabPageByTab (ByVal pt As Point) As TabPage
Dim tp As TabPage = Nothing
Dim i As Integer = 0
For i = 0 To tc.TabPages.Cou nt - 1
Dim tabRec As System.Drawing. Rectangle = tc.GetTabRect(i )
Debug.WriteLine (DateTime.Now.T oString & " " & i.ToString &
tabRec.X & " " & tabRec.Y & " Point X " & x & " " & y & "____")

If tc.GetTabRect(i ).Contains(x, y) Then
tp = tc.TabPages(i)
tc.SelectedInde x = i
Debug.WriteLine (DateTime.Now.T oString & " " & i.ToString)
Exit For
End If
Next
Return tp
End Function

[Mick Doherty]

\\\
Private Sub tc_DragDrop(ByV al sender As Object, ByVal e As DragEventArgs) _
Handles tc.DragDrop
Dim pt As Point = tc.PointToClien t(New Point(e.X, e.Y))
Dim hover_tab As TabPage = GetTabPageByTab (pt)
If Not hover_tab Is Nothing Then
Debug.Write(hov er_tab.ToString )
End If
End Sub

Private Function GetTabPageByTab (ByVal pt As Point) As TabPage
For index As Integer = 0 To tc.TabCount - 1
If tc.GetTabRect(i ndex).Contains( pt.X, pt.Y) Then
Return tc.TabPages(ind ex)
End If
Next
Return Nothing
End Function

Private Sub tc_DragEnter(By Val sender As Object, ByVal e As DragEventArgs) _
Handles tc.DragEnter
e.Effect = DragDropEffects .All
End Sub
///

--
Mick Doherty
http://dotnetrix.co.uk/nothing.html
"dave" <da**@discussio ns.microsoft.co m> wrote in message
news:E4******** *************** ***********@mic rosoft.com...

I am wishing to drag something from the desktop to a tab of a tab control
in
vb.net.
The dragdrop event fires when release the mouse above the tab however i
am
having a hard time trying to figure out which tab it was dropped on.

Currently i am using the following code but it is not working..Any help
would be appreciated...

Private Sub tc_DragDrop(ByV al sender As Object, ByVal e As
System.Windows. Forms.DragEvent Args) Handles tc.DragDrop
Dim pt As New Point(e.X, e.Y)
pt = PointToClient(p t)
Dim hover_tab As TabPage = GetTabPageByTab (e.X, e.Y)
If Not hover_tab Is Nothing Then
Debug.Write("go t it")
End If
End Sub
Private Function GetTabPageByTab (ByVal x As Integer, ByVal y As
Integer)
As TabPage
'Private Function GetTabPageByTab (ByVal pt As Point) As TabPage
Dim tp As TabPage = Nothing
Dim i As Integer = 0
For i = 0 To tc.TabPages.Cou nt - 1
Dim tabRec As System.Drawing. Rectangle = tc.GetTabRect(i )
Debug.WriteLine (DateTime.Now.T oString & " " & i.ToString &
tabRec.X & " " & tabRec.Y & " Point X " & x & " " & y & "____")

If tc.GetTabRect(i ).Contains(x, y) Then
tp = tc.TabPages(i)
tc.SelectedInde x = i
Debug.WriteLine (DateTime.Now.T oString & " " & i.ToString)
Exit For
End If
Next
Return tp
End Function

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.742 / Virus Database: 495 - Release Date: 19/08/2004

[dave]

Thank you very much Mike. (I owe you one)

It appears my biggest fault was the issue that pointtoclient is a method of
the tabcontrol. Thanks again.