[VBA] string değişkeni nesne adına çevirmek
#1
selam

string değişkeni nesne adına çevirmek
örneğin metin kutusunun adını string değişkene aldık
metin kutusunun adı txtmetin olsun

txtmetin adının ilk üç harfini lblmetin olarak değiştirip
bu değişkendeki yeni değer olan lblmetin i formda var olan bir etikette kullanmam gerekli

şimdi yapmak istediğim olay

direk labele tıkladığımda asıkıntı yok fakat metin kutusuna tıkladığımdada labele tıklanmış gibi değer almak ve bu değeri kullanmak

buradaki önemli faktör ise modül düzeyinde olması

saygılarımla

Visual Basic
  1. Dim strgmetin1 As String
  2. Dim strgmetin2 As String
  3. Dim strgmetin3 As String
  4.  
  5. Private Sub txtmetin_GotFocus()
  6. metinadi txtmetin
  7. MsgBox strgmetin3
  8. End Sub
  9.  
  10. Private Sub txtmetin(metin As Textbox)
  11.  
  12. strgmetin1 = metin.Name
  13. strgmetin2 = Mid(strgmetin1, 4, Len(strgmetin1))
  14. strgmetin3 = "lbl" & strgmetin2
  15. End Sub





  Alıntı
Bu mesajı beğenenler:
#2
Sn aydın3838; Konuyu cok net anlayamadim. etiketin degisimini text kutu adinin ilk dort hnesinden sonraki bolumu ile "lbl" birlikte asagida ki gibi yapilabilir.
Private Sub txtmetin_GotFocus()
Call Cevir
End Sub
Sub Cevir()
Me.Controls("Label1").Caption = "lbl" & Mid(Me.Controls("txtmetin").Name, 4, Len(Me.Controls("txtmetin").Name))
Me.Refresh
End Sub



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Access'e Yeni Tablo Oluşturarak Excel Import Etmek, Table'ı Sütunlara çevirmek... İlhanYaylıcı 25 1.179 02-10-2023, 13:32
Son Mesaj: halily
  Sorguda String Değeri Date Değerine çevirme. orderyazbim 4 217 22-04-2022, 12:32
Son Mesaj: halily
  Nesne Tanımlamada Sub Or Function Not Defined Hatası tarkanaykın 5 191 14-03-2022, 03:10
Son Mesaj: tarkanaykın
  Nesne Gizle Göster Eylemi. kamil_55 8 346 29-12-2021, 17:25
Son Mesaj: kamil_55
  Sayısal Veriyi Saat Dakikaya çevirmek footprinting 4 442 19-11-2020, 10:04
Son Mesaj: footprinting
  Form Içinde Kullanıcı Adına Göre Buton Göstermek marisyat 7 775 22-10-2020, 17:37
Son Mesaj: onur_can
  [SORGU] Ilişkisiz Nesne Biçimlendirme ÜmitSamlı 12 846 21-05-2020, 14:02
Son Mesaj: ÜmitSamlı
  [RAPOR] Tablodaki Yazıyı Raporda Sayıya çevirmek, Ve Toplatmak sefersanli 25 1.612 28-10-2019, 01:20
Son Mesaj: dsezgin

Foruma Git:


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