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

2024-07-16 17:58:48

字體：大中小

來源：轉載

供稿：網友

在本節，我們要實現兩張不同圖片在同一個圖形框內的切換，同時可以啟用與禁用圖形框的自動適應功能。

圖一

圖二

一、設計：

1、創建如圖一的界面：

顯示標簽：

Name：LblShow　　Caption：現在顯示的是第一張圖

圖形框控件：

Name：PicShow　　AutoSize：None

自動適應復選框：

Name：ChkAutoSize

圖片切換按鈕：

Name：CmdShow　　Caption：圖片二

2、先在通用區聲明如下變量：

Dim X As Integer

Dim IWidth As Integer

Dim IHeight As Integer

其中，X 準備用來做為圖片切換的條件，當 X 為 1 ，圖片切換按鈕可以切換到圖片二；當 X 為 2 ，圖片切換按鈕可以切換到圖片一。

IWidth 與 IHeight 準備用來儲存圖形框的初始寬度與高度，以便在圖形框發生大小變化后回復到原樣。

3、程序打開時自動載入圖片一：

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

Private Sub Form_Load()

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

X = 1

End Sub

4、自動適應功能的實現：

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

上面程序的意思是，如果復選框被選中，那么先將原始圖形框的寬度與高度賦給 IWidth、IHeight ，然后再通過激活 PicShow 的 AutoSize 功能達到圖形框的自動適應；如果復選框沒被選中，那么禁止 PicShow 的 AutoSize 功能，然后將圖形框原來的高度（現在的 IHeight）和寬度（現在的 IWidth）賦值給圖形框以恢復原樣。

5、圖片切換：

Private Sub CmdShow_Click()

If X = 1 Then

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

LblShow.Caption = "現在顯示的是第二張圖"

CmdShow.Caption = "圖片一"

X = 2

Else

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

LblShow.Caption = "現在顯示的是第一張圖"

CmdShow.Caption = "圖片二"

X = 1

End If

End Sub

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

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

下一篇：VB 神童教程第三章第三節——直線與形狀控件