首页 > > 程序设计 > VB >

VB编程俱乐部问答

2018-06-17 17:12:48来源：未知阅读 ()

问：我在学习VB过程中遇到一个问题，如源代码：
　　SndPlaySound(″c:\MyWork\beep.wav″)
　　在制成安装盘后，安装到其它机器中不同目录下就不能执行，必须安装到C:\MyWork下才能执行。怎样在源代码中识别，或有更好的办法。
答：这是初学者经常忽略的一个小问题。在打开文件、调用程序时喜欢使用绝对文件路径。其实，只要使用相对路径，就完全可以避免这个问题。在Windows下，某个程序一旦运行，除非特别指定了工作目录，一般该程序文件所在的目录就是工作目录，其他目录可以用工作目录为参照系。例如，上述问题中，程序被安装到了MyWork目录下，那么在MyWork目录下的所有文件就不必用路径全称了，可以直接SndPlaySound(″Beep.wav″)。以此类推，如果要播放C:\MyWork\Sound\ABC.Wav文件，就可以SndPlaySound(″Sound\ABC.wav″)。以后无论应用程序安装在何处，都可以避免这一问题。

问：VB5.0生成的Exe文件能不能在一台从没装过VB5.0的机器上运行，如不能应如何做?
答：当然可以。你只要运行VB5带的“应用程序安装向导”就可以了。向导自动把应用程序及其依赖的DLL、OCX、DAO驱动程序等打包，形成一个安装程序。分发这个安装包就一切搞定了。

问：假设表A有一字段B(文本型，8个字符），当我在表中进行输入时超过8个字符，系统就会禁止我输入，这没有什么问题。但当我在VBA中使用DAO编辑这个字段时，我遇到了麻烦。
答：可以通过DAO提供的Recordset或TablDef对象来得到字段B的长度，然后，根据情况把你的值直接赋予它或截断后赋值。例如：
　　DimdbasDatabase,rsasRecordset
　　DimiSizeasInteger,SasString
　　setdb=DBEngine.OpenDatabase(″XXX.mdb″)
　　setrs=db.OpenRecordset(″TableA″)
　　iSize=td(″FieldB″).Size′字段长度
　　……
　　′下面准备赋值
　　S=″ABC中DE国FGEGHG″
　　setrs=db.OpenRecordset(″TableA″)
　　rs.Edit
　　IfiSize>=LenB(strconv(S,vbFromUnicode))Then
　　rs(″FieldB″)=S′直接赋值
　　Else
　　rs(″FieldB″)=LeftB(strconv(S,vbFromUnicode),iSize)'截断赋值
　　EndIf
　　rs.Update
　　……
　　请注意，VB或VBA中字符串默认以vbUnicode格式保存，所以要转换后再比较运算。请参阅函数StrConv()，参数:vbFromUnicode,vbUnicode，及Byte数组,和以‘B'结尾的函数。

问：我写了个应用程序，第一次进入时想要求用户输入密码，并将密码保存（有什么方法别人看不到）。下次进入时提示输入密码。应如何完成呢？
答：可以把密码保存到INI文件或注册数据库。一般应用级的用户是不会去看这些密码的。为了防止像你我这样的人观看，比较好的是使用如DES、RC5等加密算法或自行设计一个加密算法，这样才能够达到一个较高的密级。本人设计有一个以DES和自制加密算法混合工作的DLL，如果有兴趣，请与我联系。

问：如何生成一个透明窗体？使得可以看到窗体后面的内容？
答：用如下代码可生成透明窗体，若要显示其他信息，可做一个背景透明的图案为窗体背景。
　　Me.AutoRedraw=True
　　hBitmap=CreateCompatibleBitmap(Me.hdc,0,0)
　　SelectObjectMe.hdc,hBitmap
　　Me.Refresh
　　感谢ZhuangYong提供解答

问：在Access97中如何实现代码输入？　
答：在Access97中的代码输入解决方案是我见过中的比较好的一种。Accesss97至少提供了两种场合使用的代码输入方式。
　　其一、在表结构设计窗口，选中指定字段，单击“查阅”标签，改显示控件为组合框或列表框，根据情况选择“行来源”类型为“表/查询”或“值列表”，然后选择代码表或输入候选值即可。这样的设置在“数据表”状态体现最完美：显示代码Name，挑选代码ID列表；其二、在设计Form时对指定控件做上述设定，其效果稍逊。运行时，输入框中仅可显示代码ID，却无法显示代码Name。
　　其实，关键是三个要素：1、控件显示的内容；2、和控件相关的数据源的字段；3、代码表。把握好这三者的关系就真正抓住了问题的关键。建议读者看看Delphi或C＋＋Builder的DBLookup控件，它的解决方法非常好，我希望能看到提供给VB、Access使用的短小精悍的代码输入控件也能做到这一点。->

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有