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

在本節(jié)，我們要實(shí)現(xiàn)兩張不同圖片在同一個圖形框內(nèi)的切換，同時可以啟用與禁用圖形框的自動適應(yīng)功能。
     一、設(shè)計(jì)：
     1、創(chuàng)建如圖一的界面：
     顯示標(biāo)簽：
     Name：LblShow　　Caption：現(xiàn)在顯示的是第一張圖
     圖形框控件：
     Name：PicShow　　AutoSize：None
     自動適應(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)備用來做為圖片切換的條件，當(dāng) X 為 1 ，圖片切換按鈕可以切換到圖片二；當(dāng) X 為 2 ，圖片切換按鈕可以切換到圖片一。
     IWidth 與 IHeight 準(zhǔn)備用來儲存圖形框的初始寬度與高度，以便在圖形框發(fā)生大小變化后回復(fù)到原樣。
     3、程序打開時自動載入圖片一：
     這樣，圖片切換按鈕就應(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、自動適應(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 ，然后再通過激活 PicShow 的 AutoSize 功能達(dá)到圖形框的自動適應(yīng)；如果復(fù)選框沒被選中，那么禁止 PicShow 的 AutoSize 功能，然后將圖形框原來的高度（現(xiàn)在的 IHeight）和寬度（現(xiàn)在的 IWidth）賦值給圖形框以恢復(fù)原樣。