vb6 - Compile Error: Connot Handle Events for the object specified


DevX Home    Today's Headlines   Articles Archive   Tip Bank   Forums   

Results 1 to 4 of 4

Thread: vb6 - Compile Error: Connot Handle Events for the object specified

Hybrid View

  1. #1
    Join Date
    Aug 2007
    Location
    NYC
    Posts
    60

    Unhappy vb6 - Compile Error: Connot Handle Events for the object specified

    CptNeutral,
    I am really sorry to bug you down with this stuff. If you recall, the module that ran was the module in the "clsFTP.zip".

    Now, I cloned the class module in the above zip file, copied and pasted the source codes into my own project.

    My class module is called: clsFTP(clsFTP.cls)

    While trying to run it, I get a compile Error: Can not handle Events for the object specified on this line code:
    Code:
    Private WithEvents cFTP As clsFTP
    with
    Code:
    WithEvents cFTP As clsFTP
    hilited.

    What am I doing wrong here?

    This is really getting me frustrated
    Giftx.

  2. #2
    Join Date
    Aug 2007
    Location
    NYC
    Posts
    60
    Hello gentlemen,
    I can't seem to get this error resolved.

    This time, I am loading my source code from a Class Module called "clsFTP.cls".

    My class module is called: clsFTP(clsFTP.cls)

    While trying to run it, I get a "compile Error: Can not handle Events for the object specified" on this line of code:

    Code:
    Private WithEvents cFTP As clsFTPwith
    This specific code was hilited during the error:
    Code:
    WithEvents cFTP As clsFTP
    Below is my source code:
    Code:
        
    LocalFilename = "\\Livctrls03-08\Data1\APP\UNCLAIMW\UCCTest\Databases\DataFiles\" & LocalFilename
        
         
    'This loads/initialises the FTP object
    Set cFTP = New clsFTP
    
    If cFTP.OpenConnection("10.8.37.44", "mfuchk", "58UA?UUW") Then
        
         bSuccess = cFTP.FTPUploadFile(LocalFilename, RemoteFilename)
        
        If bSuccess Then
            sError = "FTP - File Upload to Server was Successful"
        Else
            sError = cFTP.SimpleLastErrorMessage
        End If
        
        cFTP.CloseConnection
    Else
        sError = cFTP.SimpleLastErrorMessage
    End If
    
    MsgBox sError
    
    'unload/terminate the ftp object
    Set cFTP = Nothing
    Set txtfl = Nothing
    Exit Sub
    
    Errorhandler:
            MsgBox Str(Err.Number) & ": " & Err.Description, , "Error"
    Below is codes in my Class Module:
    Code:
    Private WithEvents cFTP As clsFTP  'GX added******
    
    Private Const MAX_PATH = 260
    Private Const INTERNET_FLAG_RELOAD = &H80000000
    Private Const NO_ERROR = 0
    Private Const FILE_ATTRIBUTE_READONLY = &H1
    Private Const FILE_ATTRIBUTE_HIDDEN = &H2
    Private Const FILE_ATTRIBUTE_SYSTEM = &H4
    Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
    Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
    Private Const FILE_ATTRIBUTE_NORMAL = &H80
    Private Const FILE_ATTRIBUTE_TEMPORARY = &H100
    Private Const FILE_ATTRIBUTE_COMPRESSED = &H800
    Private Const FILE_ATTRIBUTE_OFFLINE = &H1000
    Private Const INTERNET_FLAG_PASSIVE = &H8000000
    Private Const FORMAT_MESSAGE_FROM_HMODULE = &H800
    Private Const GENERIC_READ = &H80000000
    Private Const GENERIC_WRITE = &H40000000
    
    Private Const ERROR_NO_MORE_FILES = 18
    Private Const INTERNET_AUTODIAL_FORCE_ONLINE = 1
    Private Const INTERNET_OPEN_TYPE_PRECONFIG = 0
    Private Const INTERNET_INVALID_PORT_NUMBER = 0
    Private Const INTERNET_SERVICE_FTP = 1
    Private Const FTP_TRANSFER_TYPE_BINARY = &H2
    Private Const FTP_TRANSFER_TYPE_ASCII = &H1
    
    'Private WithEvents cFTP As clsFTP ' GX
    
    Private Const rDayZeroBias As Double = 109205#   ' Abs(CDbl(#01-01-1601#))
    Private Const rMillisecondPerDay As Double = 10000000# * 60# * 60# * 24# / 10000#
    
    Private Const BUFFERSIZE = 255
    
    Private Type WIN32_FIND_DATA
            dwFileAttributes As Long
            ftCreationTime As Currency
            ftLastAccessTime As Currency
            ftLastWriteTime As Currency
            nFileSizeHigh As Long
            nFileSizeLow As Long
            dwReserved0 As Long
            dwReserved1 As Long
            cFileName As String * MAX_PATH
            cAlternate As String * 14
    End Type
    
    ' -- private functions
    
    Private Declare Function FileTimeToLocalFileTime Lib "kernel32" (lpFileTime As Any, lpLocalFileTime As Any) As Long
    Private Declare Function FormatMessage Lib "kernel32" Alias "FormatMessageA" (ByVal dwFlags As Long, ByVal lpSource As Long, ByVal dwMessageId As Long, ByVal dwLanguageId As Long, ByVal lpBuffer As String, ByVal nSize As Long, Arguments As Long) As Long
    Private Declare Function FTPGetFile Lib "wininet.dll" Alias "FtpGetFileA" (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
    Private Declare Function FtpRenameFile Lib "wininet.dll" Alias "FtpRenameFileA" (ByVal hFtpSession As Long, ByVal lpszOldName As String, ByVal lpszNewName As String) As Boolean
    Private Declare Function FtpCreateDirectory Lib "wininet.dll" Alias "FtpCreateDirectoryA" (ByVal hFtpSession As Long, ByVal lpszName As String) As Boolean
    Private Declare Function FtpRemoveDirectory Lib "wininet.dll" Alias "FtpRemoveDirectoryA" (ByVal hFtpSession As Long, ByVal lpszName As String) As Boolean
    
    Private Declare Function FtpDeleteFile Lib "wininet.dll" Alias "FtpDeleteFileA" (ByVal hFtpSession As Long, ByVal lpszFileName As String) As Boolean
    Private Declare Function FtpOpenFile Lib "wininet.dll" Alias "FtpOpenFileA" (ByVal hFtpSession As Long, ByVal sBuff As String, ByVal Access As Long, ByVal Flags As Long, ByVal Context As Long) As Long
    Private Declare Function FTPPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, ByVal lpszRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
    Private Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
    Private Declare Function FtpGetCurrentDirectory Lib "wininet.dll" Alias "FtpGetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszCurrentDirectory As String, lpdwCurrentDirectory As Long) As Boolean
    Private Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" (ByVal hFtpSession As Long, ByVal lpszSearchFile As String, lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, ByVal dwContent As Long) As Long
    
    Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpLibFileName As String) As Long
    
    Private Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" (ByVal hFind As Long, lpvFindData As WIN32_FIND_DATA) As Long
    Private Declare Function InternetWriteFile Lib "wininet.dll" (ByVal hFile As Long, ByRef sBuffer As Byte, ByVal lNumBytesToWrite As Long, dwNumberOfBytesWritten As Long) As Integer
    Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByRef sBuffer As Byte, ByVal lNumBytesToRead As Long, dwNumberOfBytesRead As Long) As Integer
    Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Long
    Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
    Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
    Private Declare Function InternetGetLastResponseInfo Lib "wininet.dll" Alias "InternetGetLastResponseInfoA" (ByRef lpdwError As Long, ByVal lpszErrorBuffer As String, ByRef lpdwErrorBufferLength As Long) As Boolean
    Private Declare Function InternetAutodial Lib "wininet.dll" (ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
    
    
    
    ' -- Private Variables
    
    Private hOpen As Long
    Private hConnection As Long
    Private hFile As Long
    Private dwType As Long
    Private dwSeman As Long
    
    Private szErrorMessage As String
    
    Public Event FileTransferProgress(dCurrentBytes As Double, dTotalBytes As Double)
    What am I doing wrong here?

    Giftx.

  3. #3
    Join Date
    Aug 2007
    Location
    NYC
    Posts
    60
    Resolved !!!

  4. #4
    Join Date
    Apr 2007
    Location
    Sterling Heights, Michigan
    Posts
    8,666
    Post your resolution as it might help someone else with the same or similiar problem.

    Thanks.
    I don't answer coding questions via PM or Email. Please post a thread in the appropriate forum section.
    Please use [Code]your code goes in here[/Code] tags when posting code.
    Before posting your question, did you look here?
    Got a question on Linux? Visit our Linux sister site.
    Modifications Required For VB6 Apps To Work On Vista

Similar Threads

  1. Replies: 1
    Last Post: 01-30-2003, 08:03 AM
  2. get handle of an object
    By estrella in forum VB Classic
    Replies: 1
    Last Post: 07-09-2002, 01:08 PM
  3. Replies: 0
    Last Post: 11-23-2001, 11:54 PM
  4. Replies: 0
    Last Post: 11-23-2001, 11:54 PM
  5. Extend Constituent Control Drag Events
    By Todd Mitchell in forum VB Classic
    Replies: 3
    Last Post: 04-09-2000, 12:48 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
HTML5 Development Center
 
 
FAQ
Latest Articles
Java
.NET
XML
Database
Enterprise
Questions? Contact us.
C++
Web Development
Wireless
Latest Tips
Open Source


   Development Centers

   -- Android Development Center
   -- Cloud Development Project Center
   -- HTML5 Development Center
   -- Windows Mobile Development Center