VB語言基礎重要知識點14
- 2019 年 11 月 13 日
- 筆記
在開始此次案例之前，我們先回顧一個問題，哪些情況可以載入圖片？
1.比如窗體的屬性picture等含有picture這個屬性的。
2.picturebox控制項可以載入。
3.image控制項可以載入。
以上圖片載入的共性：利用picture屬性進行載入。
form窗體樣式配置通過borderStyle邊框風格：
fixed dialog 就是窗體對話框樣式，只有一個關閉按鈕。隱藏了放大縮小按鈕。
image控制項載入圖片：
1.默認情況下，控制項載入圖片後，會呈現與圖片原始大小的尺寸。
2.我們可以通過strech屬性配置為true後，將圖片進行整體縮放。
如果strech屬性為false，會出現裁剪效果。
此次案例，我們的最終目標：實現圖片的自動切換。
1.點擊按鈕「下一張」，圖片會顯示出下一張來
2.點擊按鈕「上一張」，圖片會顯示出上一張來
方法一：
兩張圖片的互相切換效果：
可以採用兩個image控制項。
在form_load事件中先顯示第一張圖片，其它的圖片都隱藏。
圖片的顯示與隱藏我們通過visible屬性進行設置。
visible屬性為true表示顯示。
visible屬性為false表示隱藏。
方法二：
如果有大量圖片需要顯示，那麼我們就要製作圖片的規律：
1.先把圖片重命名為有規律的數值
2.通過loadpicture函數載入圖片，這個函數返回一個圖片對象
使用格式：
loadpicture(圖片路徑)
舉例：在image1控制項中載入圖片。
Image1.Picture = LoadPicture(App.Path & "/img/3.jpg")
這裡的app.Path代表當前工程文件所存的文件夾的路徑
那麼，如何顯示下一張圖片？
a = a + 1
If a <= 8 Then
Image1.Picture = LoadPicture(App.Path & "/img/" & a & ".jpg")
Else
MsgBox "已經沒有了"
End If
如何顯示上一張圖片？
a = a - 1
If a >= 1 Then
Image1.Picture = LoadPicture(App.Path & "/img/" & a & ".jpg")
Else
MsgBox "已經沒有了"
End If
如何自動循環顯示？
a = a + 1
If a <= 8 Then
Image1.Picture = LoadPicture(App.Path & "/img/" & a & ".jpg")
Else
a = 0
End If
本節教程介面：
本節教程源程式碼：
Dim a As Integer Private Sub Command1_Click() a = a - 1 If a >= 1 Then Image1.Picture = LoadPicture(App.Path & "/img/" & a & ".jpg") Else MsgBox "已經沒有了" End If End Sub Private Sub Command2_Click() a = a + 1 If a <= 8 Then Image1.Picture = LoadPicture(App.Path & "/img/" & a & ".jpg") Else MsgBox "已經沒有了" End If End Sub Private Sub Command3_Click() Timer1.Enabled = True End Sub Private Sub Form_Load() a = 1 Image1.Picture = LoadPicture(App.Path & "/img/" & a & ".jpg") End Sub Private Sub Timer1_Timer() a = a + 1 If a <= 8 Then Image1.Picture = LoadPicture(App.Path & "/img/" & a & ".jpg") Else a = 0 End If End Sub
