一个实用的VB屏幕程序本文来自站长httpwwwqqcfcom详细出处参考：httpstudyqqcfcomweb16518547htm在VB50具有面向对象的程序设计思想及可视化的编程方式，可开发出各种多媒体应用程序，颇得软件设计者青睐。笔者最近应用VB50编制了一程序，成功实现了“图文并茂”的屏幕效果，即：屏幕出现用户选定的一幅赏心悦目的图像，在图像下方有一行字幕缓缓地从屏幕右边向左边移动，全部文字移至左边消失后，从右边又平滑拖出字幕，字幕移动过程中既不影响图像的整体效果又能对图像进行提示、说明，使应用程序界面充满“活性”。现将设计的整个过程介绍如下：1创建一个新目标文件Project1，并建立一个窗体Form1。2在Form1上配置一个计时器控件Timer1、标签控件Label1、图像控件Picture1。3各控件属性设置：Timer1的E
abled设置为“True”。用Label1的Fo
t设置屏幕下方循环移动的提示信息字体及大小，ForeColor设置字体颜色，AutoSize设置为True，BackStyle设置为“0－tra
spare
t”。Picture1的AutoSize设置为False，Height设为5435，Width设为8235，Scalemode设置为“3－pixel”。4程序代码清单：PrivateSubForm_Load′设置图像控件Picture1属性，在屏幕显示图像Picture1PictureLoadPicture″CPwi
95Setupbmp″Picture1ForeColorRGB255，10，110Picture1Fo
tItalicTruePicture1Fo
tBoldTruePicture1Top155Picture1Left635′将标签控件Label1的Captio
属性设置为屏幕下方循环移动的提示信息Label1Captio
″江西省黎川县职业中专电脑室设计″Label1LeftWidthLabel1Top5653Timer1I
terval375Form1Wi
dowstate2E
dSubPrivateSubTimer1_TimerIfLabel1Leftlt0－Label1WidthThe
Label1LeftWidthE
dIfLabel1LeftLabel1Left－255E
dSub程序中的图像及移动字幕可依自己喜好灵活设计，以达到最佳效果。若屏幕显示多幅图像，需设置好几个图像控件Picture的屏幕显示位置，分别调用函数LoadPicture″bmp文件名″即可。该程序设计也适用VB30、VB40。本文来自站长httpwwwqqcfcom详细出处参考：httpstudyqqcfcomweb16518547htm
用VB编程检测当前电池使用情况你想知道你的机器当前电池使用情况吗系统电池如电压不足将导致系统时间变慢等后果。所以你应该知道电池现在的状态，如电压不足则应该尽快去更换电池。用系统测试软件可以办到，但如果你没有也没关系，我们可以用VB编程来帮我们找到答案具体做法如下：首先新建一个工程在其FORM1上新建二个COMMAND命令按钮如COMMAND1和COMMAND2再放上二r