You can get this message if you have an error in a DECLARE statement. It
isn't much help in telling you which one.
What are you trying to do this using DECLARE functions when you could
use the control that already exists?
>i have it program and say error in linea 1 char 4 error type mistmach ,
>i not understaing, please i need help urgent
>
>form1
>
>Sub CommandButton1_Click
>
>Dim lHandle
>Dim lpErrors
>Dim lSuccess
>Dim lBytesWritten
>Dim lBytesToWrite
>Dim TheData
>Dim N
>
>
>
>lHandle = CreateFile("\xx.txt", GENERIC_WRITE or GENERIC_READ, 0, 0,
>OPEN_ALWAYS, 0, 0)
>
>TheData="hola hola"
>
>lBytesToWrite = Len(TheData)
>lBytesWritten=0
> lSuccess =0
>
>
>
>N=0
>
>'hear error
> WriteFile lHandle, TheData, lBytesToWrite, lBytesWritten, N
>
>
> MsgBox "Fino"
>
>
>lSuccess = CloseHandle(lHandle)
>
>End Sub
>
>module 1
>
>
>Public Const GENERIC_WRITE = &H40000000
>Public Const GENERIC_READ = &H80000000
>Public Const FILE_ATTRIBUTE_NORMAL = &H80
>Public Const CREATE_ALWAYS = 2
>Public Const OPEN_ALWAYS = 4
>Public Const INVALID_HANDLE_VALUE = -1
>
>
>Declare "Function CreateFile Lib ""Coredll"" Alias
>""CreateFileW"" (ByVal lpFileName As String, ByVal dwDesiredAccess As
>Long, ByVal dwShareMode As Long, lpSecurityAttributes As Long, ByVal
>dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal
>hTemplateFile As Long) As Long"
>
>Declare "Function WriteFile Lib ""Coredll"" (ByVal hFile As Long,
>lpBuffer As String, ByVal nNumberOfBytesToWrite As Long,
>lpNumberOfBytesWritten As Long, lpOverlapped As Long) As Long"
>
>Declare "Function CloseHandle Lib ""Coredll"" (ByVal hObject As Long)
>As Long"
>
>
>
>Public Const CE_BREAK = &H10 ' break condition
>Public Const CE_PTO = &H200 ' printer timeout
>Public Const CE_IOE = &H400 ' printer I/O error
>Public Const CE_DNS = &H800 ' device not selected
>Public Const CE_OOP = &H1000 ' out of paper
>
>
>
>
>------------------------------------
>
>Yahoo! Groups Links
>
>
>
--
You received this message because you are subscribed to the Google Groups
"nsb-ce" group.
To post to this group, send email to [email protected].
To unsubscribe from this group, send email to
[email protected].
For more options, visit this group at
http://groups.google.com/group/nsb-ce?hl=en.
