|
昨天好友拿來了一張盤，上面有很多漂亮的圖片（由于前一陣那不爭氣的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上面的。
(8)設置兩個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 ＆＆釋放表單
到此，這個瀏覽器就算完成了，希望它能給初學者一些啟發。
|
