大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你的编程思维不太清晰。首先你可以定义一个全局逻辑,b线程里,对txt操作,就等于真,结束代码后就让它等于假。然后a就可以判断逻辑变量来确定b的流程
创新互联专注于常宁网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供常宁营销型网站建设,常宁网站制作、常宁网页设计、常宁网站官网定制、成都微信小程序服务,打造常宁网络公司原创品牌,更为您提供常宁网站排名全网营销落地服务。
这个监控不好弄。
我想的办法就是你写一个触发器,只要有新增的数据,就同时增加到另一个临时表,然后再 VB.NET 里用计时器,每隔几秒就对那个临时表读一次。如果有新增的,就会有提示。
如果不愿写触发器,也可以直接在 VB.NET 里写上语句,将你需要监控的几个字段内容先保存起来,然后再用最新读取的纪录进行比对,这样也行。
以记事本为例
Public Class Form1
Public Sub ShellAndWait(ByVal ProcessPath As String)
Dim objProcess As System.Diagnostics.Process
Try
objProcess = New System.Diagnostics.Process()
objProcess.StartInfo.FileName = ProcessPath
objProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal
objProcess.Start()
objProcess.WaitForExit()
objProcess.Close()
Catch
MessageBox.Show("无法执行文件 " ProcessPath, "错误")
End Try
End Sub
'监视程序就可以了,若果监视别的窗体的话,用SPY++ 找到句柄,配合FindWindowEx,SendMessage根据其属性做
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ShellAndWait("Notepad.exe")
MessageBox.Show("笔记本被关闭后我才会出现")
End Sub
End Class
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FileSystemWatcher1.NotifyFilter = IO.NotifyFilters.DirectoryName Or IO.NotifyFilters.FileName‘监控文件夹和文件。
FileSystemWatcher1.IncludeSubdirectories = True’监控子文件夹
End Sub
Private Sub FileSystemWatcher1_Renamed(sender As Object, e As IO.RenamedEventArgs) Handles FileSystemWatcher1.Renamed
MsgBox(e.FullPath vbCrLf e.Name)
End Sub'捕获新路径
你监控test不就好了,若要排除其他文件夹,IncludeSubdirectories 设为假,用多个FileSystemWatcher就行了,用数组或其他方式创建。