在AfterOpenProject事件中
BaseMainForm.Visible = True
Dim sdt As Date = Date.Now
While Date.Now < sdt.AddSeconds(5) '5秒后
Application.DoEvents
End While
代码之前写了如下代码：后怎么提醒窗体又有延迟了呢？
'用户注册信息
Dim Result1 As DialogResult
Dim dr1 As Table = Tables("注册用户信息表")
Dim xm As String=Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "用户姓名","")
Dim mc As String=Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "公司名称","")
If xm = "" Or mc = "" Then
Return
ElseIf dr1.Rows.Count=0 And xm > "" And mc > ""Then
Dim dr As Row = dr1.AddNew
dr("用户姓名") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "用户姓名" ,"")
dr("联系电话") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "联系电话" ,"")
dr("公司名称") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "公司名称" ,"")
dr("公司地址") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","公司地址" ,"")
ElseIf ( dr1.Rows.Count>0 And xm <> dr1.Current("用户姓名")) Or (dr1.Rows.Count>0 And mc<> dr1.Current ("公司名称")) Then
dr1.Current("用户姓名")= Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "用户姓名" ,"")
dr1.Current ("联系电话") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "联系电话" ,"")
dr1.Current ("公司名称") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "公司名称" ,"")
dr1.Current ("公司地址") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","公司地址" ,"")
If Forms("主窗体").Opened Then
Forms("主窗体").Close
Forms("主窗体").Open
End If
Else
Return
End If
如果把以上用户注册信息代码删除后提出提醒窗体就没有延迟了但关闭程序后就弹出错误框如下：
此主题相关图片如下：458.jpg
[此贴子已经被作者于2017/11/10 23:54:28编辑过]
加好友 
发短信
Post By：2017/10/30 9:12:00 [只看该作者]
