【PB案例學習筆記】-05 圖片瀏覽器

寫在前面

這是PB案例學習筆記系列文章的第5篇，該系列文章適合具有一定PB基礎的讀者。

通過一個個由淺入深的編程實戰案例學習，提高編程技巧，以保證小伙伴們能應付公司的各種開發需求。

文章中設計到的源碼，小凡都上傳到了gitee代碼倉庫https://gitee.com/xiezhr/pb-project-example.git

需要源代碼的小伙伴們可以自行下載查看，後續文章涉及到的案例代碼也都會提交到這個倉庫【pb-project-example】

如果對小伙伴有所幫助，希望能給一個小星星⭐支持一下小凡。

一、小目標

本篇文章的小目標主要是利用圖片框（Picture）控制項及其函數來對圖片進行打開、讀取等操作。

圖片支持的格式有bmp、jpg、gif、rle、wmf

本實例中我們實用到了控制項的如下屬性，一些沒用到的，我們會在實例後面具體說明，感興趣的小伙伴可以在實例結束後查看

二、創建程式基本框架

① 建立工作區

② 建立應用

③ 建立視窗

④ 建立控制項

在視窗中建立一個SingleLineEdit控制項，一個CommandButton控制項和一個Picture控制項（下圖所示位置），各個控制項名稱依次為

sle_1、cb_1和p_1

⑤ 保存視窗

將建立的視窗保存為w_main

三、設置各個控制項的外觀屬性

四、編寫代碼

① 在按鈕cb_1控制項的clecked事件中添加如下代碼

if sle_1.text <> '' or isnull(sle_1.text) then
	if fileExists(sle_1.text) then
		p_1.picturename = sle_1.text
		p_1.height = 1500
		p_1.width = 2000
	else
		messagebox('提示信息','圖片文件不存在',Exclamation!)
	end if
	
else
	messagebox('提示信息','請輸入圖像文件名',Exclamation!)
end if

代碼中用到fileExists 函數，我們在之前的文件瀏覽器文章中說到過，作用時判斷文件是否存在

② 在開發界面左邊的System Tree 視窗中雙擊exampleapp應用對象，併在Open中添加如下代碼

open(w_main)

五、運行程式

運行程式，在sle_1控制項內輸入要瀏覽圖片的完整名稱，點擊打開就可以看到

六、Picture 控制項常用屬性

本期內容到這兒就結束了，希望對您有所幫助。

我們下期再見 ヾ(•ω•`)o (●'◡'●)

本文來自博客園，作者：xiezhr，轉載請註明原文鏈接：https://www.cnblogs.com/xiezhr/p/18200444