三三言情小说

手机浏览器扫描二维码访问

第18部分（第2页）

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

2、使用　　Image　　属性保存的用画图命令（如　　Line，Cirele，Pset　　或　　Print）画出来的图形总是以　　BMP　　文件格式保存。

但在程序设计时如果使用窗体或图片框的　　Picture　　属性载入或在程序运行时通过　　LoadPicture　　函数载入的图象，使用　　SavePicture　　语句存储时，存储的文件格式同其载入前的文件格式一样（如　　ICO　　格式等）。

102；Q：在　　Visual　　Basic　　中如何拖动窗体或控件？

A：现在的许多　　windows　　下的应用程序，都采用了图形化的界面，但是在这样的界面下就不能使用　　Windows　　原来的标题条了，否则会影响界面的美观。

那么在没有标题条的情况下如何用鼠标拖动窗体或者其它的控件呢？

其实，采用　　API　　函数调用很容易实现，下面我们以拖动窗体　　Form1　　为例来具体讲一下实现方法：

1、新建立一个项目，名称为　　test。

vbp；

2、填加一个模块，名称为　　test。

bas，并且在声明部分加入以下代码：

Declare　　Function　　ReleaseCapture　　Lib　　〃user32〃　　（）　　As　　Long

Declare　　Function　　SendMessage　　Lib　　〃user32〃　　Alias　　〃SendMessageA〃　　（ByVal　　hwnd　　As　　Long；　　ByVal　　wMsg　　As　　Long；　　ByVal　　　　wParam　　As　　Long；　　lParam　　As　　Any）　　As　　Long

Public　　Const　　WM_SYSMAND　　=　　&H112

Public　　Const　　SC_MOVE　　=　　&HF012

其中　　ReleaseCapture　　函数是用来释放鼠标捕获的，SendMessage　　函数是一个在　　Windows　　API　　中非常重要的函数，在这里的作用是用来向　　Windows　　发送移动窗体的消息。

WM_SYSMAND　　是向　　Windows　　发送消息的常量。

SC_MOVE　　是控制移动窗体的常量。

请注意：这里　　SC_MOVE　　的赋值是　　&HF012，表示鼠标对象。

3、在窗体的　　MouseDown　　过程中加入以下代码：

Private　　Sub　　Form_MouseDown（Button　　As　　Integer；　　Shift　　As　　Integer；　　X　　As　　Single；　　Y　　As　　Single）

ReleaseCapture