Alıntı:Text1 'i mouse ile tıklayıp butona basınca "Ayhan" yazsın
Text7 'i mouse ile tıklayıp butona basınca "Ayhan" yazsın
Text9' u mouse ile tıklayıp butona basınca "Ayhan" yazsın
ifadenize yönelik SADECE bir öneri olması adına,naçizane bir düşüncemi paylaşmak istiyorum.
neden her bir textbox denetimini tıkladıktan sonra buton tıklamasını da uygulamak istiyorsunuz?
bu hem harici gereksiz bir eylem olur hem de mouse tıklama ömrünü azaltmış oluyorsunuz.(30 kez textboxlara tıklama ve 30 kez de butonu tıklama)...
bunun yerine sadece direkt her bir textbox üzerine tıklandığında akabinde bu yazmayı istediğiniz ifadeyi yazsa daha iyi olmaz mı...
bunun için sayın ozan bey tarafından paylaşılan kodlarda küçük bir düzeltme yapmanız yeterli olacaktır.
KontrolAdiBul adlı fonksiyonun içeriğini
Kod:
Public Function KontrolAdiBul() As String
Dim SecilenMetinKutusu As Control
Set SecilenMetinKutusu = Screen.ActiveControl
KontrolAdiBul = SecilenMetinKutusu.Name
MetinKutusuAdi = KontrolAdiBul
Controls(MetinKutusuAdi) = "Ayhan"
End Functionböylece,direkt textboxları tıklamak sureti ile ifadeyi yazdırabilirsiniz,içeriklerine.
bilginize...iyi çalışmalar,saygılar.
