VB 神童教程第三章第二節(jié)——綜合示例六

2024-07-16 17:58:48

字體：大中小

供稿：網(wǎng)友

在本節(jié)，我們要實(shí)現(xiàn)兩張不同圖片在同一個(gè)圖形框內(nèi)的切換，同時(shí)可以啟用與禁用圖形框的自動(dòng)適應(yīng)功能。

圖一

圖二

一、設(shè)計(jì)：

1、創(chuàng)建如圖一的界面：

顯示標(biāo)簽：

Name：LblShow　　Caption：現(xiàn)在顯示的是第一張圖

圖形框控件：

Name：PicShow　　AutoSize：None

自動(dòng)適應(yīng)復(fù)選框：

Name：ChkAutoSize

圖片切換按鈕：

Name：CmdShow　　Caption：圖片二

2、先在通用區(qū)聲明如下變量：

Dim X As Integer

Dim IWidth As Integer

Dim IHeight As Integer

其中，X 準(zhǔn)備用來(lái)做為圖片切換的條件，當(dāng) X 為 1 ，圖片切換按鈕可以切換到圖片二；當(dāng) X 為 2 ，圖片切換按鈕可以切換到圖片一。

IWidth 與 IHeight 準(zhǔn)備用來(lái)儲(chǔ)存圖形框的初始寬度與高度，以便在圖形框發(fā)生大小變化后回復(fù)到原樣。

3、程序打開(kāi)時(shí)自動(dòng)載入圖片一：

這樣，圖片切換按鈕就應(yīng)該能夠切換到圖片二，所以將 1 賦給 X ：

Private Sub Form_Load()

PicShow.Picture = LoadPicture("E:/稿件/Ccidnet/vb/image/vb3-2-1-copy.gif")

X = 1

End Sub

4、自動(dòng)適應(yīng)功能的實(shí)現(xiàn)：

Private Sub ChkStretch_Click()

If ChkStretch.Value = 1 Then

IWidth = PicShow.Width

IHeight = PicShow.Height

PicShow.AutoSize = True

Else

PicShow.AutoSize = False

PicShow.Width = IWidth

PicShow.Height = IHeight

End If

End Sub

上面程序的意思是，如果復(fù)選框被選中，那么先將原始圖形框的寬度與高度賦給 IWidth、IHeight ，然后再通過(guò)激活 PicShow 的 AutoSize 功能達(dá)到圖形框的自動(dòng)適應(yīng)；如果復(fù)選框沒(méi)被選中，那么禁止 PicShow 的 AutoSize 功能，然后將圖形框原來(lái)的高度（現(xiàn)在的 IHeight）和寬度（現(xiàn)在的 IWidth）賦值給圖形框以恢復(fù)原樣。

5、圖片切換：

Private Sub CmdShow_Click()

If X = 1 Then

PicShow.Picture = LoadPicture("E:/稿件/Ccidnet/vb/image/vb3-2-2-copy.gif")

LblShow.Caption = "現(xiàn)在顯示的是第二張圖"

CmdShow.Caption = "圖片一"

X = 2

Else

PicShow.Picture = LoadPicture("E:/稿件/Ccidnet/vb/image/vb3-2-1-copy.gif")

LblShow.Caption = "現(xiàn)在顯示的是第一張圖"

CmdShow.Caption = "圖片二"

X = 1

End If

End Sub

在上面的程序中，先對(duì) X 進(jìn)行判斷，如果 X 為 1 ，那么圖形框顯示圖片二，顯示標(biāo)簽改變成“現(xiàn)在顯示的是第二張圖”字樣，作為圖形切換的按鈕，Caption 變成“圖片一”，然后再讓 X 為 2 好進(jìn)入另外一種情況；當(dāng) X 為 2 ，那么圖形框顯示圖片一，顯示標(biāo)簽與切換按鈕發(fā)生相應(yīng)變化。

上一篇：VB 神童教程第三章第一節(jié)——圖形框與圖像框控件

下一篇：VB 神童教程第三章第三節(jié)——直線(xiàn)與形狀控件

學(xué)習(xí)交流

如何查找有故障的配件

如何查找有故障的配件...

熱門(mén)圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注