📄 1522.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>  <head>    <title>Re: 谢谢!我知道错在哪里了.可是....</title>  </head>  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">    <center>      <h1>Re: 谢谢!我知道错在哪里了.可是....</h1>    </center><HR><p>Posted by <a href="mailto:jason_kang@sampo.com.tw">jason</a> on December 16, 1997 at 21:44:05:<p>In Reply to: <a href="1517.html"><b>这样不行喔!</b></a> posted by 小吴 on December 16, 1997 at 16:46:00:<p><br>: 读取设定值:<br>: 在 Form_Load 中写入下列程式<br>: Left = GetSetting("MyProg", "MyForm", "Left", 0)<br>: Top = GetSetting("MyProg", "MyForm", "Top", 0)<br>: Width = GetSetting("MyProg", "MyForm", "Width", 6000)<br>: Height = GetSetting("MyProg", "MyForm", "Height", 4000)<p>: 存入设定值:<br>: 在 Form_QueryUnload 中:<br>: WindowState = vbNormal<p>: 在 Form_Unload 中<br>: SaveSetting "MyProg", "MyForm", "Left", Left<br>: 以下会写吧....打字很累...<p>谢谢!我知道我错在哪里了<br>结束按钮我只写了一行"end"<br>我是把form_unload里的程式再写一遍还是有更好的方法<br>END 好像不会引发form_unload 事件<br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 1522--><!--top: 1524--><li><a href="1524.html"><b>VB 的程式不要用 End</b></a> 小吴 <i>06:53:28 12/17/97</i>(<!--responses: 1524-->0)<ul><!--insert: 1524--></ul><!--end: 1524--></ul><!--end: 1522--><br><HR><p></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -