怎么做圆形按钮！

谢了！ 问题点数：20、回复次数：7Top

1 楼visualbasic999（）回复于 2001-12-28 23:46:44 得分 0

或是椭圆型的！Top

2 楼visualbasic999（）回复于 2001-12-29 00:53:56 得分 0

upupupTop

3 楼sssa2000（）回复于 2001-12-29 03:32:16 得分 5

干脆这样吧，你去的   按钮的句柄   然后再按钮上画一个椭圆出来Top

4 楼ww28（ww28）回复于 2001-12-29 06:53:03 得分 0

用image代替Top

5 楼dxj221（green）回复于 2001-12-29 08:13:30 得分 0

  去下载   按钮然后     用image控件   Top

6 楼TrueZq（xx）回复于 2001-12-29 09:03:32 得分 15

要不用PIctuerBox也行  
   
  RoundRectFrame   Picture1,   30,   30  
   
  '创建圆角矩形  
  Public   Sub   RoundRectFrame(objEllipse   As   Object,   Optional   ByVal   x3   As   Long   =   8   _  
                  ,   Optional   ByVal   y3   As   Long   =   8)  
          Dim   lngW   As   Long,   lngH   As   Long  
          Dim   hWndRet   As   Long  
           
          lngW   =   objEllipse.Width   \   Screen.TwipsPerPixelX  
          lngH   =   objEllipse.Height   \   Screen.TwipsPerPixelY  
           
          hWndRet   =   CreateRoundRectRgn(0,   0,   lngW,   lngH,   x3,   y3)  
          Call   SetWindowRgn(objEllipse.hWnd,   hWndRet,   True)  
           
  End   SubTop

7 楼visualbasic999（）回复于 2001-12-29 13:07:26 得分 0

谢了!Top

相关问题

• objellipse
• lngw
• hwndret
• lngh
• 按钮
• roundrectframe
• screen
• as long
• optional byval
• dim

• 帖主：visualbasic999
• sssa2000
• TrueZq

• Visual Basic类图书
• Visual Basic类源码下载