各位VB高手,你一定也常常因苦於無法組織自己程序中大量的picture,而頭痛不已,那就讓小生為各位介紹一下VB編程的好幫手--資源文件。
所謂資源文件,就是指將在程序運行時用到的資源集中在一起的一個文件。一個資源文件可以包括文字(TEXT)、位圖(BITMAP)。圖標(ICON)等。並且在程序中調用時不用指明路徑,這就簡化了程序的編寫並減少了發生錯誤的可能。現在我就以一個小程序為例講述資源文件的一些使用方法。
這個工程運行後,當點擊【未來】按鈕時中間圖像將依次變換為夏、秋、冬、春……點擊【從前】按鈕則以相反順序轉動圖片(源程序附後)。
首先建立春、夏、秋、冬四幅位圖,均以.BMP格式保存在C:\TEST\下。然後打開記事本編寫資源文件,
內容如下:
100 bitmap spring.bmp
200 bitmap summer.bmp
300 bitmap autumn.bmp
400 bitmap winter.bmp
其中數字表示此項的ID號碼,此號碼很重要,它直接影響調用!BITMAP表示以位圖方式保存而最後的部分為文件名。將此文件保存為TEST.RC。
接下來編譯此資源文件。在C:\Visual Basic\Wizards目錄下找到RC.EXE文件。在MS-DOS方式下鍵人C:\rc /r c:\test.test.rc(鍵入rc /?將會得到幫助),在編譯成功後在C:\TEST\中將發現增加了一個名為TEST.RES的文件。
完成了上面的工作,接下來就可以編寫工程了。首先建立一個image控件img和兩個Command控件cmdc、cmdw。然後建立一個時鐘控件,設其Interval屬性為1000。最後在[通用]中聲明一個名為iid的整形變量:
Dim iid As Integer
並初始化img和iid:
img.Picture=LoadResPicture(100,vbResBitmap)
iid=100
其中LoadResPicture(id,model)為從資源文件中調用圖像的函數,100表示ID號為100的項,vbResBitmap為一常量,值為0,表示以位圖方式打開。然後在兩個Command控件中加入源程序代碼。
最後在工程資源管理器中用鼠標右鍵單擊選擇【添加】-->【添加文件】,加入TEST.RES。
至此工程可謂大功告成,按F5運行一下,希望你會喜歡。還有一點要強調的是一個工程只能有一個工程文件!附源程序:
Option Explicit
Dim iid As Integer
Private Sub comc_Click()
iid = iid - 100
If iid < 100 Then iid = 400
img.Picture = LoadRespicture(iid.vbResBitmap)
End If
End Sub
Private Sub comw_Click()
iid = 100 + iid
If iid > 400 Then iid = 100
img.Picture = LoadResPicture(iid,vbResBitmap)
End If
End Sub
Private Sub Form_Load()
img.Picture = LoadResPicture(10O,vbResBitmap)
iid = 100
End Sub
Private Sub Timer1_Timer()
iid = 100 + iid
If iid > 400 Then iid = 100
img.Picture = LoadResPicture(iid,vbResBitmap)
End If
End Sub