第18部分(第1/5 頁)

Q：Delphi 中判斷系統是否已經安裝了音效卡

89

Q：用 ASP 開啟 Web 伺服器上的應用程式 90

Q：一個用進度條表示的時鐘

91

Q：Delphi 中實現對日期資料的有效性檢驗 92

Q：PHP4 的 CGI 版本和 ISAPI 版本有什麼區別？

93

Q：VFP6。0 一條語句有多長？ 94

Q：Delphi 中呼叫 Windows API 函式 ShellExecute 實現開啟 IE 和 Outlook 應用程式？

95

Q：用一條 SQL 語句找出“相同的客戶程式碼中序號最大”的那些資料 96

Q：在 Delphi5。0 中怎麼找不到 Html 元件？

97

Q：在 Delphi 中實現控制元件焦點轉移？ 98

Q：在 Delphi 中判斷本程式是否已經執行？

99

Q：Delphi 與 VB、ASP 帶變數引數 SQL 語句的比較 100

Q：Delphi 實現漸變視窗背景

第五卷　第二章

？101；Q：用 Visual Basic 儲存 BMP 檔案：

A： 在用VB編制繪圖程式時，有時需要將窗體或圖片框上的繪圖結果形成一個定製的圖形檔案儲存起來，以便以後瀏覽或修改。這一功能可以用 VB 本身帶有的 SavePicture 語句來完成。

SavePicture語句將窗體、圖象控制元件或圖片框中的圖形圖象儲存到磁碟上的一個檔案中，這些圖象可以是使用畫圖方法（Line，Circle，Pset）產生出來的，也可以儲存那些透過設定窗體或圖片框的圖片屬性或者透過PaintPicture 方法或 Load Picture 函式載入的圖象。這些載入的圖象可以是 BMP、ICO 或 WMF 圖形檔案。

SavePicture 語句的語法格式如下：

SavePicture picture，stringexpression

引數 picture 為窗體或圖片框的 picture 或 image 屬性；引數 strngexpression 為儲存的檔名。

下面舉一個具體的程式來說明定製圖象檔案的過程：

1、建立一個新的專案檔案，在 Forml 中加入一個圖象控制元件 Picture1，將Picture1 的 AutoRedraw 屬性設定為 True；

2、在Form_Load（） 事件中，加入如下程式碼：

Private Sub Form－Load（）

Dim CX As Integer

Dim CY As Integer

Dim Limit As Integer

Dim Radius As Integer

CX＝1000

CY＝1000

For Radius＝0 To Limit

Picturel。Circle（CX；CY）；Radius；RGB（Rnd*255；Rnd*255；Rnd*255）

Next Radius

SavePicture Picturel。Image；〃c：custom。bmp〃

End Sub

執行此程式就會把圖片框 Picture1 上的圖象儲存在 C： 盤根目錄下 custom。bmp 圖象檔案中。

最後有兩點需要指出：

1、在使用 SavePicture 語句之前，必須先將窗體或圖片框的 AutoRedraw 屬性設為 True，否則保留的將是一張空圖