6.0 어디가 문제인지 모르겠어요ㅠㅠ

[체리망고]

비베는 아직 초보라서 그런지 어디가 문제인지 잘~ 모르겠습니다.

아시는 분은 도와주세요ㅠㅠ 생각보다 많이 어렵네요! 휴~~~

======================================소스=============================

Private Const ERASER_OK = 0                            ' No error
Private Const ERASER_ERROR = -1                        ' Unspecified error
Private Const ERASER_ERROR_PARAM1 = -2                 ' Parameter 1 invalid
Private Const ERASER_ERROR_PARAM2 = -3                 ' Parameter 2 invalid
Private Const ERASER_ERROR_PARAM3 = -4                 ' Parameter 3 invalid
Private Const ERASER_ERROR_PARAM4 = -5                 ' Parameter 4 invalid
Private Const ERASER_ERROR_PARAM5 = -6                 ' Parameter 5 invalid
Private Const ERASER_ERROR_PARAM6 = -7                 ' Parameter 6 invalid
Private Const ERASER_ERROR_MEMORY = -8                 ' Out of memory
Private Const ERASER_ERROR_THREAD = -9                 ' Failed to start thread
Private Const ERASER_ERROR_EXCEPTION = -10             ' BUG!
Private Const ERASER_ERROR_CONTEXT = -11               ' Context array full (ERASER_MAX_CONTEXT)
Private Const ERASER_ERROR_INIT = -12                  ' Library not initialized (eraserInit())
Private Const ERASER_ERROR_RUNNING = -13               ' Failed because the thread is running
Private Const ERASER_ERROR_NOTRUNNING = -14            ' Failed because the thread is not running
Private Const ERASER_ERROR_DENIED = -15                ' Operation not permitted
Private Const ERASER_ERROR_NOTIMPLEMENTED = -32        ' Function not implemented

Private Declare Function ePaperBoxEraseInit Lib "ePaperBoxErase.dll" () As Long
Private Declare Function ePaperBoxEraseEnd Lib "ePaperBoxErase.dll" () As Long
Private Declare Function ePaperBoxEraseFile Lib "ePaperBoxErase.dll" (a1 As String, a2 As Long, a3 As Integer) As Long
Private Declare Function ePaperBoxEraseFolder Lib "ePaperBoxErase.dll" (a1 As String, a2 As Long, a3 As Integer, a4 As Byte) As Long

Option Explicit
Option Compare Text

Private Sub cmdExit_Click()
    End
End Sub

Private Sub ePaperBoxEraseFile_Click()
    Dim filename As String
    Dim fileNameLength As Long

   
    If ePaperBoxEraseFile(filename, fileNameLength, 1) = True Then
        MsgBox "폴더가 성공적으로 삭제되었습니다."
    End If
   
      'ePaperBoxEraseEnd

End Sub

Private Sub ePaperBoxEraseFolder_Click()
    Dim folderName As String
    Dim folderNameLength As Long   
    If ePaperBoxEraseFolder(folderName, folderNameLength, 1, 1) = True Then
      MsgBox "폴더가 성공적으로 삭제되었습니다."

    End If
   
    'ePaperBoxEraseEnd
   
End Sub

Private Sub ePaperBoxEraseInit_Click()
    If ePaperBoxEraseInit() Then
       
    Exit Sub
    Else
         MsgBox "초기화에 실패 했습니다."
    End If
    
End Sub

Private Sub Form_Load()

End Sub

===> 인수의 계수와 속성이 잘못 되었다는데 어디를 고쳐야지 되는지ㅜㅜ

[aerowon]

이경우는 ePaperBoxErase.dll이라는 특정파일이 있어야 도움을 드릴수 있고...결국 스스로 Debug을 하셔야죠. 에러가 예상되는 부분에 breakpoint(F9)을 누르고 F8, shift+F8등을 이용하시면 됩니다.. 만약 ePaperBoxErase.dll쪽 함수들 문제라면 그 파일만든 분에게 문의하시구요.

[냐냐냐]

Declare 선언부의 각 함수의 인수 부분에 Byval을 넣어보세요.