Readygo技术搜索引擎 网络搜索 efish 2008-1-14 6:26:02

请问vb中如何实现下凹的分割线以及如何使lable下凹

楼主seehere（大菜鸟）2002-05-14 15:23:31 在 VB / 基础类 提问

非常感谢 问题点数：0、回复次数：4Top

1 楼gump2000（阿甘）回复于 2002-05-14 15:35:41 得分 0

自己画两根线来模拟  
   
  Line1:  
  BorderColor   :   &H80000003&  
  X1:0  
  X2:1000  
  Y1:0  
  Y2:0  
   
  Line2:  
  BorderColor:   &H80000005&  
  X1:0  
  X2:1000  
  Y1:15  
  y2:15  
  Top

2 楼gump2000（阿甘）回复于 2002-05-14 15:36:55 得分 0

Label下凹  
   
  borderstyle=1  
  Top

3 楼gump2000（阿甘）回复于 2002-05-14 15:39:45 得分 0

label下凹  
   
  boardstyle=1  
  Top

4 楼zyl910（910：闭关修炼中...）回复于 2002-05-14 20:38:14 得分 0

DrawEdge    
   
  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_前缀的常数。    
  grfFlags   Long，带有BF_前缀的常数的组合    
  注解    
  由于这是一个GDI函数，所以矩形坐标是逻辑坐标  
     
  "==   DrawEdge   ===================================  
  "-=   edge   =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-  
  Public   Const   BDR_RAISEDOUTER   =   &H1   "外层凸  
  Public   Const   BDR_SUNKENOUTER   =   &H2   "外层凹  
  Public   Const   BDR_RAISEDINNER   =   &H4   "内层凸  
  Public   Const   BDR_SUNKENINNER   =   &H8   "内层凹  
  Public   Const   BDR_OUTER   =   &H3  
  Public   Const   BDR_RAISED   =   &H5  
  Public   Const   BDR_SUNKEN   =   &HA  
  Public   Const   BDR_INNER   =   &HC  
   
  Public   Const   EDGE_RAISED   =   (BDR_RAISEDOUTER   Or   BDR_RAISEDINNER)  
  Public   Const   EDGE_ETCHED   =   (BDR_SUNKENOUTER   Or   BDR_RAISEDINNER)  
  Public   Const   EDGE_BUMP   =   (BDR_RAISEDOUTER   Or   BDR_SUNKENINNER)  
  Public   Const   EDGE_SUNKEN   =   (BDR_SUNKENOUTER   Or   BDR_SUNKENINNER)  
   
  "-=   grfFlags   =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-  
  Public   Const   BF_LEFT   =   &H1  
  Public   Const   BF_TOP   =   &H2  
  Public   Const   BF_RIGHT   =   &H4  
  Public   Const   BF_BOTTOM   =   &H8  
  Public   Const   BF_DIAGONAL   =   &H10  
  Public   Const   BF_MIDDLE   =   &H800  
  Public   Const   BF_SOFT   =   &H1000  
  Public   Const   BF_ADJUST   =   &H2000  
  Public   Const   BF_FLAT   =   &H4000  
  Public   Const   BF_MONO   =   &H8000  
   
  Public   Const   BF_RECT   =   (BF_LEFT   Or   BF_TOP   Or   BF_RIGHT   Or   BF_BOTTOM)  
  Public   Const   BF_TOPLEFT   =   (BF_TOP   Or   BF_LEFT)  
  Public   Const   BF_TOPRIGHT   =   (BF_TOP   Or   BF_RIGHT)  
  Public   Const   BF_BOTTOMLEFT   =   (BF_BOTTOM   Or   BF_LEFT)  
  Public   Const   BF_BOTTOMRIGHT   =   (BF_BOTTOM   Or   BF_RIGHT)  
  Public   Const   BF_DIAGONAL_ENDTOPLEFT   =   (BF_DIAGONAL   Or   BF_TOP   Or   BF_LEFT)  
  Public   Const   BF_DIAGONAL_ENDTOPRIGHT   =   (BF_DIAGONAL   Or   BF_TOP   Or   BF_RIGHT)  
  Public   Const   BF_DIAGONAL_ENDBOTTOMLEFT   =   (BF_DIAGONAL   Or   BF_BOTTOM   Or   BF_LEFT)  
  Public   Const   BF_DIAGONAL_ENDBOTTOMRIGHT   =   (BF_DIAGONAL   Or   BF_BOTTOM   Or   BF_RIGHT)  
  Top

5 楼wgku（云霄）回复于 2002-05-14 20:48:07 得分 0

哈哈，前两种方法我更喜欢：)Top