23.txt

介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个API集供参考.

Win Api在VB中的妙用

　　Windows API作为一套功能强大的应用程序接口，使VB可以实现对Windows底层的控制，完成VB不具有的功能。下面介绍几种使用API函数的方法。
　　一、制作特殊窗口
　　1.各种形状的窗口(仅给出了函数名，具体定义可以查阅API Viewer)
　　1)CreateEllipticRgn 建立一个椭圆形的区域；
　　2)CreateRoundRectRgn 建立一个圆角矩形的区域；
　　3)CreatePolygonRgn 建立一个多边形区域；
　　4)CreatePolyPolygonRgn建立多个可重叠的多边形区域；
　　5)CreateRectRgn 建立一个矩形区域；
　　6)CombineRg连接两个区域，通过代入不同的参数可以实现多种合并方式；
　　7)SetWindowRgn 设定窗口的范围，使用前边创建的区域；
　　8)FrameRgn 在指定区域画上
边框。
　　下边的程序就是建立一个形如“棒槌”的窗口：
Private Sub Form1_Load()
Dim p, q As Long
p = CreateEllipticRgn(0, 0, 200, 200) ′通过制定左上角和右下角的坐标建立一个圆
q = CreateRoundRectRgn(40, 120, 160, 400, 20, 20) ′通过制定左上角和右下角的坐标以及圆角的宽度建立一个圆角矩形
CombineRgn p, q, p, RGN_OR ′联合两个区域,使用或(就是取并集)运算
SetWindowRgn hWnd, p, True ′设置窗口区域
Me.Refresh ′刷新窗口
End Sub
　　2.浮动窗口
　　Delphi中实现浮动窗口非常容易，只要在属性栏中设置就可以。用VB实现就只有借助于API函数:
SetWindowPos hWnd,HWND_TOPM