有心人 发表于 2009-5-11 17:34:27

【原创】NewInPutBox 与Inputbox相似

<p><font face="Verdana">我是新来的，现在发一个自做的DLL给大家，希望大家喜欢。</font></p>
<p>这个DLL现在还只能用引用的方法使用。</p>
<p>有空我用马哥的VB_LINK给它做一个函数接口，就可以动态引用了。</p>
<p><font face="Verdana"></font>&nbsp;</p>
<p><font face="Verdana">本DLL的功能是代替vb中的InputBox<br/>可以让你单独输入任意字符串、数字、汉字和全角符号、半角英文和符号。<br/>本功能需要两个参数<br/>XInputBox(Prompt As String, LxType As Long)<br/>Prompt&nbsp;&nbsp;&nbsp; 输入提示。<br/>LXTYPE&nbsp;&nbsp;&nbsp; 输入的数据类型。<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LXTYPE=0&nbsp;&nbsp;&nbsp; 可以是任意字符串<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LXTYPE=1&nbsp;&nbsp;&nbsp; 只能是数字<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LXTYPE=2&nbsp;&nbsp;&nbsp; 只能是汉字和全角符号<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LXTYPE=3&nbsp;&nbsp;&nbsp; 只能是半角英文和符号</font></p>
<p><font face="Verdana">1,先将NewInPutBox.dll拷贝到C:\WINDOWS\system32,然后引用此DLL。</font></p>
<p><font face="Verdana">2,示例<br/>&nbsp; '代码中输入:<br/>&nbsp; dim ff as new types<br/>&nbsp; dim STRS AS STRING<br/>&nbsp; STRS=FF.XInputBox("请输入数字", 1)</font></p>
<p><font face="Verdana">技术有限，多多包涵。如果有好的建议，请指点!<br/>作者:左权<br/>QQ：214190173<br/>邮箱:yxr5_love_xx@qq.com</font></p>

马大哈 发表于 2009-5-12 13:31:35

<p>添加附件后记得先点"上传",不然没有的:)</p>

有心人 发表于 2009-5-12 15:51:33

<p>好的，我可以没有点上传嘛，我现在可以传。</p>

有心人 发表于 2009-5-12 15:56:20

看来我只有重新建一个话题传上来了！
页: [1]
查看完整版本: 【原创】NewInPutBox 与Inputbox相似