一个实用的VB屏幕程序

2016-02-19 20:14 20 1 收藏

下面，图老师小编带您去了解一下一个实用的VB屏幕程序，生活就是不断的发现新事物，get新技能~

【 tulaoshi.com - 编程语言】

在VB5.0具有面向对象的程序设计思想及可视化的编程方式，可开发出各种多媒体应用程序，颇得软件设计者青睐。笔者最近应用VB5.0编制了一程序，成功实现了“图文并茂”的屏幕效果，即：屏幕出现用户选定的一幅赏心悦目的图像，在图像下方有一行字幕缓缓地从屏幕右边向左边移动，全部文字移至左边消失后，从右边又平滑拖出字幕，字幕移动过程中既不影响图像的整体效果又能对图像进行提示、说明，使应用程序界面充满“活性”。
　　现将设计的整个过程介绍如下：
　　(1)创建一个新目标文件(Project1)，并建立一个窗体Form1。
　　(2)在Form1上配置一个计时器控件Timer1、标签控件Label1、图像控件Picture1。
　　(3)各控件属性设置：
　　Timer1的Enabled设置为“True”。
　　用Label1的Font设置屏幕下方循环移动的提示信息字体及大小，ForeColor设置字体颜色，AutoSize设置为True，BackStyle设置为“0－transparent”。
　　Picture1的AutoSize设置为False，Height设为5435，Width设为8235，Scalemode设置为“3－pixel”。
　　(4)程序代码清单：
　　PrivateSubForm_Load()
　　′设置图像控件Picture1属性，在屏幕显示图像Picture1Picture=LoadPicture(″C:Pwin95Setup.bmp″)Picture1ForeColor=RGB(255，10，110)Picture1FontItalic=TruePicture1FontBold=TruePicture1Top=155Picture1Left=635′将标签控件Label1的Caption属性设置为屏幕下方循环移动的提示信息Label1Caption=″江西省黎川县职业中专电脑室设计″Label1Left=WidthLabel1Top=5653Timer1Interval=375Form1Windowstate=2EndSubPrivateSubTimer1_Timer()IfLabel1Left<0－Label1WidthThenLabel1Left=WidthEndIfLabel1Left=Label1Left－255EndSub程序中的图像及移动字幕可依自己喜好灵活设计，以达到最佳效果。若屏幕显示多幅图像，需设置好几个图像控件Picture的屏幕显示位置，分别调用函数LoadPicture(″.bmp文件名″)即可。该程序设计也适用VB3.0、VB4.0。->

来源:http://www.tulaoshi.com/n/20160219/1623099.html

看过《一个实用的VB屏幕程序》的人还看了以下文章更多>>

用C#写的一个简单屏幕保护程序

ScreenSaver.cs using System;using System.Windows.Forms; namespace ScreenSaver{ public class DotNETScreenSaver { [STAThread] static void Main(string[] args) { if (args.Length > 0) { if (args[0].ToLower().Trim().Substring(0,2) == "/c") { MessageBox.Show("This Screen Saver has no options you can set."...

一个用VB5.0实现的鼠标绘图程序

标签：编程语言网络编程

摘要:本文给出了一个用VB5.0实现的鼠标绘图程序,对程序的主要功能及实现细节作了详细说明,并给出了部分源程序. 关键词:VB5.0,可视化程序设计 1.引言 MicroSoft公司推出的新一代可视化程序设计语言VB5.0以其功能强大和简单易学而深受广大程序设计人员的喜爱,人们用它开发出了许多绚丽多彩的应用程序,可以这样说,VB5.0将成为最流...

用VB设计更换屏幕保护的程序

标签：编程语言网络编程

制作一个本企业的屏幕保护，在客户运行本企业的应用软件的时候，为客户更改屏幕保护，是个广告宣传的好办法。有很多朋友提出这个问题，现解答如下：要更换屏幕保护，首先得做好一个屏幕保护(scr文件)，本例以工程1.scr这个文件为例。由于windows是把屏幕保护文件存放在system下，但记录屏幕保护文件位置的文件却是windows目录下的system.in...

防止同一个程序多次运行 [VB.NET]

防止同一个程序多次运行。 '*****************方法一：防止程序多次打开*****************' 函数名： IsInstanceRunning ' 功能：判断工程是否已运行 ' 参数：无 ' 返回值： True 已运行 False 未运行 '******************************************************* Public Function IsInstanceRunning() As Boolean Dim current As Process ...

用VB 5.0设计屏幕保护程序

标签：编程语言网络编程

使用Visual Basic 5.0很容易建立屏幕保护程序。实际上任何VB应用程序都可以作为屏幕保护程序来运行，只是有的程序更适于作为屏幕保护程序。要想使自己的应用程序成为Windows环境中屏幕保护程序，需要将该程序作为屏幕保护程序来编译。具体方法是：从File 菜单上选定Make EXE File，在Make EXE File对话框中作以下改动：不再建立带扩展名为E...

查看更多精彩>>