VB語言如何實現幻燈片效果

小編給大家分享一下VB語言如何實現幻燈片效果，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！

本節目標案例：

1.比如窗體的屬性picture等含有picture這個屬性的。

2.picturebox控件可以加載。

3.image控件可以加載。

以上圖片加載的共性：利用picture屬性進行加載。

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 - 1If a >= 1 Then    Image1.Picture = LoadPicture(App.Path & "/img/" & a & ".jpg")Else    MsgBox "已經沒有了"End IfEnd Sub
Private Sub Command2_Click()a = a + 1If a <= 8 Then    Image1.Picture = LoadPicture(App.Path & "/img/" & a & ".jpg")Else    MsgBox "已經沒有了"End IfEnd Sub
Private Sub Command3_Click()Timer1.Enabled = TrueEnd Sub
Private Sub Form_Load()a = 1Image1.Picture = LoadPicture(App.Path & "/img/" & a & ".jpg")End Sub
Private Sub Timer1_Timer()a = a + 1If a <= 8 Then    Image1.Picture = LoadPicture(App.Path & "/img/" & a & ".jpg")Else    a = 0End IfEnd Sub

以上是“VB語言如何實現幻燈片效果”這篇文章的所有內容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內容對大家有所幫助，如果還想學習更多知識，歡迎關注億速云行業資訊頻道！