📄 677.html
字号:
<html> <head> <title>Form 间的讯息传递 & 资料库密码 & 自制控制项</title> </head> <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK=""> <center> <h1>Form 间的讯息传递 & 资料库密码 & 自制控制项</h1> </center><HR><p>Posted by <a href="mailto:eipper@ms14.hinet.net">阿晴</a> on September 26, 1997 at 06:36:10:<p>弟有个三个问题想请教您:<br>1.从一个副程式呼叫一个 Form,然后从 Form传回某项讯息,我要如何在原来的副程式<br> 得知 Form的传回值是多少? <br> 例如: <br> Form1.frm <br> Private Sub Form_Click()<br> Form2.Show <br> Print RetValue ---> 一定会传回 0<br> End Sub <br> <br> Form2.frm<br> Private Command1_Click()<br> RetValue = 1<br> End Sub<p> Private Command2_Click()<br> RetValue = 2<br> End Sub<p> Module1.bas<br> Global RetValue As Integer<br> <br> 程式执行结果想当然尔, Form1 Click 之后一定会先把 Form2 Show出来,然后再回去印 RetValue的值, 然后 RetValue 一定是 0, 问题是 RetValue一定不是在 Form2 印出, 否则就不叫 Form2传值给 Form1了. 而且对于 RetValue 的处理一定不能写在<br>Form2 , 否则假如我在程式里, 有很多地方都呼叫 Form2, 那 Form2 不就挂了!<p> 弟会问这个问题的原因是: <br> 弟做了一个 Form 来模拟 MsgBox , 但是 Command Button 按下去后, 原来的 Form 就收不到 Command Button 传回的值了, 因为原来的 Form 那段呼叫 MsgBox 的副程<br>式已经执行完毕了! <br> Ex1. 一般正常情况<br> Answer = MsgBox("是否要结束程式? ", vbOkCancel) <br> Select Case Answer <br> Case vbOk<br> End<br> Case vbCancel <br> 'Do Nothing<br> End Select<br> Ex2. 弟的情形<br> RetValue = MsgDsp("是否要结束程式? ")<br> ^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^<br> 传 弟用 Form 模拟的 MsgBox <br> 回<br> 值<br> Select Case RetValue ---> 结果这一段会产生错误的结果, 因为在 MsgDsp<br> Case 1 中的 Command Button 还没按 !!!<br> End ** 这一段当然不可能写在 MsgDsp 那个 Form 里<br> Case 2 <br> 'Do Nothing<br> End Select<br> 请问有无解决之道呢??<p>2. 如何由 OpenDatabase 方法开启已设好密码之资料库? <br> 弟之程式片段:<br> 建资料库时: <br> Set Db = Ws.CreateDatabase(App.Path & "\Wcs.Mdb", dbLangGeneral & _<br> ";Pwd=3832198", dbVersion30)<br> 开资料库时:<br> Set Db = OpenDatabase(strDbName, , , "Pwd=3832198") <br> ^^^^^^^^^^^^<br> 结果发生...资料库密码错误的惨剧 !!! <br> 请问开资料库时, 是那里语法错了?<p>3. 如何将 UserControl 的版本降级(自建控制项), 因为弟一时贪玩, 结果编 译多次之后, 我的控制项已升级到 13 版了(真是伤脑筋), 而且那些控制项已经<br>使用在弟的应用程式当中多时矣! 虽然无伤大雅, 但是功能又不是说很强就已经<br>是 13 版了, 比 VB 还多了 8 版, 太夸张了! <br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 677--><!--top: 690--><li><a href="690.html"><b>Re: Form 间的讯息传递 & 资料库密码 & 自制控制项</b></a> 小吴 <i>17:49:04 9/29/97</i>(<!--responses: 690-->0)<ul><!--insert: 690--></ul><!--end: 690--></ul><!--end: 677--><br><HR><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -