94.htm

vb功能实例介绍。详细、很好的实例说明。

<p>用VB写一个定时PING某IP的程序 </p>
<p></p>
<p>_作者:[e-mail]</p>
<p></p>
<p>1.你先要在 Form 上放一个 Timer 控制项</p>
<p>2.在 Timer 属性伫设定 interval 的数值，一秒是 1000，十分之一秒就是 100，这样</p>
<p>会算吧。再确定 Timer.enabled=true</p>
<p>3.在 Timer 惟一事件伫这样写</p>
<p>Private Sub Timer1_Timer()</p>
<p>'开始你的 Ping</p>
<p>if '你的 Ping 程式连通' then</p>
<p>'显示绿灯图</p>
<p>else</p>
<p>'显示红灯图</p>
<p>end if</p>
<p>End Sub</p>
<p>4.这样 Timer 就会依你在 interval 属性伫的时间设定，固定去执行 Ping 程式。</p>
<p></p>
<p></p>