[原创]【聚宝瓶】给文件添加试用功能

hhzjxss

<p><font size="4">大家刚开始学VBA的时候，对登录界面和限次功能很感兴趣，为了增加大家对VBA的兴趣，这几天做了个给工作簿增加试用次数功能的东东，希望大家喜欢！</font></p><p></p><p></p><p>&nbsp;[/hide]</p><p>（只是还有一个BUG,文件名输入不正确时，也会打开上一次的文件，一时没想到方法解决，请大家帮忙测试和完善一下！）<br/></p>

[此贴子已经被作者于2008-3-17 8:14:07编辑过]

hhzjxss

<p>刚才发现一个问题，这个东东单独一个工作簿可以使用！</p><p>当我将模块及窗体导入到另一个含有许多代码的工作簿时，提示VBComponent没有定义类型！</p><p>是什么原因？</p>

hhzjxss

<p><font color="#e61a94" size="6">查了帮助文件，还是没解决：</font></p><p><br/>用户定义类型未定义<br/>&nbsp;&nbsp; </p><p>在 Visual Basic 中可以创建用户自己的数据类型，但它们必须先在 Type...End Type 语句中或是在一个注册过的对象库或类型库中定义，这个错误的原因与解决方法如下所示： </p><p>试图以一个未定义的类型来声明变量或参数，或者是指定了一个未知的类或对象名称。 <br/>请在一个模块中使用 Type 语句来定义新的数据类型。若正试图创建一个类的引用，则这个类必须要被工程所见。若程序中要引用一个类，工程中必须有这个指定的类模块。 </p><p>要声明的类型在另一个模块中已经被声明为 Private。 <br/>请在标准模块中定义此类型，这样可以让它成为 Public。 </p><p>这是一个有效的类型，但是定义它的对象库或类型库并没有在 Visual Basic 中注册。 <br/>请显示“引用”对话框，然后选择适当的对象库或类型库。例如，如果不复选“引用”对话框中的 Data Access Object，像 Database、Recordset、TableDef这样一些类型就不能被识别，在代码中引用它们便会产生此错误。 </p><p>详细信息，请选择有问题的项目，并按下 F1 （在Windows中）或HELP（在Macintosh中）键。<br/></p>

[此贴子已经被作者于2008-2-24 13:06:57编辑过]

zgb915

学习!!

hhzjxss

<p>没人下载测试？</p>

lcmphy

我来试一下!

lcmphy

好象要写入Code中的代码,再运行才能成功；直接按说明操作没成功.搞的很好,正在研究中,多谢版主!

hhzjxss

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>jhk1983</i>在2008-2-26 16:02:00的发言：</b><br/><p>好久没来了，在学习CAD，过来看看！</p><p></p></div><p>&nbsp;</p><p>哈哈，你是搞工程的吧，用CAD，我也常用，搞工程设计！</p>

zha131

haohaohaokankanxian