圖形文件的裝入有兩種方法:一種是在設(shè)計階段裝入,另一種是在運行期間裝入。
在設(shè)計階段裝入圖形文件
在設(shè)計階段裝入圖形文件用兩種方法:
(1)用屬性窗口中的Picture屬性裝入
可以通過Picture屬性,把圖形文件裝入窗體、圖片框或圖像框中,以圖片框為例,操作步驟如下:
①在窗體上建立一個圖片框。
②保持圖片框為活動的控件,在屬性窗口中找到:Picture屬性,單擊該屬性條,其右端出現(xiàn)3個點“…”按鈕。
③單擊右端“…”按鈕,屏幕顯示“加載圖片”對話框。
單擊“文件類型”欄右端的箭頭,將下拉顯示可以裝入的圖形文件類型,可從中選擇所需要的文件類型。
在中間的“搜尋”目錄列表框中,選擇含有圖形文件的目錄,可以根據(jù)需要選擇某個目錄,單擊“打開”按鈕,然后在該目錄中,選擇所要裝入的文件。
④單擊“打開”按鈕。
以上的操作步驟也適合圖像框。如果窗體上沒有活動的圖片框或圖像框,窗體為活動時,裝入的圖形文件將裝到窗體上。
(2)利用剪貼板裝入
①用Windows下的繪圖軟件,如Photoshop畫出或處理所需的圖形,并將該圖形拷貝到剪貼板中。
②啟動VB,在窗體上建立一個圖片框,并保持為活動狀態(tài)。
③執(zhí)行“編輯”菜單中的“粘貼”命令,剪貼板中的圖形將出現(xiàn)在圖片框中。
在建立圖片框時,應(yīng)適當調(diào)整其大小,以便能裝入完整的圖形。
在運行期間裝入圖形文件
.Picture屬性可以設(shè)置被顯示的圖片文件名(包括可選路徑名)。在程序運行時,可以使用loadPicture()函數(shù),在圖片框中裝入圖形。
格式:對象.Picture:LoadPicture(\"圖形文件名\")
功能:在圖形框中裝入一個圖形。
說明:
(1)對象可以是圖片框或圖像框,也可以是窗體,如果是窗體,對象名可以省略。
(2)如果刪除一個圖形,可以使用L,oadPicture()函數(shù),將一個空白圖形裝入圖形框的Picture屬性。
格式:對象.:Picture=I,oadPicture()
(3)如果圖片框中已有圖形,則被新裝入的圖形所覆蓋。
(4)裝入圖片框中的圖形,可以拷貝到另一個圖片框中。假設(shè)在窗體中已建立了兩個圖片框:Picturel與.Picture2,則用:
Picturel.Picture=L,oadPicture(\"C:\Graphics\Icons\Arrows、ar06up.ico\")
Picture2.Picture=Picturel.Picture
可以把圖片框Picturel中的圖形拷貝到圖片框.Picture2中。
在設(shè)計階段裝入圖形文件
在設(shè)計階段裝入圖形文件用兩種方法:
(1)用屬性窗口中的Picture屬性裝入
可以通過Picture屬性,把圖形文件裝入窗體、圖片框或圖像框中,以圖片框為例,操作步驟如下:
①在窗體上建立一個圖片框。
②保持圖片框為活動的控件,在屬性窗口中找到:Picture屬性,單擊該屬性條,其右端出現(xiàn)3個點“…”按鈕。
③單擊右端“…”按鈕,屏幕顯示“加載圖片”對話框。
單擊“文件類型”欄右端的箭頭,將下拉顯示可以裝入的圖形文件類型,可從中選擇所需要的文件類型。
在中間的“搜尋”目錄列表框中,選擇含有圖形文件的目錄,可以根據(jù)需要選擇某個目錄,單擊“打開”按鈕,然后在該目錄中,選擇所要裝入的文件。
④單擊“打開”按鈕。
以上的操作步驟也適合圖像框。如果窗體上沒有活動的圖片框或圖像框,窗體為活動時,裝入的圖形文件將裝到窗體上。
(2)利用剪貼板裝入
①用Windows下的繪圖軟件,如Photoshop畫出或處理所需的圖形,并將該圖形拷貝到剪貼板中。
②啟動VB,在窗體上建立一個圖片框,并保持為活動狀態(tài)。
③執(zhí)行“編輯”菜單中的“粘貼”命令,剪貼板中的圖形將出現(xiàn)在圖片框中。
在建立圖片框時,應(yīng)適當調(diào)整其大小,以便能裝入完整的圖形。
在運行期間裝入圖形文件
.Picture屬性可以設(shè)置被顯示的圖片文件名(包括可選路徑名)。在程序運行時,可以使用loadPicture()函數(shù),在圖片框中裝入圖形。
格式:對象.Picture:LoadPicture(\"圖形文件名\")
功能:在圖形框中裝入一個圖形。
說明:
(1)對象可以是圖片框或圖像框,也可以是窗體,如果是窗體,對象名可以省略。
(2)如果刪除一個圖形,可以使用L,oadPicture()函數(shù),將一個空白圖形裝入圖形框的Picture屬性。
格式:對象.:Picture=I,oadPicture()
(3)如果圖片框中已有圖形,則被新裝入的圖形所覆蓋。
(4)裝入圖片框中的圖形,可以拷貝到另一個圖片框中。假設(shè)在窗體中已建立了兩個圖片框:Picturel與.Picture2,則用:
Picturel.Picture=L,oadPicture(\"C:\Graphics\Icons\Arrows、ar06up.ico\")
Picture2.Picture=Picturel.Picture
可以把圖片框Picturel中的圖形拷貝到圖片框.Picture2中。