主题：提示框问题。。

甜老师，安全问题基本解决。密码文本人工给各个店铺，这样就算反编译了，里面也没有密码文本。代码如下：

BeforeConnectOuterDataSource 事件：

Dim ipFile As String = e.ProjectPath &  "ip.txt"
If e.Name = "VIP数据2" Then
    If Filesys.FileExists(ipFile) Then
        Dim Val2 As  String =  FileSys.ReadAllText(ipFile)
        Dim Val3 As String = DecryptText(Val2,"drw=","vEVg=") '解密
        e.ConnectionString = Val3
    Else
        messagebox.Show("请联系IT部管理员","提示",MessageBoxButtons.Ok, MessageBoxIcon.Information)
        Syscmd.Project.Exit()
    End  If
End  If

现在有几个问题：

 Else
        messagebox.Show("请联系IT部管理员","提示",MessageBoxButtons.Ok, MessageBoxIcon.Information)
        Syscmd.Project.Exit()

 

假如密文不正确的话会弹出  

此主题相关图片如下：密文错误，要怎么设置提示，而不出现这个对话框.jpg


此主题相关图片如下：密文错误，要怎么设置提示，而不出现这个对话框2.jpg

要怎么设置messagebox，而不出现这个有foxtable版本的提示框呢