VB编程俱乐部
答：这是初学者经常忽略的一个小问题。在打开文件、调用程序时喜欢使用绝对文件路径。其实，只要使用相对路径，就完全可以避免这个问题。在Windows下，某个程序一旦运行，除非特别指定了工作目录，一般该程序文件所在的目录就是工作目录，其他目录可以用工作目录为参照系。例如，上述问题中，程序被安装到了MyWork目录下，那么在MyWork目录下的所有文件就不必用路径全称了，可以直接SndPlaySound（″Beep.wav″）。以此类推，如果要播放 C:\MyWork\Sound\ABC.Wav 文件，就可以SndPlaySound（″Sound\ABC.wav″）。以后无论应用程序安装在何处，都可以避免这一问题。
#1 问：VB5.0生成的Exe文件能不能在一台从没装过VB5.0的机器上运行，如不能应如何做?
答：当然可以。你只要运行VB5带的“应用程序安装向导”就可以了。向导自动把应用程序及其依赖的DLL、OCX、DAO驱动程序等打包，形成一个安装程序。分发这个安装包就一切搞定了。
#1 问：假设表A有一字段B（文本型，8个字符），当我在表中进行输入时超过8个字符，系统就会禁止我输入，这没有什么问题。但当我在VBA中使用DAO编辑这个字段时，我遇到了麻烦。
答：可以通过DAO提供的 Recordset或 TablDef 对象来得到字段B的长度，然后，根据情况把你的值直接赋予它或截断后赋值。例如：
Dim db as Database，rs as Recordset
Dim iSize as Integer，S as String
set db = DBEngine.OpenDatabase（″XXX.mdb″）
set rs = db.OpenRecordset（″TableA″）
iSize = td（″FieldB″）.Size ′ 字段长度′ 下面准备赋值
S = ″ABC中DE国FGEGHG″
set rs = db.OpenRecordset（″TableA″）
rs.Edit
If iSize >= LenB（strconv（S，vbFromUnicode ）） Then
rs（″FieldB″） = S ′ 直接赋值
Else
rs（″FieldB″） = LeftB（strconv（S，vbFromUnicode ），iSize） ＇ 截断赋值
End If
rs.Update
……
请注意，VB或VBA中字符串默认以 vbUnicode 格式保存，所以要转换后再比较运算。请参阅函数StrConv（），参数:vbFromUnicode，vbUnicode，及Byte数组，和以‘B’结尾的函数。
#1 问：我写了个应用程序，第一次进入时想要求用户输入密码，并将密码保存（有什么方法别人看不到）。下次进入时提示输入密码。应如何完成呢？
答：可以把密码保存到 INI文件或注册数据库。一般应用级的用户是不会去看这些密码的。为了防止像你我这样的人观看，比较好的是使用如DES、RC5等加密算法或自行设计一个加密算法，这样才能够达到一个较高的密级。本人设计有一个以 DES 和自制加密算法混合工作的DLL，如果有兴趣，请与我联系。
#1 问：如何生成一个透明窗体？使得可以看到窗体后面的内容？
答：用如下代码可生成透明窗体，若要显示其他信息，可做一个背景透明的图案为窗体背景。
Me.AutoRedraw = True
hBitmap = CreateCompatibleBitmap（Me.hdc， 0， 0）
SelectObject Me.hdc， hBitmap
Me.Refresh
感谢ZhuangYong提供解答
#1 问：在 Access 97 中如何实现代码输入？
答：在Access97中的代码输入解决方案是我见过中的比较好的一种。Accesss97至少提供了两种场合使用的代码输入方式。
其一、在表结构设计窗口，选中指定字段，单击“查阅”标签，改显示控件为组合框或列表框，根据情况选择“行来源”类型为“表/查询”或“值列表”，然后选择代码表或输入候选值即可。这样的设置在“数据表”状态体现最完美：显示代码Name，挑选代码ID列表；其二、在设计Form 时对指定控件做上述设定，其效果稍逊。运行时，输入框中仅可显示代码ID，却无法显示代码Name。
其实，关键是三个要素：1、控件显示的内容；2、和控件相关的数据源的字段；3、代码表。把握好这三者的关系就真正抓住了问题的关键。建议读者看看Delphi 或 C＋＋Builder 的 DBLookup控件，它的解决方法非常好，我希望能看到提供给VB、Access使用的短小精悍的代码输入控件也能做到这一点。