一個實用的VB屏幕程序

2019-11-18 17:29:48

字體：大中小

來源：轉載

供稿：網友

在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:/Pwin95/Setup.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。->

上一篇：如何在VB中實現繪圖區的大十字光標

下一篇：趣味撞球--VB5應用程序一例