VB声明

Declare Function DrawEdge Lib "user32" Alias "DrawEdge" (ByVal hdc As Long, qrc As RECT, ByVal edge As Long, ByVal grfFlags As Long) As Long

说明

用指定的样式描绘一个矩形的边框

返回值

Long，TRUE（非零）表示成功，否则返回零。会设置GetLastError。（在vb里使用：推荐使用。利用这个函数，我们没有必要再使用许多3D边框和面板。所以就资源和内存的占用率来说，这个函数的效率要高得多。它可在一定程度上提升性能）

参数表 参数 类型及说明

hdc Long，要在其中绘图的设备场景

qrc RECT，要为其描绘边框的矩形

edge Long，带有前缀BDR_的两个常数的组合。一个指定内部边框是上凸还是下凹；另一个则指定外部边框。有时能换用带EDGE_前缀的常数,（EDGE_RAISED则画出的样子为凸起，EDGE_SUNKEN则画出的样子为凹下）

grfFlags Long，带有BF_前缀的常数的组合 注解

由于这是一个GDI函数，所以矩形坐标是逻辑坐标

其他能用的:

Private Const BDR_SUNKEN95 As Long = &HA

Private Const BDR_RAISED95 As Long = &H5

Private Const BF_LEFT As Long = &H1

Private Const BF_TOP As Long = &H2

Private Const BF_RIGHT As Long = &H4

Private Const BF_BOTTOM As Long = &H8

Private Const BF_RECT As Long = (BF_LEFT Or BF_TOP Or BF_RIGHT Or BF_BOTTOM)