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