请问如何将COMMAND按扭变成椭圆的?还有就是窗体左上角的小图标是哪里改的,谢谢

Question

请问如何将COMMAND按扭变成椭圆的?还有就是窗体左上角的小图标是哪里改的,谢谢

Answer 1

//请问如何将COMMAND按扭变成椭圆的?
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 LongPrivate Sub Command1_Click()
    Me.BackColor = &HFFFFFF
    With Me.Command1
        SetWindowRgn .hWnd, CreateEllipticRgn(0, 0, .Width / 15, .Height / 15), True
    End With
End Sub//还有就是窗体左上角的小图标是哪里改的
Me.Icon

Answer 2

不是做成椭圆的、加个边框就完了，还有很多效果、事件呢。
一般都是在自定义控件或标准控件上自绘，这些在网上有很多开源的代码。
到 http://www.mndsoft.com  搜索一下吧。记得要从基础学起。

Answer 3

这里下载一个：
http://explorer21.diy.myrice.com/VBcontrol.htm