在系统菜单 中 SystemIdle 里面进行数据库连接监听了
Dim ErrMsg As String
Dim Conn As String
If FileSys.FileExists(ProjectPath & "Attachments\config.json") Then
Dim configJson As String = FileSys.ReadAllText(ProjectPath & "Attachments\config.json",Encoding.Default)
Dim cjo As JObject = JObject.Parse(configJson)
If cjo("config")(0) IsNot Nothing Then
If cjo("config")(0)("type") = "database" Then
C & cjo("config")(0)("host").ToString & "," & cjo("config")(0)("port").ToString & "\" & cjo("config")(0)("name").ToString
End If
End If
End If
If Connections.TryConnect(Conn,ErrMsg) = False Then
connbtn.SmallImage = GetImage("soffline.png")
Else
connbtn.SmallImage = GetImage("sonline.png")
End If
[此贴子已经被作者于2022/9/26 15:53:40编辑过]
加好友 
发短信
Post By：2022/9/26 15:12:00 [显示全部帖子]
