Nesne Kopyalama ve diğer forma yapıştırma. - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Nesne Kopyalama ve diğer forma yapıştırma. (/konu-nesne-kopyalama-ve-diger-forma-yapistirma.html) Sayfalar:
1
2
|
Nesne Kopyalama ve diğer forma yapıştırma. - derebeyi - 20/08/2011 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. Cvp: Nesne Kopyalama ve diğer forma yapıştırma. - Yandemir - 20/08/2011 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 Cvp: Nesne Kopyalama ve diğer forma yapıştırma. - mehmetdemiral - 20/08/2011 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)) Cvp: Nesne Kopyalama ve diğer forma yapıştırma. - derebeyi - 20/08/2011 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. Cvp: Nesne Kopyalama ve diğer forma yapıştırma. - Yandemir - 21/08/2011 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ü Cvp: Nesne Kopyalama ve diğer forma yapıştırma. - derebeyi - 21/08/2011 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. |