以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教窗口问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57549)
--  作者：hbhb
--  发布时间：2014/9/26 14:29:00
--  请教窗口问题
大师：好！请教两个问题：
1、在打开项目后事件中，如果没有注册，运行Syscmd.Project.Exit() 命令项目退出 ，如果我在关闭项目前事件中写了退出前打开一窗口，询问是否退出？而我希望不显示此窗口直接退出，如何搞？
2、运行狐表项目foxdb后，提示没有注册的窗口，怎么藏在界面的底下，关掉项目文件窗口后才显示出来，如何显示在上面？
--  作者：Bin
--  发布时间：2014/9/26 14:37:00
--  
1.使用一个全局变量,在关闭项目事件中判断这个全局变量,再决定是否打开窗口.
2.设置窗口的TOPMOST属性为True http://www.foxtable.com/help/topics/0723.htm
--  作者：有点甜
--  发布时间：2014/9/26 14:41:00
--  

1、

 

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("Foxtable")
For Each p As System.Diagnostics.Process In ps
    If p.MainWindowTitle.Contains("管理项目68") Then
        p.kill
    End If
Next
--  作者：有点甜
--  发布时间：2014/9/26 14:43:00
--  

2、替换原来的msgbox

 

MessageBox.Show("提示窗口", "提示",MessageBoxButtons.Ok,MessageBoxIcon.Warning,0, Windows.forms.MessageBoxOptions.ServiceNotification)
--  作者：hbhb
--  发布时间：2014/9/26 15:37:00
--  
提示注册的窗口就不出了？不知什么意思？
--  作者：有点甜
--  发布时间：2014/9/26 15:39:00
--  
 单独写打开注册窗口出现吗？是不是你的判断没有写对？
--  作者：hbhb
--  发布时间：2014/9/26 16:33:00
--  
关掉项目文件窗口后，显示出来？
--  作者：有点甜
--  发布时间：2014/9/26 16:36:00
--  
以下是引用hbhb在2014-9-26 16:33:00的发言：
关掉项目文件窗口后，显示出来？

 

什么意思？你现在什么问题？代码什么的都弄出来。
--  作者：hbhb
--  发布时间：2014/9/26 17:04:00
--  

Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
Dim Ok As Boolean
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then \'如果注册码正确
    OK = True
Else
    If n > 30 Then
        Forms("注册").Open()
        Code = GetConfigValue("Register" & ComputerId,"")
        If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then \'如果注册码正确
            OK = True
        End If
    End If
    If n > 60 AndAlso Ok = False Then
        Messagebox.Show("您正在使用的产品已经超出试用次数!")
        Syscmd.Project.Exit()
    End If
End If
n = n + 1
SaveConfigValue("Count",n)



为何 打开项目后 ，Forms("注册")窗口 显示在项目窗口下面，关掉项目窗口显示出来？
--  作者：有点甜
--  发布时间：2014/9/26 17:12:00
--  
 你做的项目发上来看看。