This causes a compile time error:
Local lResult As Long
lResult = MESSAGEBOX(hWndForm, BYCOPY "Esto se debe hacer cada principio de semana solamente, si se hace antes, la semana sera reiniciada y no se podra seguir modificando. Estara solo disponible para consulta. No presione este boton si no esta seguro de los efectos." & $CRLF & _
"" & $CrLf & _
"Desea continuar?" & $CrLf, _
ByCopy "IMPORTANTE", _
%MB_YESNO Or %MB_DEFBUTTON1 Or %MB_ICONQUESTION Or %MB_APPLMODAL)
Select Case lResult
CASE %IDYES
Case %IDNO
END SELECT
This is a functional one:
Local lResult As Long
lResult = MESSAGEBOX(hWndForm, BYCOPY "Esto se debe hacer cada principio de semana solamente, " & _
"si se hace antes, la semana sera reiniciada y no se podra seguir modificando. Estara " & _
"solo disponible para consulta. No presione este boton si no esta seguro de los efectos." & $CRLF & _
"" & $CrLf & _
"Desea continuar?" & $CrLf, _
ByCopy "IMPORTANTE", _
%MB_YESNO Or %MB_DEFBUTTON1 Or %MB_ICONQUESTION Or %MB_APPLMODAL)
Select Case lResult
CASE %IDYES
Case %IDNO
END SELECT
:D
And, if we press the button 'Copy to Clipboard', the Dialog 'View/Copy Code'
should be closed automatically.
Thanks
Or insert code at cursor position... :)
All will be corrected (and implemented better/smarter) in FireFly 3.
:)