sr.Close()

        End If

        Return False

End Function

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

        If disposing Then

            If Not (components Is Nothing) Then

                components.Dispose()

            End If

        End If

        Application.RemoveMessageFilter(Me)

        DragAcceptFiles(TextBox1.Handle.ToInt32, False)

        MyBase.Dispose(disposing)

   End Sub

注意：拖放结束后，调用DragFinish释放内存。

上一页  [1] [2]