Skip to main content

AccessTr.neT


Nesne Kopyalama ve diğer forma yapıştırma.

Nesne Kopyalama ve diğer forma yapıştırma.

Çözüldü #1
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.
.rar kopyalama.rar (Dosya Boyutu: 18,32 KB | İndirme Sayısı: 11)
.rar kopyalama 2003.rar (Dosya Boyutu: 16,94 KB | İndirme Sayısı: 3)
Son Düzenleme: 21/08/2011, 15:36, Düzenleyen: derebeyi.
Cevapla
Çözüldü #2
aşağıdaki örnek kod işinize biraz yardımcı olur Img-grin

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
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #3
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şImg-grin)) 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 falanImg-grin))
.rar Dragging.rar (Dosya Boyutu: 66,39 KB | İndirme Sayısı: 26)
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #4
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.
Cevapla
Çözüldü #5
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ü Img-grin
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #6
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task