[VB6] tonen van foto in een circel

[Verwijderd]

Voor een eenvoudige screensaver moet een foto getoond worden, netjes uitgesneden in een circel.

Foto tonen is eenvoudig, circle tekenen ook. Alleen hoe kan ik nou eenvoudig er voor zorgen dat alles buiten de circel van de foto wordt afgesneden.
Wil eigenlijk een gele achtergrond, met in een circel een foto.

Iemand?

[whoami]

Wat heb je zelf al geprobeerd?

[OZ-Gump]

Is het dan niet een idee om de foto gecentreerd weer te geven en vervolgens daar een laag overheen te zetten die het volledige scherm geel maakt, behalve een cirkel in het midden? De foto staat dan achter het gele vlak, dus zal daarvan alleen datgene zichtbaar zijn wat zich in de cirkel bevindt.

[Verwijderd]

Als je fotootjes wilt manipuleren kan je ook even op de onderstaande link kijken. Met een beetje her-proggen moet je al een eind komen denk ik. Deze sample code geeft iig aardig beeld wat mogelijk is (en hoe datgene mogelijk is)

http://www.advantage.co.nz/ur/imagepro2.htm

[Verwijderd]

OZ-Gump, da's precies wat ik wil... Ben aardig bekend met VB, alleen graphics programmeren heb ik nog niet eerder gedaan.

Whoami: vooral in de help gezocht etc.... heb ff een beginnetje nodig, vervolgens kom ik wel uit.... kan wel uren gaan zoeken, maar als iemand me even snel een voorzet kan geven, scheelt dat enorm veel tijd (en da's toch de bedoeling van een forum, niet het wiel opnieuw uitvinden!)

[Verwijderd]

Ik zal een aanzetje geven (de rest kan je hier wel uit afleiden denk ik al vergt een cirkel wel iets andere aanpak):

Maak een form zet daarop 5 shapes (rechthoeken) genaamd Shape1,Shape2,...,Shape5, voeg ook een Image toe (genaamd Image1). Zet van Shape2 t/m Shape5 de fillstyle op Solid. Plaats Shape1 gedeeltelijk over Image1 heen en run het programma.

Click en sleep nu het plaatje (op het zichtbare deel) het plaatje zal nu onder de mask heen- en weerschuiven.

Visual Basic:

Option Explicit
Option Base 0

'Code by [e-mail]

Private mStartX As Single
Private mStartY As Single

Private Sub MakeCutOut(inImage As Image, inShape As Shape)
    Dim MaskColor As Long
    Dim ShapeLeft As Shape
    Dim ShapeRight As Shape
    Dim ShapeTop As Shape
    Dim ShapeBottom As Shape
    
    MaskColor = vbYellow
    
    'Make the background same as maskcolor
    Me.BackColor = MaskColor
    'Make the shape border same as maskcolor
    inShape.BorderColor = MaskColor
    
    If inImage.Left < inShape.Left Then
        'We need to fill up the left side
        Set ShapeLeft = Shape2
        ShapeLeft.BorderColor = MaskColor
        ShapeLeft.FillColor = MaskColor
        
        ShapeLeft.Left = inImage.Left
        ShapeLeft.Top = inImage.Top
        ShapeLeft.Height = inImage.Height
        
        ShapeLeft.Width = inShape.Left - inImage.Left
        ShapeLeft.Visible = True
    End If
    
    If inShape.Top > inImage.Top Then
        'We need to fill up the top side
        Set ShapeTop = Shape3
        ShapeTop.BorderColor = MaskColor
        ShapeTop.FillColor = MaskColor
        
        ShapeTop.Left = inImage.Left
        ShapeTop.Top = inImage.Top
        ShapeTop.Width = inImage.Width
        
        ShapeTop.Height = inShape.Top - inImage.Top
        ShapeTop.Visible = True
    End If
       
       'inImage.Right > inShape.Right
    If inImage.Left + inImage.Width > inShape.Left + inShape.Width Then
        'We need to fill up the right side
        Set ShapeRight = Shape4
        ShapeRight.BorderColor = MaskColor
        ShapeRight.FillColor = MaskColor
        
        ShapeRight.Left = inShape.Left + inShape.Width
        ShapeRight.Top = inImage.Top
        ShapeRight.Width = inImage.Left + inImage.Width - (inShape.Left + inShape.Width)
        
        ShapeRight.Height = inImage.Height
        ShapeRight.Visible = True
    End If
    
    If inImage.Top + inImage.Height > inShape.Top + inShape.Height Then
        'We need to fill up the bottom side
        Set ShapeBottom = Shape5
        ShapeBottom.BorderColor = MaskColor
        ShapeBottom.FillColor = MaskColor
        
        ShapeBottom.Left = inImage.Left
        ShapeBottom.Top = inShape.Top + inShape.Height
        ShapeBottom.Width = inImage.Width
        
        ShapeBottom.Height = inImage.Top + inImage.Height - (inShape.Top + inShape.Height)
        ShapeBottom.Visible = True
    End If
End Sub

Private Sub Form_Load()
    MakeCutOut Image1, Shape1
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Image1.Visible = False
    If Button = 1 Then
        'Left mouseclick
        mStartX = X
        mStartY = Y
    End If
End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        Image1.Left = Image1.Left - (mStartX - X)
        Image1.Top = Image1.Top - (mStartY - Y)
    End If
    MakeCutOut Image1, Shape1
    Image1.Visible = True
End Sub

[-Klimaks-]

Op deze link http://www.mvps.org/access/forms/frm0053.htm vind je code om een anders gevormde form te maken. Het is wel voor access, maar ik vermoed dat het overdraagbaar is naar VB.