以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  系统启动后显示的画面,勾选下次不再显示怎么操作  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=133923)

--  作者:yfy13338431925
--  发布时间:2019/4/23 16:10:00
--  系统启动后显示的画面,勾选下次不再显示怎么操作

图片点击可在新窗口打开查看此主题相关图片如下:图片4.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2019/4/23 19:30:00
--  

保存设置

 

http://www.foxtable.com/webhelp/scr/1544.htm

 


--  作者:yfy13338431925
--  发布时间:2019/4/23 21:53:00
--  

甜老师,我是这样变通写的,虽然能实现功能,但感觉很土,能不能帮我改得更专业

 

 

Forms("窗口1").open()
Dim n As Integer
Dim r As WinForm.CheckBox = Forms("窗口1").Controls("CheckBox1")
If r.checked = True
n=2
 End If
n = GetConfigValue("Count",1) \'假定保存试用次数的设置名称为Count
 If n >1 Then
    Forms("窗口1").Close()
 Else
     n = n + 1
     SaveConfigValue("Count",n)
End If


--  作者:有点蓝
--  发布时间:2019/4/23 22:32:00
--  
已经很专业了,不要妄自菲薄