个LABEL控件如LABEL1和LABEL2再装载一个WINDOWSSYSINFOCONTROL50请从工程菜单下部件对话框中选择并装载其NAME为SYSINFO1其他都不变然后输入以下代码程序Optio
Explicit′要求声明所有变量
f－－－－－－－－－－－－－PrivateSubForm_Load′做初始化设置Form1Captio
″检测电池状态演示程序″Comma
d1Captio
″检测电池″Comma
d2Captio
″退出″Label1Captio
″″Label1AutoSizeTrueE
dSub－－－－－－－－－－－－－PrivateSubComma
d1_Click′检测当前电池状态SelectCaseSysI
fo1BatteryStatusCase1Label1Captio
″当前电池状态电池电压足″Case2Label1Captio
″当前电池状态电池电压不足″Case4Label1Captio
″当前电池状态电池快用完了″Case128Label1Captio
″当前电池状态无电池″Case255Label1Captio
″当前电池状态不知名″E
dSelectE
dSub－－－－－－－－－－－－－PrivateSubComma
d2_ClickU
loadMe′结束程序E
dE
dSub运行该程序，不用调用任何的API函数就实现了这个功能。以上程序在中文WINDOWS98，中文VB50专业版中调试通过。本文来自站长httpwwwqqcfcom详细出处参考：httpstudyqqcfcomweb16518540htm
第一步，绘制对象：用函数drawcar画赛车，drawway
画跑道的第
层。第二步，接受控制：Form的KeyPreview属性要设为true，在Form_KeyPress函数中通过改变全局变量cx来控制赛车的位置。第三步，游戏循环：作为即时游戏，必须要有一个Timer，并在其事件Timer1_Timer中绘制所有对象和进行碰撞检测。本例中，绘图部分写在了Timer1_Timer中，碰撞测试放在了test中。……这也是所有即时游戏所共通的框架。当然，我们往往还是根据具体的设计作一些变通，发挥一些技巧……比如这里设计的跑道是随机产生的的，这就要通过一点技巧以便既让玩家感到挑战，又不至于出现不可逾越的难关……下面是全部源代码，窗体上只需放个按钮Comma
d1就行了！
fCo
stD100注释：方格的宽度Co
stbt16shtmltarget_bla
kclassarticleBT3000注释：跑道底部的y坐标Diml122AsI
teger注释：每层跑道左边有几个方块Diml222AsI
teger注释：每层跑道右边有几个方块DimcxAsSi
gle注释：赛车的在x轴的位置PrivateSubComma
d1_ClickcxWidth23D2cyHeightDdrawcarFori1To20l1i0l2i0drawwayiNextiTimer1E
abledTrueE
dSubPrivateSubdrawcarLi
ecxBT100Step3DDBackColorBFLi
ecxDBT200StepDDBackColorBF注释：先擦Li
ecxBT100Step3DDRGB22500BFLi
ecxDBT200StepDDRGB22500BFE
dr