[VBA] Formdaki nesnelerin isimlerini değişkene atama
#1
Merhaba değerli arkadaşlar,

-Form üzerinde bulunan metin kutusunın adı "metinkutusu1" olsun. Metin kutusunun ismini öncelikle VBA'da tanımlanan bir değişkene atamak istiyorum. Daha sonra bu değişkenin ismini değiştirdiğimde ilgili nesnenin de adı değişmeli. Umarım anlatabilmişimdir. Şu şekilde bir örnek geldi aklıma sizinle paylaşıyorum:

Visual Basic
  1. 'a1 adlı bir değişken tanımlayalım. a1 string olmamalı sanırım ama ne olması
  2. 'gerektiğine karar veremedim
  3. Dim a1 as string
  4. 'a1 metinkutusu1'e eşit olmalı
  5. a1.value=metinkutusu1
  6. 'Eğer a1'in adı, görünürlülüğü gibi özellikleri değiştiğinde, metinkutusu1'in de
  7. 'özelliklerinin değişmesi gerekiyor. a1.name diye bir komut var mı? Ben bilemedim.
  8. a1.name="Yeni_ad"
  9. a1.visible=false



Eğer böyle bir şey mümkün değilse lütfen söyleyin. Boşuna ömrümü heba etmeyimSmile Hayırlı günler, iyi çalışmalar.



  Alıntı
Bu mesajı beğenenler:
#2
Objelerin isimlerini dinamik olarak değiştiremezsiniz. İsimlerine göre işlem yaptırmayı düşünüyorsanız "tag"(im) değerlerine değer atayın.

me.MetinKutum.tag= "beab"


gibi..

Javascript
  1. this.setState({sign:"Here comes the sun...."})







  Alıntı
Bu mesajı beğenenler:
#3
Sayın Berkant Öztürk,
Öncelikle değerli cevabınız için teşekkür ederim. Şu ana kadar Tag (im) hiç kullanmadım. Bu yüzden biraz açıklamaya ihtiyacım var. Örneğin, formda 3 adet metin kutusu olsun.Bunlar:
metinkutusu1-metinkutusu2-metinkutusu3

Şimdi bu metin kutularının her birinin Tag (im) kısmına grup1 yazsam. Daha sonra bu metin kutularının rengini toplu olarak değiştirmek istesem. Nasıl bir kod yazmalıyım?
Visual Basic
  1. me.grup1.backcolour=0


gibi bir kod işimi görür mü?



  Alıntı
Bu mesajı beğenenler:
#4
Merhaba;

Alttaki gibi yapabilirsiniz.

Bir düğmede test edin. 3 metinkutusunu da kırmızı yapar.


Visual Basic
  1. Dim bb As String
  2.  
  3. bb = "grup1"
  4.  
  5. Me.Metin0.Tag = bb
  6. Me.Metin2.Tag = bb
  7. Me.Metin4.Tag = bb
  8.  
  9. Dim ctl As Control
  10.  
  11. For Each ctl In Me.Controls
  12.  
  13. If ctl.Tag = bb Then
  14. ctl.BackColor = vbRed
  15. End If
  16. Next


Javascript
  1. this.setState({sign:"Here comes the sun...."})







  Alıntı
Bu mesajı beğenenler:
#5
Sayın Berkant Öztürk,
Şu an inanılmaz mutluyum. Ne kadar teşekkür etsem azdır. Saatlerce kod yazmaktan sayenizde kurtuldum. Çok ama çok teşekkür ediyorum. Allah razı olsunSmile



  Alıntı
Bu mesajı beğenenler:
#6
Dostlar merhabalar ve günaydınlar.

Acaba, rica etsem küçük bir örnek dosyada bu konuyu gösterebilir misiniz?

Teşekkürler.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Ana Form Ve Alt Formdaki Checkbox'lı Alanlardaki Verileri Buton Ile Null Yapmak. M_Kemal_Askeri 1 24 2 saat önce
Son Mesaj: dsezgin
  [RAPOR] Formdaki Aynı Rrsmı Baskı ön ızleme ıle Rapora Aktarma MHMTKY 2 415 11-09-2024, 13:09
Son Mesaj: dsezgin
  Ana Forma Bağlı Alt Formdaki Verilerin Ana Formda Toplamını Almak ozan028 5 496 09-09-2024, 17:14
Son Mesaj: ozan028
  Etiket Isimlerini Toplu Değiştirme hedefkaya 1 347 24-10-2023, 21:06
Son Mesaj: dsezgin
  Kısayol atama işlemi nasıl yapılır? algoritma 24 16.032 21-06-2023, 09:14
Son Mesaj: ates2014
  Kaldırılan Alan Ve Nesnelerin Vba De Hala Gözükmesi Hk. adnnfrm 1 450 09-05-2023, 20:56
Son Mesaj: halily
  Formdaki Veriyi Rapora Aktaramadım ankaram 2 394 18-02-2023, 21:51
Son Mesaj: ankaram
  Aktif Formdaki Raporu Yazdırma ankaram 3 442 27-01-2023, 00:46
Son Mesaj: BeyTor

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi