Next Call ReleaseDC(formhandle, dc) ''''释放资源！ '''' Call EnterCriticalSection(sect) '''' 上下表示该处为临界区，如果要对工程全局变量做操作，最好在该区域内 '''' 否则线程同步过程中，非常容易让程序崩溃 '''' Call LeaveCriticalSection(sect) End Sub
Sub OutText2() ''''和过程一类似 Dim i As Long Dim dc As Long Dim s As String dc = GetDC(formhandle) For i = 1 To 100000 s = CStr(i) Call SetBkColor(dc, &HF0F0F0) Call TextOut(dc, 10, 80, s, Len(s)) ''''文本位置改变了 Call Sleep(20) ''''延时改变了 Next Call ReleaseDC(formhandle, dc) '''' Call EnterCriticalSection(sect) '''' Call LeaveCriticalSection(sect) End Sub
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
