【原创】一个NewInPutBox

有心人

<p>&nbsp;</p>
<div id="textstyle_1" style="FONT-SIZE: 9pt; OVERFLOW: hidden; WORD-BREAK: break-all; TEXT-INDENT: 24px; WORD-WRAP: break-word">
<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">技术有限，多多包涵。如果有好的建议，请指点!</font></p>
<p><font face="Verdana">如果大家觉得行，请多多支持！<br/>作者:左权<br/>QQ：214190173<br/>邮箱:yxr5_love_xx@qq.com</font></p></div> pFzGSnOJ.rar (7.1 KB, 下载次数: 16551)

2009-5-12 15:59 上传

点击文件名下载附件
【原创】一个NewInPutBox

<br/>

阿杰

<p>试了下效果还不错</p>

有心人

<p>谢谢！只是有些属性和方法还没有做成与Inputbox一样，在想法子。</p>
<p>&nbsp;</p>

everyone

<p>没必要做得一模一样的接口.</p>
<p>&nbsp;</p>
<p>你这个是给写程序的人用的,给出文档即可;</p>
<p>&nbsp;</p>
<p>如果文档都看不懂,那要么写文档的别写程序了,要么看文档的别写程序了.</p>

有心人

也就是说，现在用不着那样做嘛。

马大哈

<p>不需要做得一模一样的接口.</p>
<p>&nbsp;</p>
<p>你使用的是API方式的调用,不能直接返回字符串.</p>
<p>&nbsp;</p>
<p>想直接返回字符串,需要以ActiveX组件的形式提供,COM接口才支持那样的.</p>

有心人

唉，这就是我觉得VB最大的不方便了。

马大哈

这与VB无关,这是COM接口与API接口的问题