不瞒你们说,我是菜鸟:
图片没有CLICK事件啊?

解决方案 »

  1.   

    调用api会好一些拉,
    Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
    Public Declare Function SetWindowRgn Lib "User32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As LongDim lRet As Long
        Dim dl As Long
        Dim MeWidth As Long
        Dim MeHeight As Long
        
        MeWidth = chWnd.Width / Screen.TwipsPerPixelX
        MeHeight = chWnd.Height / Screen.TwipsPerPixelY    lRet = CreateRoundRectRgn(0, 0, MeWidth, MeHeight, MeRlen, MeRlen)
        
        dl = SetWindowRgn(chWnd.hWnd(按钮), lRet, True)
      

  2.   

    请问:
    MeWidth = chWnd.Width / Screen.TwipsPerPixelX
    --------> chWnd代表什么?