stathread
<STAThread()> Public Shared Sub Main()
If CommFunc.PrevInstance() Then
MsgBox("本程序已经运行。")
Exit Sub
End If
Application.EnableVisualStyles()
Dim config As System.Configuration.Configuration = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
Dim connString As System.Configuration.ConnectionStringsSection = config.ConnectionStrings
If connString.ConnectionStrings("tipdm2008") IsNot Nothing Then
connString.ConnectionStrings("tipdm2008").ConnectionString = ""
End If
connString.SectionInformation.ProtectSection("RsaProtectedConfigurationProvider")
connString.SectionInformation.ForceSave = True
config.Save(ConfigurationSaveMode.Modified)
Dim frmLogin As New FrmLogin
frmLogin.MessageToolSelect = True
frmLogin.LoginType = Thit.TiPDM.Common.Declare.LoginType.TiPDM
frmLogin.ShowDialog()
If frmLogin.DialogResult = Windows.Forms.DialogResult.Cancel Then
Exit Sub
End If
frmLogin.Dispose()
Application.Run(New FrmMain)
End Sub
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步