為了幫助廣大考生更好的復(fù)習(xí)，幫考網(wǎng)小編整理提供了計算機(jī)等級考試:二級VB制作圖片瀏覽器，以供各位考生復(fù)習(xí)參考，希望對考生復(fù)習(xí)有所幫助。
當(dāng)我們在設(shè)置屏幕背景圖，或是在你的文件中插入圖片時，總要在你的電腦里選擇圖片。有時打開的圖片你不一定滿意，你又不得不一個個地打開、關(guān)閉……這樣一而再，再而三地重復(fù)。如果是“Photoshop”這樣的大軟件運(yùn)行起來更是慢得不得了。不但煩躁，而且還浪費(fèi)了你很多寶貴時間。這時，你是不是覺得“電腦”有點(diǎn)像“豬腦”呢？不過，別急！幸好我用VB編了一個小小的程序，可以解決這個問題，你不妨試試！
下面分步設(shè)置各控件的屬性：
1.設(shè)置窗體的Caption屬性為“圖片瀏覽器”，BorderStyle屬性為3，即窗體大小不能改變。
2.設(shè)置Label1的屬性為“當(dāng)前驅(qū)動器”，Label2的屬性為“當(dāng)前目錄”，Label3的屬性為“當(dāng)前文件”；Label4的屬性為“當(dāng)前圖像”，Label5的屬性為“當(dāng)前文件路徑”。
3.設(shè)置Text1的Text屬性為空。
4.設(shè)置Image1的Stretch屬性為True，即所裝入的圖形能夠縮放以適應(yīng)圖像框大小。
5.設(shè)置Command1的Caption屬性為“確定”，Command2的Caption屬性為“退出”。
具體的程序源代碼如下：
Private Sub Command1_Click（）
Image1.Picture=LoadPicture（Text1.Text）＇當(dāng)單擊“確定”時，文本框中的文件在圖像框中顯示出來
End Sub
－－－－－－
Private Sub Command2_Click（）＇當(dāng)單擊“退出”時，彈出是否退出系統(tǒng)對話框
Dim exi As String
exi=MsgBox（“您真的想退出嗎？”，vbYesNo＋vbQuestion＋vbDefaultButton1，“退出”）
If exi=vbYes Then
End
End If
End Sub
當(dāng)我們在設(shè)置屏幕背景圖，或是在你的文件中插入圖片時，總要在你的電腦里選擇圖片。有時打開的圖片你不一定滿意，你又不得不一個個地打開、關(guān)閉……這樣一而再，再而三地重復(fù)。如果是“Photoshop”這樣的大軟件運(yùn)行起來更是慢得不得了。不但煩躁，而且還浪費(fèi)了你很多寶貴時間。這時，你是不是覺得“電腦”有點(diǎn)像“豬腦”呢？不過，別急！幸好我用VB編了一個小小的程序，可以解決這個問題，你不妨試試！
下面分步設(shè)置各控件的屬性：
1.設(shè)置窗體的Caption屬性為“圖片瀏覽器”，BorderStyle屬性為3，即窗體大小不能改變。
2.設(shè)置Label1的屬性為“當(dāng)前驅(qū)動器”，Label2的屬性為“當(dāng)前目錄”，Label3的屬性為“當(dāng)前文件”；Label4的屬性為“當(dāng)前圖像”，Label5的屬性為“當(dāng)前文件路徑”。
3.設(shè)置Text1的Text屬性為空。
4.設(shè)置Image1的Stretch屬性為True，即所裝入的圖形能夠縮放以適應(yīng)圖像框大小。
5.設(shè)置Command1的Caption屬性為“確定”，Command2的Caption屬性為“退出”。
具體的程序源代碼如下：
Private Sub Command1_Click（）
Image1.Picture=LoadPicture（Text1.Text）＇當(dāng)單擊“確定”時，文本框中的文件在圖像框中顯示出來
End Sub
－－－－－－
Private Sub Command2_Click（）＇當(dāng)單擊“退出”時，彈出是否退出系統(tǒng)對話框
Dim exi As String
exi=MsgBox（“您真的想退出嗎？”，vbYesNo＋vbQuestion＋vbDefaultButton1，“退出”）
If exi=vbYes Then
End
End If
End Sub