當前位置:編程學習大全網 - 源碼下載 - 用VB制作 循環顯示圖片

用VB制作 循環顯示圖片

壹、設計界面

啟動Visual Basic ,建立壹個標準EXE工程,然後參考下面的界面效果設計軟件的運行界面:

1、使用控件面板上的框架Frame和標簽Label控件建立①的軟件標題,並且將Frame的[Caption]屬性清空,Label的[Caption]屬性修改為“簡易圖片瀏覽器”,[Font]屬性中的字體和大小也作相應的修改;

2、利用控件面板上的驅動器列表DriveListBox控件建立②的磁盤列表;

3、用控件面板上的目錄列表DirListBox控件建立③的文件目錄列表;

4、用控件面板上的文件列表FileListBox控件建立④的文件列表;

5、用控件面板上的圖像Image控件建立⑤的圖像展示區,設置Image1對象的[Height]屬性為4800,設置[with]屬性值為6400;

6、調整好各個控件的位置,使到界面的布局合理美觀。

--------------------------------------------------------------------------------

二、代碼實現

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive '將磁盤的位置告訴目錄列表

End Sub

Private Sub File1_Click()

'將圖片用Loabpicture函數裝載到Image1裏面顯示出來

Image1.Picture = LoadPicture(File1.Path + "\" + File1.FileName)

End Sub

Private Sub Form_Load()

File1.Pattern = "*.jpg;*.bmp;*.Gif"

End Sub

Private Sub Image1_DblClick()

If Image1.Stretch = False Then

Image1.Stretch = True

Image1.Width = 6400

Image1.Height = 4800

Else

Image1.Stretch = False

End If

End Sub

三、軟件說明

在VB裏面編程要管理外部文件壹般可以使用以上的方法來實現,也就是混合的使用到驅動器列表DriveListBox、目錄列表DirListBox以及文件列表FileListBox這三個控件對象,然後再在他們的代碼中實現關聯;

對於文件列表FileListBox中顯示的內容,默認情況下是所有的文件類型,如果我們希望它只顯示我們需要的文件類型,也可以通過修改屬性中的[Pattern]圖片格式來實現,例如我們只希望文件列表中看到的是*.jpg、*.bmp、*.Gif這幾類文件我們可以如下圖這樣設置:註意:有多種不同類型的文件就要用“;”分隔開來

當然也可以在代碼中進行初始化的時候實現:

  • 上一篇:好心人幫我寫個代碼唄,用html做壹個表格,
  • 下一篇:炒股人的通病有哪些?
  • copyright 2024編程學習大全網