Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
27/03/2014 16:09
Konu Sahibi
vetaltan
Yorumlar
6
Okunma
1616
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

vetaltan

Aktif Üye
Kullanici Avatari
Aktif Üye
A.... A....
100
16/11/2009
10
İstanbul
Ofis 2000
12/01/2016,19:49
Çözüldü 
Değerli arkadaşlar,
Form üzerinde 5 adet çizgim var,her biri için tek tek vb kod yazmak yerine,formdaki metin kutusu içindeki değişkeni dim ile tanımlayarak ,Line2 vs. yerine L.Left=x kodunu yazmaya çalıştım ama nesne gerekli uyarısı alıyorum.Kod içinde nerede hata yaptım çok uğraşmama rağmen bulamadım.Yardımlarınız için şimdiden teşekkürler.


Ek Dosyalar
.rar   line.rar (Dosya Boyutu: 11,74 KB / İndirme Sayısı: 8)
vetaltan 16-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.863
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,02:36
Çözüldü 
Aşağıdaki kodu deneyebilir misin?

Visual Basic Code
1
2
3
4
5
6
7
Me.Controls("Line" & Forms!Form1!sayi.Value).Tag = "Line" & Forms!Form1!sayi.Value
For Each ctl In Me.Controls
        If ctl.Tag = "Line" & Forms!Form1!sayi.Value Then
            ctl.Left = 2500
            ctl.Top = 2500
        End If
Next


Cevapla

vetaltan

Aktif Üye
Kullanici Avatari
Aktif Üye
A.... A....
100
16/11/2009
10
İstanbul
Ofis 2000
12/01/2016,19:49
Çözüldü 
Sn. ozanakkaya,
Göndermiş olduğunuz kod için teşekkür ederim,gayet iyi çalışıyor.Sayenizde sorunum çözüldü.


vetaltan 16-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

vetaltan

Aktif Üye
Kullanici Avatari
Aktif Üye
A.... A....
100
16/11/2009
10
İstanbul
Ofis 2000
12/01/2016,19:49
Çözüldü 
Aynı anda metin kutularına da bunu nasıl uygulayabiliriz.Çünkü her bir çizginin bir ismi var ve çizgilerin hemen altlarında bulunmaları gerekiyor.Bu metin kutuları da referanslarını sayi' dan alıyorlar.


vetaltan 16-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.863
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,02:36
Çözüldü 
Tam anlayamadım ama örnek uygulama hazırladım. Metin kutuları çizgilerin altında.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Me.Controls("Line" & Forms!Form1!sayi.Value).Tag = "Line" & Forms!Form1!sayi.Value
Me.Controls("Metin" & Forms!Form1!sayi.Value).Tag = "Metin" & Forms!Form1!sayi.Value
For Each ctl1 In Me.Controls
        If ctl1.Tag = "Line" & Forms!Form1!sayi.Value Then
            ctl1.Left = 2500
            ctl1.Top = 2500
        End If
Next
For Each ctl2 In Me.Controls
        If ctl2.Tag = "Metin" & Forms!Form1!sayi.Value Then
            ctl2.Left = 2500
            ctl2.Top = 3700
        End If
Next


Ek Dosyalar
.rar   line_sld.rar (Dosya Boyutu: 13,39 KB / İndirme Sayısı: 6)
Cevapla

vetaltan

Aktif Üye
Kullanici Avatari
Aktif Üye
A.... A....
100
16/11/2009
10
İstanbul
Ofis 2000
12/01/2016,19:49
Çözüldü 
Sn. ozanakkaya,
Yanıtınız için çok teşekkür ederim.İkinci sorumu sanırım eksik yazdım,aynı anda'dan kastım aslında ;aynı for each next döngüsü içinde hem ctl1 ve hem ctl2 yi tanımlayabilirmiz şeklinde olması gerekiyordu.
Çünkü çok sayıda metin kutusu (ad,uzunluk,açı vb.) ve çok sayıda çizgi tipi var .Ayrıca mousemove olayında da ,mouse'un başlangıç noktası ve hareket yönüne göre dört adet (w >= 0 And h >= 0 , w >= 0 And h < 0 vb.)seçenek var.Dolayısıyla ayrı ayrı for each next döngüsü yazmam durumunda kod çok uzun ve karmaşık hale geliyor.


vetaltan 16-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Dış Veri Alı Butona Atamak. Güven Ongun 6 596 06/05/2017, 01:41 Güven Ongun
Çözüldü Fiyat Listesi Atamak 53rize 11 717 04/11/2016, 13:32 53rize
Çözüldü Belirli bir klavye tuşunu olay yordamı olarak atamak mehmetb84 4 617 18/02/2016, 23:50 mehmetb84
Çözüldü Formdan Forma kritere göre veri atamak yorum70 5 895 03/07/2015, 00:07 yorum70
Çözüldü Tablodan Global değişken atamak Yunus Bozkurt 3 769 10/05/2015, 19:34 Yunus Bozkurt

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.