📄 ba6.htm
字号:
<HTML>
<HEAD>
<TITLE>用VisualBasic编制定时存盘程序</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
</head>
<p align="center"><script src="../../1.js"></script></a>
<BODY topMargin=4 vLink=#0000ff>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD height="52">
<DIV align=center>
<CENTER>
<table border=0 cellpadding=0 cellspacing=0 width=679 align="center">
<tbody>
<tr>
<td width=200 height="59">
</TD></TR><!--msnavigation--></TBODY></TABLE>
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tbody>
<tr><!--msnavigation--><td valign=top height="235">
<div align=center>
<table border=1 bordercolor=#b9d9ff cellpadding=0 cellspacing=0
class=table width=755>
<center>
<tr>
<td width="100%" height="3">
<div align="center"> <strong><font color="red"><strong><b><font color="#000000">用Visual
Basic编制定时存盘程序</font></b></strong></font></strong></span></div>
</td>
</tr>
<tr>
<td
width="100%" class="unnamed1" height="247">
<div align="left">
<p align="center"><font color="red"><strong><b></b></strong></font></p>
<p align="right">转载自《电脑报》 (文/)</p>
<p class="font"><span class="smallFont"> 我们知道，Word等软件具有定时存盘功能，隔一段时间就自动存盘，十分方便。可我们常用的“记事本”程序就没有此功能，其实用VB实现此功能十分简单，不出5分钟就可以搞定，不信试试看。<br>
记事本中用Alt＋F打开“文件”菜单，按“S”键保存，我们只要用VB的Sendkeys语句定时将以上二键送出就完成了。<br>
在VB中建一窗体form1,内加一时间控件timer1,程序实现每5分钟保存一次文件，代码如下：<br>
Dim i As Integer<br>
Private Sub Form_Load()<br>
i = 0 '计数器初值<br>
returnvalue=Shell("notepad
.exe", 3) '记事本窗体最大化<br>
AppActivat = returnvalue '激活记事本<br>
Timer1.Interval = 1000<br>
'定时器timer事件的时间间隔约1秒<br>
Form1.WindowState = 1 'form窗体最小化<br>
Timer1.Enabled = True '启动定时器<br>
End Sub<br>
Private Sub Timer1_Timer()<br>
i = i ＋ 1 '计数器加一<br>
If i = 300 Then<br>
'约5分钟保存一次,可酌情'改变<br>
i = 0 '计数器清零<br>
SendKeys "％(F)", True '送出Alt＋F键<br>
SendKeys "S", True '送出S键<br>
End If<br>
End Sub<br>
将窗体及工程均取名为note并生成note.exe文件，以后使用记事本时运行note就可以了。怎么样，是不是5分钟不到？</span>
<p align="center"> </p>
</div>
</td>
</tr>
</center>
<tr>
<td width="100%" class="unnamed1">
<p align=right><a href="ba5.htm">（上一页）</a>---<a href="ba7.htm">（下一页）</a></p>
</td>
</tr>
<tr>
<td width="100%" class="unnamed1">
</div>
</td>
</tr>
<!--msnavigation--></tbody>
</table>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -