文字和圖片動態顯示的實現技術

李興霞

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

關鍵詞：動態顯示;時間控件;圖像控件

中圖分類號：TP37 ? ? ? 文獻標識碼：A

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

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

1 字符串的動態顯示

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

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

Timer1.Enabled=True

Timer1.interval=100

根據不同的需要，可調整時間間隔，改寫程序也可實現縱向顯示，橫向顯示的具體參考程序如下：

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） ? ?'設置前景為藍色

Form1.Font = "楷體" ? ? ? ? ? ? ? ? '設置輸出為楷體

Form1.FontSize = 40 ? ? ? ? ? ? ? ? '設置字號為40

a = "電腦知識與技術"

m = Len（a） ? ? ? ? ? ? ? ? ? ? ? ? ?'m為漢字個數

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 字符串的水平移動

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

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） ? '設置標簽前景為藍色

Label1.Font = "楷體" ?'設置標簽文字輸出為楷體

Label1.FontSize = 40 ? '設置標簽文字字號為40

Label1.Caption = "電腦知識與技術"

m = 40 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?'m為水平移動次數

i = 1

End Sub

Private Sub Timer1_Timer（）

Label1.Left = x ? ? ? ? ? ? ? ? ? ? '設置標簽移動的新位置

Label1.Top = y

If i = m Then

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

Else

i = i + 1

End If

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

End Sub

3 圖片按比例放大

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

Dim s As Integer

Private Sub Form_Load（）

s = 50 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?'s為放大的次數

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屬性設為True，調整好圖片的大小，用image1的picture屬性選擇圖片，初始時Timer1.interval設為100，每次時間事件用move方法把image1移動到新的位置或直接修改image1的左上角坐標，從而實現image1的移動[6]。實例參考程序如下：

Dim s As Integer

Private Sub Form_Load（）

s = 50 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?'s為移動圖片的次數

End Sub

Private Sub Timer1_Timer（）

s = s - 1

If s = 0 Then

Timer1.Enabled = False

End If

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

y = Image1.Top + 50

Image1.Left = x ? ? ? ? ? ? ? ? ? ? '設置圖片新的位置

Image1.Top = y ? ? ?'Image1.Move x， y也可實現這兩句功能

End Sub

5 圖片的徐徐展開

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

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 結束語

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

參考文獻：

[1] 陳明晰，楊謹全.Visual Basic程序設計[M].北京：清華大學出版社，2019.

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

[3] 于秀麗.數據結構與數據庫應用教程[M].北京：清華大學出版社，2019.

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

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

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

【通聯編輯：梁書】

2818500511271