Foxtable(狐表)用户栏目专家坐堂 → 如何让InputValue置顶


  共有1831人关注过本帖树形打印复制链接

主题:如何让InputValue置顶

帅哥哟,离线,有人找我吗?
happyft
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1916 积分:17158 威望:0 精华:0 注册:2014/7/29 19:09:00
如何让InputValue置顶  发帖心情 Post By:2016/1/18 9:40:00 [显示全部帖子]

用户第一次打开项目时,在连接外部数据源之前,会先弹出一个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

谢谢!

 回到顶部