第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，否则保留的将是一张空图