- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何让InputValue置顶 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80178)
-- 发布时间：2016/1/18 9:40:00
-- 如何让InputValue置顶
用户第一次打开项目时，在连接外部数据源之前，会先弹出一个InputValue的对话框要求用户先输入网络类型是外网使用还是内网使用，会出现下面的问题
此主题相关图片如下：网络类型选择.png
如上图“正在打开文件请稍后“那个画面会挡在InputValue对话框的前面，如何让InputValue显示在最前面？
BeforeConnectOuterDataSource事件中用了如下代码
\'---判断C盘根目录下是否有网类型络配置文件,0为内网使用;1为外网使用
Dim netFile As String = "C:\\Net.txt"
If Filesys.FileExists(netFile) = False Then
Dim Val As Integer
InputValue(Val, "网络类型","请正确输入网络类型,只能输入0或1,0为内网使用;1为外网使用") \'输入数值
If Val = 0 OrElse Val = 1 Then
FileSys.WriteAllText("C:\\Net.txt", Val , True)
Else
MessageBox.Show("必须正确指定网络类型,请重新打开系统后再试,0为内网,1为外网!","提示")
System.Diagnostics.Process.GetProcessesByName("Newsource")(0).Kill \'直接结束进程退出
End If
End If
谢谢！
-- 发布时间：2016/1/18 9:51:00
--
全局代码
Public Sub beforeOpenProject()
Do Until ShowAppWindow("模拟测试", 1) = True
application.DoEvents
Loop
End Sub
BeforeOpenProject代码
Dim t1 As New System.Threading.Thread(AddressOf beforeOpenProject)
t1.Start()
\'Dim Val As Date = Date.Today
\'If InputValue(Val, "模拟测试","请输入日期:") Then
\' Output.Show(Val)
\'End If