像OICQ上面那些圆的按钮用什么方法制作阿？

Question

请教~

Answer 1

自己画的图然后做的按钮效果还有，是QQ，不是OICQ了

Answer 2

这个自己用photoshop画一个不就OK了,,,,

Answer 3

用photoshop 画,然后用 paintpicture  画上就可以

Answer 4

就是，虽然API里有裁减函数可以控制按钮的外形，不过不好看

Answer 5

//QQ上面的确实是按钮。qq上得圆形是图片合成的吧，应该跟realone类似吧

Answer 6

大致就是这样：
Option Explicit
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Sub Form_Load()
    Dim mRGN  As Long
    mRGN = CreateEllipticRgn(0, 0, Me.Command1.Width / Screen.TwipsPerPixelX, Me.Command1.Height / Screen.TwipsPerPixelY)
    'Set the window region
    SetWindowRgn Me.Command1.hWnd, mRGN, True
    DeleteObject mRGN
End Sub

Answer 7

得用BMP图片
我见过，冰儿马甲的，就是太大了，55K啊！