vb 更改注册表GetSetting的用法

来源：百度知道 编辑：UC知道 时间：2024/07/03 08:47:29
我的vb想做这样的东西，首先有个窗体c1是个判断窗体，c2是个注册窗体（需要输入注册号才能进入正式版的那个窗体），c3是个放入软件正式版的窗体。如果第一次注册的话，先通过c2窗体输入注册码，点击确定进入c3，第二次进入软件我想就直接进入到c3窗体，我的方法如下：
在c2窗体中有如下代码if（注册成功） then
hasRegister = GetSetting("MyApp", "set", "ornot", 111111)
SaveSetting "MyApp", "set", "trytimes", hasRegister
c3.show
然后想在c1窗体中加入代码就是判断注册表中ornot存储的信息是“111111”就转到c3，最好能直接转到不要闪屏（就是窗口闪一下才到c3），否则的话就打开的是c2。

2个窗体
from1,提示注册
from2,正式使用

from2的form_load过程,伪代码如下:
Me.Hide '隐藏本窗体
getsetting '读取注册表
if 没有注册 then
from1.show 1 '模式窗体显示,注册窗体(如果注册成功就显示form2)
else
Me.Show '显示本窗体,直接显示,不存在闪的问题
end if