Selam üstadlar;

Form1 de yer alan iki kutudan (bu kutu değilde bir küçük resim veya bir ikon da olabilir) hangisini istersek onu kopyalayıp, form2 üzerinde movesize benzeri bir şekilde bizim belirttiğimiz bir yere yapıştırmasını sağlayabilirmiyiz? Teşekkürler.

aşağıdaki örnek kod işinize biraz yardımcı olur

Sub NewControls()
Dim frm As Form
Dim ctlLabel As Control, ctlText As Control
Dim intDataX As Integer, intDataY As Integer
Dim intLabelX As Integer, intLabelY As Integer

' Create new form with Orders table as its record source.
Set frm = CreateForm
frm.RecordSource = "Orders"
' Set positioning values for new controls.
intLabelX = 100
intLabelY = 100
intDataX = 1000
intDataY = 100
' Create unbound default-size text box in detail section.
Set ctlText = CreateControl(frm.Name, acTextBox, , "", "", _
intDataX, intDataY)
' Create child label control for text box.
Set ctlLabel = CreateControl(frm.Name, acLabel, , _
ctlText.Name, "NewLabel", intLabelX, intLabelY)
' Restore form.
DoCmd.Restore
End Sub

Sevgili dostum, sana verdiğim şu örnekte tıpkı senin form 1'deki kutuların var. Acaba tesadüf mü? Bu arada bu müthiş örnek sende yoksa, derdinin dermanı olacağına eminim. Varsa, demek ki senin kafan bir yerde durmuş)) Bu yayınladığım örnekte taşınan renkli kürelerin en ve boy olarak istedeiğin büyüklüğe geldiğini farkedersin sanırım. Üzerine fareyle gelince falan))

Sn Mehmet Hocam, gerçekten müthiş bir örnek.Çok teşekkür ederim. Mutlaka çok işime yarayacak, ancak bu örnek etiketler ile çalışır durumda kodlanmış. Benim merak ettiğim konu ise forma eklenen bir resimin benim istediğim kadar kopyalanarak istediğim yere yapıştırılıp yapıştırılamayacağı ile ilgili. Bu konuda fikriniz varsa öğrenmekten mutluluk duyarım.

Sn yandemir hocam sizin kodlarıda denedim ama muvaffak olamadım.

Destekleriniz için teşekkür ederim.

benim örnek kod yeni bir form yaratır ve içine "order" isimli tabloyu data olarak bağlar ve label & textbox yaratır. gerisi hayal gücü

Murat hocam, kodların çalışması ile ilgili bir sıkıntı yok, söylediğiniz işlemi gerçekleştiriyor. Fakat benim istediğim yeni oluşturması değil, var olan bir nesneyi (resim vb.) kopyalayarak istediğim yere yapıştırması. Teşekkürler.