I know how to do threads when I have a dialog. How do you do it without a dialog?
Can this be done with PB Win10? There is a similar sample in the PB CC6 examples.
Can this be done with PB Win10? There is a similar sample in the PB CC6 examples.
Code:
'----------------------------------------------------------------------------- FUNCTION START_COMM_THREAD()AS LONG LOCAL THREAD_HANDLE AS LONG LOCAL THREAD_RESULT AS LONG THREAD CREATE THREADED_COMM_THREAD(0) TO THREAD_HANDLE THREAD CLOSE THREAD_HANDLE TO THREAD_RESULT END FUNCTION '------------------------------------------------------------------------------ THREAD FUNCTION THREADED_COMM_THREAD(BYVAL NO_VAL AS LONG)AS LONG ON ERROR GOTO ERROR_CONTROL DO SLEEP 500 WINBEEP(300,300) LOOP EXIT FUNCTION ERROR_CONTROL: END FUNCTION '------------------------------------------------------------------------------ FUNCTION PBMAIN () AS LONG LOCAL CompletionPort AS DWORD LOCAL msg AS TAGMSG START_COMM_THREAD DO TranslateMessage(msg) DispatchMessage(msg) LOOP END FUNCTION '------------------------------------------------------------------------------
Comment