ring Label2.Caption Press Begin Watch dvbv :363000:64:6875 vIndex 1 mpgs1 D:VLC086vlc.exe -vvv mpgs2 --repeat --sout-all --sout-spu--soutduplicatedststdaccessudpmuxtsdst224.1.2.3:850 Text3 未启动将造成股票不更新 openFlag 0 counterStop 0 counterUpdate 0 ss d:
vfp98
vfp6 d:shdbft.prg ss d:shdbfdbf.bat LabelOpenFlag 0 LabelUpdate 0End SubPrivate Sub Command1_Click Dim watchPath As String Dim watchStatus As Long watchPath f:dbfsh terminateFlag False Command1.Enabled False Label2.Caption Using Explorer and Notepad create modify rename delete or change theattributes of a text file in the watched directory. get the first file text attributes to the listbox if any WatchChangeAction watchPath show a msgbox to indicate the watch is starting MsgBox Beginning watching of folder watchPath .. press OK create a watched directory hWatched WatchCreatewatchPath FILE_NOTIFY_FLAGS poll the watched folder watchStatus WatchDirectoryhWatched 100 if WatchDirectory exited with watchStatus 0 then there was a change in the folder. If watchStatus 0 Then update the listbox for the first file found in the folder and indicate a change took place. WatchChangeAction watchPath MsgBox The watched directory has been changed. Resuming watch... Call DoRun openFlag 1 LabelOpenFlag 1 perform actions this is where youd actually put code to perform a task based on the folder changing. now go into a second loop this time calling the FindNextChangeNotification API again exiting if watchStatus indicates the terminate flag was set Do watchStatus WatchResumehWatched 100 If watchStatus -1 Then watchStatus must have exited with the terminate flag MsgBox Watching has been terminated for watchPath Else WatchChangeAction watchPath MsgBox The watched directory has been changed again. perform actions this is where youd actually put code to perform a task based on the folder changing. Call DoRun openFlag 1 LabelOpenFlag 1 End If Loop While watchStatus 0 Else watchStatus must have exited with the terminate flag MsgBox Watching has been terminated for watchPath End IfEnd SubPrivate Sub Command2_Click clean up by deleting the handle to the watched directory Call WatchDeletehWatched hWatched 0 Command1.Enabled True Label2.Caption Press Begin WatchEnd SubPrivate Sub Command3_Click If hWatched 0 Then Call WatchDeletehWatched Unload MeEnd SubPrivate Sub TimerStop_Timer counterStop counterStop 1 If counterStop 30 Then counterStop 0 openFlag 0 LabelOpenFlag 0 End IfEnd SubPrivate Sub TimerUpdate_Timer If openFlag 0 Then Exit Sub counterUpdate counterUpdate 1 LabelUpdate counterUpdate If counterUpdate 11 Then Exit Sub counterUpdate 0 调用程序处理 FileCopyEx f:dbfshow2003.dbf d:dbftempshow2003.dbf FileCopyEx f:dbfsjshq.dbf d:dbftempsjshq.dbf FileCopyEx f:dbfsjsxx.dbf d:dbftempsjsxx.dbf FileCopyEx f:dbfsjsxxn.dbf d:dbftempsjsxxn.dbf FileCopyEx f:dbfsjszs.dbf d:dbftempsjszs.dbf i Shellss vbNormalFocus i Shellss vbMinimizedNoFocus DoEventsEnd Sub附 2 处理上证和深证数据库文件附 3 运行界面
上一篇:
大学生创新训练计划项目申报表
下一篇:
女人七种行为逼男人想离婚