VFP 愛用者社區

Ruey · 註冊時間: 2003-03-12 文章: 1698 來自: tunglo 第 1 樓

用VFP6.0編寫圖片流覽器
2000-08-14 16:30:52

　　昨天好友拿來了一張盤，上面有很多漂亮的圖片（由於前一陣那不爭氣的Win 98又崩潰了，只好重裝了系統，所以沒有看圖軟體和相應的安裝盤），但一張一張地看實在太麻煩了，於是自己用Visual FoxPro 6.0編寫了個圖片流覽器。使用後感覺還不錯，不敢獨享，拿出來與大家分享。

　　設置各控制項屬性

　　(1)設置Form的Caption屬性為“自製流覽器”。BorderStyle的屬性設為2，禁止調整表單。設MaxButton的屬性為.F.，使表單不能最大化。

　　(2)設置List的IntegralHeigh屬性設為.T.，使List能自動重新調整，以顯示所有的文本部分。設MultiSelect為.T.，能夠使用戶對檔進行多重選項。設RowSource為＊.bmp，指定列表框中資料初始值的源為BMP檔。設RowSourceType的值為7，指定List的資料源為檔。

　　(3)設置Label1的Caption屬性為“檔類型：”。將Fontsize設為15。

　　(4)設置Combo1的RowSource屬性為“＊.bmp,＊.cur,＊.icq,＊.jpg"，表示它所支援的圖像檔類型。將RowSourceType設為1，設數據源為值。Style的值為2，使用戶只能從下拉清單中選擇檔類型。使其Value為＊.bmp，初始文件類型為BMP文件。

　　(5)設置Container的SpecialEffect值為0，以便鑲在裏面的圖像有立體感。

　　(6)設置Image的Stretch為1，使任何大小的圖片都能以相同的比例顯示。

　　注：Image是鑲嵌在Container中的。

　　(7)設置Shape的BackColor的值為64，0，64。

　　注：Shape是放在Image上面的。

　　( Cool

設置兩個Command的Caption分別為“清屏”和“退出”。

　　添加代碼

　　(1)FORM的代碼

　　PROCEDURE Form.Init

　　 c=Home()＆＆把當前VFP目錄的預設值給變數c

　　 If File(c＋″\NUL″) ＆＆以當前VFP目錄為起始

　　 CD (c) `　　　　＆＆進入此目錄

　　 This.List1.Requery ＆＆保持List的內容不斷刷新

　　 EndIf

　　(2)LIST的代碼

　　 PROCEDURE List.InteractiveChange

　　　　 s=Upper(This.List(This.ListIndex))

　　＆＆記錄改變後的目錄中的檔

　　 CD This.List(2)

　　 IF″.BMP″＄S.OR.″.ICO″＄S.OR.

　　　　　　　　　　　　 ″.JPG″＄S.OR.″.CUR″＄S

　　 ThisForm.Image1.Picture=This.List(2)＋s

　　＆＆如果檔包含這四個副檔名,則顯示。

　　 ThisForm.Shape1.Visible=.F.

　　EndIf

　　(3)Combo1的代碼

　　 PROCEDURE Combo1.Init

　　　　This.ListIndex=1 ＆＆選定資料項目的索引

　　 PROCEDURE Combo1.InteractiveChange

　　 ThisForm.List1.RowSource=This.Value

　　　　　　＆＆指定List所顯示的檔類型為當

　　　　前Combo1的Value中的類型

　　　　 ThisForm.List1.Requery

　　＆＆使List的內容不斷更新

　　(4)Command1的代碼

　　 PROCEDURE Command1.Click

　　　　ThisForm.Image1.Picture=′ ′

　　＆＆取消圖片路徑，實現清屏

　　　　ThisForm.Shape1.Visible=.T.

　　(5)Command2的代碼

　　 PROCEDURE Ccommand2.Click

　　　　Rele ThisForm ＆＆釋放表單

　　到此，這個流覽器就算完成了，希望它能給初學者一些啟發。

　　摘自《賽迪網》　伏曄/文