Paint Clip

Algo que se esta poniendo de moda son las imágenes recortadas en forma de círculo. Bueno aquí les dejo un código algo crudo para que practiquen.

	'by postapase
	'http://novatocodegambas.blogspot.com.uy/
	Private imagen As Image
	Public Sub Form_Open()
	Me.Title = "Paint.Clip"
	RadioButton1_Click()
	End
	Public Sub dibuja()
	Paint.Begin(DrawingArea1)
	Paint.Arc(128.0, 128.0, 120)
	Paint.Clip
	Paint.Scale(256 / imagen.Width, 256 / imagen.Height)
	Paint.Brush = Paint.Image(imagen, 128, 128)
	Paint.Rectangle(0, 0, 4096, 4096)
	Paint.Translate(-128, -128)
	Paint.Fill
	Paint.End
	End
	Public Sub btnExaminar_Click()
	Dialog.Path = User.Home
	Dialog.Filter = ["*.png;*.jpg;*.jpeg;*.bmp", "Picture files"]
	If Dialog.OpenFile() Then Return
	Select Case File.Ext(Dialog.Path)
	Case "png", "jpg", "jpeg", "bmp"
	Case Else
	Message.Error("Imagen no válida!")
	Return
	End Select
	imagen = Image.Load(Dialog.Path)
	dibuja()
	End
	Public Sub RadioButton1_Click()
	btnExaminar.Enabled = False
	imagen = Image.Load("clovis.jpg")
	dibuja()
	End
	Public Sub RadioButton2_Click()
	btnExaminar.Enabled = False
	imagen = Image.Load("julia-roberts.jpg")
	dibuja()
	End
	Public Sub RadioButton3_Click()
	btnExaminar.Enabled = False
	imagen = Image.Load("Jim_Carrey.png")
	dibuja()
	End
	Public Sub RadioButton4_Click()
	btnExaminar.Enabled = False
	imagen = Image.Load("russell-crowe.jpg")
	dibuja()
	End
	Public Sub RadioButton5_Click()
	btnExaminar.Enabled = True
	End
	Public Sub Button1_Click()
	Me.Close
	End

view raw playground.gbs hosted with ❤ by GitHub

El ejemplo esta en la granja de gambas.