vb设计自动提醒小程序

　　在学校机房上机的时候，经常会把软盘忘在机房。等再去找的时候，早已“人去楼空”!辛辛苦苦copy的好东东，再也无缘相见!我们何不用vb编一个小程序，到了快下课的时候让它提醒我们带走呢?

　　一、界面设计

　　新建一个标准exe工程在form1上放置三个combo控件，依次设置它们的list属性：combo1为0-23、combo2为00-59、combo3为00。再加入一个timer控件，其interval属性为1000，enabled属性为true 。然后再加一个label控件，caption属性为“提醒时间是：”。最后再加入两个命令按钮 command1和 command2，其caption属性分别为“确定”和“退出”。

　　二、程序代码

private sub form_load　
me.caption = time
end sub
'检查软驱是否有软盘存在
private function floppydiskflagsdrive as string　 as boolean
on error resume next
floppydiskflag = dirsdrive　 <> ″″
end function
'时间到了，检查软驱是否有软盘存在
private sub timer1_timer　
me.caption = time
if time = combo1.text & ″″ & combo2.text & ″″ & combo3.text then
dim flag as boolean
flag = floppydiskflag″a″　
if flag = false then
msgbox ″软驱没有软盘!放心走吧!（最好再检查一下软驱!）″ 16 ″注意″
unload me
else
msgbox ″软驱有软盘!请您及时取出!″ 64 ″注意″
unload me
end if
end if
end sub
private sub command1_click　
me.hide
end sub
private sub command2_click　
unload me
end sub

　　这样一个软盘提醒小程序就做好了!当然，以同样方法我们可以再加编一个光盘提醒小程序。该程序非常简单，可是很实用啊!本程序在windows98/vb6.0环境中通过。

ICP备案编号:粤ICP备06052964号

www.sosof.com

选择显示字体大小

vb设计自动提醒小程序

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准网站致力的规范

www.sosof.com

选择显示字体大小

vb设计自动提醒小程序

shouchang();

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准 网站致力的规范

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

标准网站致力的规范