VB编程俱乐部问答
2006-02-27 11:53:37 来源：WEB开发网核心提示：问：我在学习VB过程中遇到一个问题，如源代码：SndPlaySound(″c:\MyWork\beep.wav″)在制成安装盘后，VB编程俱乐部问答，安装到其它机器中不同目录下就不能执行，必须安装到C:\MyWork下才能执行，建议读者看看Delphi或C＋＋Builder的DBLookup控件，它的解决方法非常好，怎
问：我在学习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使用的短小精悍的代码输入控件也能做到这一点。->
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使用的短小精悍的代码输入控件也能做到这一点。->
中查找“VB编程俱乐部问答”更多相关内容
中查找“VB编程俱乐部问答”更多相关内容更多精彩
赞助商链接
