樹結(jié)構(gòu)圖
您現(xiàn)在的位置： > 技術(shù)沙龍 > 程序設(shè)計(jì) > VB > VB編程的好幫手--資源文件
- 相關(guān)軟件
>VB編程的好幫手--資源文件 創(chuàng)建者：webmaster 更新時(shí)間：2005-05-18 00:03
各位VB高手，你一定也常常因苦于無法組織自己程序中大量的picture，而頭痛不已，那就讓小生為各位介紹一下VB編程的好幫手--資源文件。
所謂資源文件，就是指將在程序運(yùn)行時(shí)用到的資源集中在一起的一個(gè)文件。一個(gè)資源文件可以包括文字（TEXT）、位圖（BITMAP）。圖標(biāo)（ICON）等。并且在程序中調(diào)用時(shí)不用指明路徑，這就簡化了程序的編寫并減少了發(fā)生錯(cuò)誤的可能?，F(xiàn)在我就以一個(gè)小程序?yàn)槔v述資源文件的一些使用方法。
這個(gè)工程運(yùn)行后，當(dāng)點(diǎn)擊【未來】按鈕時(shí)中間圖像將依次變換為夏、秋、冬、春……點(diǎn)擊【從前】按鈕則以相反順序轉(zhuǎn)動(dòng)圖片（源程序附后）。
首先建立春、夏、秋、冬四幅位圖，均以.BMP格式保存在C:\TEST\下。然后打開記事本編寫資源文件，
內(nèi)容如下：
100 bitmap spring.bmp
200 bitmap summer.bmp
300 bitmap autumn.bmp
400 bitmap winter.bmp
其中數(shù)字表示此項(xiàng)的ID號(hào)碼，此號(hào)碼很重要，它直接影響調(diào)用！BITMAP表示以位圖方式保存而最后的部分為文件名。將此文件保存為TEST.RC。
接下來編譯此資源文件。在C:\Visual Basic\Wizards目錄下找到RC.EXE文件。在MS-DOS方式下鍵人C:\rc /r c:\test.test.rc（鍵入rc /?將會(huì)得到幫助），在編譯成功后在C:\TEST\中將發(fā)現(xiàn)增加了一個(gè)名為TEST.RES的文件。
完成了上面的工作，接下來就可以編寫工程了。首先建立一個(gè)image控件img和兩個(gè)Command控件cmdc、cmdw。然后建立一個(gè)時(shí)鐘控件，設(shè)其Interval屬性為1000。最后在[通用]中聲明一個(gè)名為iid的整形變量：
Dim iid As Integer
并初始化img和iid：
img.Picture=LoadResPicture(100,vbResBitmap)
iid=100
其中LoadResPicture(id,model)為從資源文件中調(diào)用圖像的函數(shù)，100表示ID號(hào)為100的項(xiàng)，vbResBitmap為一常量，值為0，表示以位圖方式打開。然后在兩個(gè)Command控件中加入源程序代碼。
最后在工程資源管理器中用鼠標(biāo)右鍵單擊選擇【添加】-->【添加文件】，加入TEST.RES。
至此工程可謂大功告成，按F5運(yùn)行一下，希望你會(huì)喜歡。還有一點(diǎn)要強(qiáng)調(diào)的是一個(gè)工程只能有一個(gè)工程文件！附源程序：
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相關(guān)文章- 前一則: VB中使窗體右上角的X按鈕失效
- 后一則: VB學(xué)習(xí)一點(diǎn)通