主题：程序注册

我在AfterOpenProject事件中写了如下代码;

怎么运行后弹出是否注册时，单击是按钮后弹出的是“登录窗体”而不是“注册窗体”呢？

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:登录界面.rar

系统注册窗体->属性->窗口类型->模式

 老师我怎么实现

（1）当客户在使用0-15次以内时，程序不弹出任何提示，直接弹出系统登录窗体客户惊醒操作。

（2）当客户在使用15-30次以内时，客户每次登录程序时都弹出一个注册提示框让客户注册，这时客户可以选择注册软件，注册成功后，注册登录程序时就正常进入登录系统窗体客户进行操作，如果客户选择取消注册或关闭窗体时则进入系统登录窗体进行操作，但以后每次登录系统时，都会提示注册提示框。让客户注册。

（3）当客户在使用超过30次时，客户每次登录程序时都弹出一个注册提示框让客户注册，这时客户只能选择注册软件，注册成功后，才能正常进入登录系统窗体客户进行操作。如果客户选择取消注册或关闭窗体时则直接关闭程序不进行任何操作。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:登录界面.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:登录界面.table

老师一般把客户注册的公司名称、手机、住址等信息储存到哪呢。我想实现，当一个客户登录程序后始终在主窗体界面的左上角显示如果是未注册版本将显示“版本号”+“试用版”，如果是已经注册的版本将显示“版本号”+“注册时的公司名称”

可以单独做一个表存放数据；也可以把信息存放在注册表里。

 

登陆之后，读取表格/注册表的信息，设置进去。

登录后怎么判断软件是否已注册呢？

Dim Code As String =Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","Register" & HardDiskID,"")
If Code > "" AndAlso DecryptText(Code,"acbd","bad") = HardDiskID Then '如果注册码正确
    msgbox("注册了")
End If

读取表格中的客户信息在"AfterOpenProject"事件中读取可以吗？只要是已经注册了的软件就读取这些信息赋值给主窗体中“label”控件上，未注册的软件就将“试用版本”信息赋值给主窗体中“label”控件上。这样可行吗？

你在什么地方获取都可以，如果要给主窗口label赋值，只能写在主窗口的AfterLoad事件里。