李興霞

摘要：程序設(shè)計過程中經(jīng)常需要動態(tài)顯示文字和圖片，文章對這類問題進(jìn)行歸類研究，采用VB6.0程序設(shè)計語言，分別實現(xiàn)“字符串的動態(tài)顯示”“字符串的水平移動”“圖片按比例放大”“圖片移動”和“圖片的徐徐展開”等功能，實現(xiàn)的原理簡單、技巧較高，具有一定的實用價值。

關(guān)鍵詞：動態(tài)顯示;時間控件;圖像控件

中圖分類號：TP37 ? ? ? 文獻(xiàn)標(biāo)識碼：A

文章編號：1009-3044（2022）02-0098-02

使用VB6.0實現(xiàn)文字和圖片的動態(tài)顯示，需要用到三個控件，分別為時間控件（timer）、標(biāo)簽控件（label）和圖像控件（image）[1]。時間控件有兩個重要屬性Enabled和Interval，時間間隔的單位是千分之一秒，在給定的較短的時間間隔執(zhí)行時間事件，對字符串或圖片在窗體上輸出，從而實現(xiàn)動態(tài)顯示效果。屬性Enabled為True時，啟動時間控件;屬性Enabled為False時，終止時間控件。要文字在屏幕水平移動，用標(biāo)簽控件可以很好地解決問題。顯示圖片有兩個控件可選，分別為圖片控件（PictureBox）和圖像控件，以下采用圖像控件，主要是由于圖像控件有獨特的Stretch屬性，該屬性為True可使圖像大小適合圖像控件大小，圖片可伸縮，更容易編寫程序[2]。

1 字符串的動態(tài)顯示

對于某個字符串，設(shè)定顯示位置顯示第1個漢字，間隔某個時間后，設(shè)定顯示位置顯示第2個漢字，依次重復(fù)直到字符串最后一個漢字顯示完成為止[3]。在顯示漢字之前，可設(shè)定窗體的前景顏色（輸出漢字的顏色），還可設(shè)置窗體上輸出的字體類型和字體大小[4]。

本實例用到timer控件，初始設(shè)置屬性如下：

Timer1.Enabled=True

Timer1.interval=100

根據(jù)不同的需要，可調(diào)整時間間隔，改寫程序也可實現(xiàn)縱向顯示，橫向顯示的具體參考程序如下：

Dim a As String

Dim i， m， x， y As Integer

Private Sub Form_Load（）

x =0

y = 2000 ? ? ? ? ? ? ? ? ? ? ? ? ? ?'x，y第1個漢字的顯示位置

Form1.ForeColor = RGB（0， 0， 255） ? ?'設(shè)置前景為藍(lán)色

Form1.Font = "楷體" ? ? ? ? ? ? ? ? '設(shè)置輸出為楷體

Form1.FontSize = 40 ? ? ? ? ? ? ? ? '設(shè)置字號為40

a = "電腦知識與技術(shù)"

m = Len（a） ? ? ? ? ? ? ? ? ? ? ? ? ?'m為漢字個數(shù)

i = 1

End Sub

Private Sub Timer1_Timer（）

Form1.CurrentX = x + （i - 1） * 800 ?'計算顯示漢字位置

Print Mid$（a， i， 1）; ? ? ? ? ? ? ? ?'輸出第i個漢字

If i = m Then

Timer1.Enabled = False ? ? ? ? ? ? '輸出最后一個漢字后，時間控件停止工作

Else

i = i + 1

End If

End Sub

2 字符串的水平移動

字符串水平移動用到標(biāo)簽（label）和時間控件，標(biāo)簽的left和top屬性確定標(biāo)簽的左上角位置，通過增加標(biāo)簽的left值，保證標(biāo)簽的top值不變，就能使標(biāo)簽水平右移。Form_Load過程段進(jìn)行標(biāo)簽的初始化，調(diào)整標(biāo)簽的大小使其能夠正常顯示[5]。設(shè)置Timer1.interval設(shè)為200，每次執(zhí)行時間事件修改標(biāo)簽的left和top值，時間間隔設(shè)置越短，字符串移動越快，可根據(jù)需要進(jìn)行調(diào)整，實例參考程序如下：

Dim a As String

Dim i， m， ?x， y As Integer

Private Sub Form_Load（）

x = 0

y = 2000 ? ? ? ? ? ? ? ? ? ? ? ? ? ?'x，y字符串的初始顯示位置

Label1.Left = x

Label1.Top = y

Label1.ForeColor = RGB（0， 0， 255） ? '設(shè)置標(biāo)簽前景為藍(lán)色

Label1.Font = "楷體" ?'設(shè)置標(biāo)簽文字輸出為楷體

Label1.FontSize = 40 ? '設(shè)置標(biāo)簽文字字號為40

Label1.Caption = "電腦知識與技術(shù)"

m = 40 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?'m為水平移動次數(shù)

i = 1

End Sub

Private Sub Timer1_Timer（）

Label1.Left = x ? ? ? ? ? ? ? ? ? ? '設(shè)置標(biāo)簽移動的新位置

Label1.Top = y

If i = m Then

Timer1.Enabled = False ? ? '移動次數(shù)完成，時間控件停止工作

Else

i = i + 1

End If

x = x + 200 ? ? ? ? ? ? ? ? ? ? ? ? '水平右移增量為200

End Sub

3 圖片按比例放大

本實例用到圖像控件（image）和時間控件，image1的Stretch屬性設(shè)為True，調(diào)整好圖片的大小，用image1的picture屬性選擇圖片，初始時Timer1.interval設(shè)為200，每次執(zhí)行時間事件按比例調(diào)整image1的寬度和高度，從而實現(xiàn)圖片的放大。圖片放大和縮小還有一種方式，放大時image1的寬度和高度乘以大于1的系數(shù)比如1.1，縮小時image1的寬度和高度乘以小于1的系數(shù)比如0.9。實例參考程序如下：

Dim s As Integer

Private Sub Form_Load（）

s = 50 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?'s為放大的次數(shù)

End Sub

Private Sub Timer1_Timer（）

Dim k As Single

s = s - 1

If s = 0 Then

Timer1.Enabled = False

End If

k = Image1.Width / Image1.Height ?   ? ?'k為圖片寬度與高度比

Image1.Width = Image1.Width + 100 * k ? '圖片寬度增加100*K，保證圖片的比例

Image1.Height = Image1.Width + 100 ? ? ?'圖片高度增加100

End Sub

4 圖片移動

圖片移動用到圖像控件（image）和時間控件，image1的Stretch屬性設(shè)為True，調(diào)整好圖片的大小，用image1的picture屬性選擇圖片，初始時Timer1.interval設(shè)為100，每次時間事件用move方法把image1移動到新的位置或直接修改image1的左上角坐標(biāo)，從而實現(xiàn)image1的移動[6]。實例參考程序如下：

Dim s As Integer

Private Sub Form_Load（）

s = 50 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?'s為移動圖片的次數(shù)

End Sub

Private Sub Timer1_Timer（）

s = s - 1

If s = 0 Then

Timer1.Enabled = False

End If

x = Image1.Left + 50 ? ? ? ?   ? ? ?'x，y為圖片新的位置坐標(biāo)

y = Image1.Top + 50

Image1.Left = x ? ? ? ? ? ? ? ? ? ? '設(shè)置圖片新的位置

Image1.Top = y ? ? ?'Image1.Move x， y也可實現(xiàn)這兩句功能

End Sub

5 圖片的徐徐展開

圖片的徐徐展開用到圖像控件（image）和時間控件，初始時Timer1.interval設(shè)為100，調(diào)整好圖片的大小，用image1的picture屬性選擇圖片，每次時間事件把image1的Width屬性值逐漸增大，可看到的畫面逐漸展現(xiàn)，從而實現(xiàn)圖片徐徐展開的效果。當(dāng)image1的Stretch設(shè)為True時，圖片橫向是壓縮的，圖片展開就好像把橫向壓縮的圖片橫向拉伸;當(dāng)image1的Stretch設(shè)為False時，圖片展開就好像把一幅遮擋的畫逐漸展開，實現(xiàn)不同的展開效果。實例參考程序如下：

Dim s As Integer

Private Sub Form_Load（）

Image1.Width = 100

s = 100

End Sub

Private Sub Timer1_Timer（）

s = s - 1

If s = 0 Then

Timer1.Enabled = False

End If

Image1.Width = Image1.Width + 100

End Sub

6 結(jié)束語

本文給出了文字和圖片動態(tài)顯示實用技術(shù)，動態(tài)文字的輸出可設(shè)置色彩、字體和顏色等屬性，圖片也給出了幾種動態(tài)顯示方式，并且很容易拓展新的動態(tài)顯示方式。文中方法具有實現(xiàn)原理簡單、易于編程的特點，對于采用其他高級語言編寫程序也有一定的參考價值。可以根據(jù)實際需求，把動態(tài)文字和動態(tài)圖片相結(jié)合，編寫出生動的、有設(shè)計感的屏幕輸出效果。

參考文獻(xiàn)：

[1] 陳明晰，楊謹(jǐn)全.Visual Basic程序設(shè)計[M].北京：清華大學(xué)出版社，2019.

[2] 張勇.Visual Basic課程設(shè)計案例精編[M].北京：中國水利出版社，2002.

[3] 于秀麗.數(shù)據(jù)結(jié)構(gòu)與數(shù)據(jù)庫應(yīng)用教程[M].北京：清華大學(xué)出版社，2019.

[4] 胥淑華.VB實例——文字的隨機變幻立體效果[J].電子世界，2019（1）：109.

[5] 黃婷.利用VB進(jìn)行文字特殊效果的處理[J].電腦編程技巧與維護(hù)，2018（9）：145-158.

[6] 朱苗苗，牛國鋒，郭凱.基于VB 與MSChart實現(xiàn)蠟沉積預(yù)測數(shù)據(jù)圖形化顯示[J].蘭州理工大學(xué)學(xué)報，2017，43（1）：71-75.

【通聯(lián)編輯：梁書】

2818500511271