VB画圆形或椭圆形的图片框

Question

一半我们的图片框都是矩形的，载入的图片也只能是矩形，我现在想把矩形编程圆形的或椭圆形，也就是说任意形状的图片框，使载入的图片显示为圆形，应该怎么编程序呢，谢谢帮忙解答

Answer 1

Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) 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 DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Sub Command1_Click()
    Dim h As Long
    Dim hCl As Long, hC As Long
    h = Picture1.hWnd
    hC = CreateEllipticRgn(40, 50, 200, 210)
    If hC <> 0 Then
       SetWindowRgn h, hC, True
    End If
    DeleteObject hC    
End Sub