Arkadaşlar.
Metin kutusuna yazı yazarken her karakteri hemen büyük harfe çevirmenin yolu var mı? Normal biçimi > yaptığında büyük harf yapıyor fakat ben bıraktığım her karakteri anında büyütmesini istiyorum. İlginize şimdiden teşekkür ederim.
Metin Kutusuna Yazının büyük harf yazılması
Bahsettiğiniz alanın güncelleştirme sonrasında olayında şu kodu kullanın:
Metin kutusundan çıktığınızda otomatik olarak harfler büyüyecektir. Çıkıldığında olayına da koyabilirsiniz.
Kolay gelsin...
Kod:
Dim metin, uce, UCaseEx, A
metin = Me.MetinKutusununAdı
For uce = 1 To Len(metin)
If Asc(Mid(metin, uce, 1)) = 105 Then metin = left(metin, uce - 1) & "İ" & Mid(metin, uce + 1)
If Asc(Mid(metin, uce, 1)) = 253 Then metin = left(metin, uce - 1) & "I" & Mid(metin, uce + 1)
Next uce
uce = 0
UCaseEx = UCase(metin)
Me.MetinKutusununAdı = Trim(UCaseEx)
Kolay gelsin...
Sayın tdsharun
ilginize teşekkür ederim. Bu yazmış olduğunuz kod metni komple büyük harfe çeviriyor. Bu da işimizi görür. Fakat benim demek istediğim "Zaman" yazarken "z" harfini yazdıktan sonra "a" harfine bastığımda "z" harfini büyük yapması idi. Ben antalmak istediğim tam anlatamamış olabilirim. Örneğiniz için de teşekkür ederim.
ilginize teşekkür ederim. Bu yazmış olduğunuz kod metni komple büyük harfe çeviriyor. Bu da işimizi görür. Fakat benim demek istediğim "Zaman" yazarken "z" harfini yazdıktan sonra "a" harfine bastığımda "z" harfini büyük yapması idi. Ben antalmak istediğim tam anlatamamış olabilirim. Örneğiniz için de teşekkür ederim.
Bu söylediğiniz için metin kutusuna girilen değeri test etmek gerekir. Ancak siz hala o metin kutusunun içinde olduğunuzdan dolayı test edemez ve hata verir. Bu örneği Değiştiğinde olayıyla deneyin mesela. Hata verir... Çünkü henüz o metin kutusunu denetleyebilmesi için gerekli ortam oluşmamıştır. Yani siz hala o metin kutusunun içindesinizdir...
Belki bunun da bir yöntemi vardır. Ancak şunu kesinlikle söyleyebilirim ki eğer öyle bir yöntem varsa bile bu kod gibi bir kod değildir...
Ben bugüne kadar görmedim. Tabi ustalardan biri çıkar "Var" der, biz de öğrenmiş oluruz...
Sayın Sinan55, sizden bir ricam var: Genelde sorduğunuz sorulara en geç 1 saat içinde cevaplar veriliyor. Ancak siz konunuzu takip edip geri bildirimde bulunmuyorsunuz. İlk defa beni şaşırttınız ve konuya cevap verdiniz. Sanırım o da tam istediğiniz olmadığından...
Mümkünse bundan sonra size verilen cevaplara sorununuzun çözülüp çözülmediği ile ilgili geri bildirimde bulunabilir misiniz?
Böylece biz de o konuyu çözümlenmiş sorulara taşıyabilelim ve forum kirliliğini önleyebilelim...
Anlayışınız için şimdiden teşekkürler...
Kolay gelsin...
Belki bunun da bir yöntemi vardır. Ancak şunu kesinlikle söyleyebilirim ki eğer öyle bir yöntem varsa bile bu kod gibi bir kod değildir...
Ben bugüne kadar görmedim. Tabi ustalardan biri çıkar "Var" der, biz de öğrenmiş oluruz...
Sayın Sinan55, sizden bir ricam var: Genelde sorduğunuz sorulara en geç 1 saat içinde cevaplar veriliyor. Ancak siz konunuzu takip edip geri bildirimde bulunmuyorsunuz. İlk defa beni şaşırttınız ve konuya cevap verdiniz. Sanırım o da tam istediğiniz olmadığından...
Mümkünse bundan sonra size verilen cevaplara sorununuzun çözülüp çözülmediği ile ilgili geri bildirimde bulunabilir misiniz?
Böylece biz de o konuyu çözümlenmiş sorulara taşıyabilelim ve forum kirliliğini önleyebilelim...
Anlayışınız için şimdiden teşekkürler...
Kolay gelsin...
Direkt sizin söylediğiniz şekilde benimde aklıma gelen bir yöntem yok
ancak ActiveX text box ile her tuşa basıldığında change olayı aktif oluyordu,
diye hatırlıyorum. Onu bir deneyip yazarım sonucu.
Veya daha güzel bir yol; istediğiniz textbox aktif olduğunda veya form açıldığında,
CapsLock tuşunu bir kodla büyük harfe çevirmek olabilir.
Google hazretleri ile böyle bir kod aranabilir mesela.
Evet ActiveX text box ile istediğiniz gibi,
harfe basıldığında anında büyük harfe çevirme olayı oldu.
ActiveX Text Box eklemek için form tasarımında iken
resimdeki butona basıyorsunuz.
Listeden "Microsoft Forms 2.0 TextBox" seçeneğini seçin
ve formda herhangi bir yere tıklayın.
Kod kısmında change olayına şunu yazıyoruz.
Not: Ucase fonksiyonu küçük "i" harfini büyük "I" ya çevirdiği için ek olarak Replace eklendi.
Aslında ActiveX TextBox arama veya filtreleme olayında, her tuşa basıldığında güncelleme yapılabildiği için çok işe yarar.
ancak ActiveX text box ile her tuşa basıldığında change olayı aktif oluyordu,
diye hatırlıyorum. Onu bir deneyip yazarım sonucu.
Veya daha güzel bir yol; istediğiniz textbox aktif olduğunda veya form açıldığında,
CapsLock tuşunu bir kodla büyük harfe çevirmek olabilir.
Google hazretleri ile böyle bir kod aranabilir mesela.
Evet ActiveX text box ile istediğiniz gibi,
harfe basıldığında anında büyük harfe çevirme olayı oldu.
ActiveX Text Box eklemek için form tasarımında iken
resimdeki butona basıyorsunuz.
Listeden "Microsoft Forms 2.0 TextBox" seçeneğini seçin
ve formda herhangi bir yere tıklayın.
Kod kısmında change olayına şunu yazıyoruz.
Kod:
Private Sub TextBox3_Change()
Me.TextBox3 = UCase(Replace(Me.TextBox3, "i", "İ"))
End Sub
Aslında ActiveX TextBox arama veya filtreleme olayında, her tuşa basıldığında güncelleme yapılabildiği için çok işe yarar.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Konfüçyüs
Sayın tdsharun
Bu dediğim olay akbank ın internet bankacılık giriş sayfasında var. orada gördüğüm için sordum.fakat gönderdiğiniz kodu uyguladım. en azından kayıt ederken bütün metni büyük harf yapıyor.
Benim mesleğim plastik kalıp tasarımcılığı.diyeceksiniz ki ne alakası var. bir kalıbın hem tasarımı ile hemde katı modelini yaparak cnc tezgahlarında işlemesiyle uğraşıyorum. Bu projeyi iş yerinde yaptığım için fazla boş vaktim olmuyor. Sorduğum sorulara mümkün olduğunca cevap vermeye çalışıyorum. fakat bazen araya zaman girip unuttuklarım olabiliyor. bu yüzden cevap veremediğim konular için kusura bakmayın.
Sayın seruz ilgin için sanada teşekkür ederim.
Bu dediğim olay akbank ın internet bankacılık giriş sayfasında var. orada gördüğüm için sordum.fakat gönderdiğiniz kodu uyguladım. en azından kayıt ederken bütün metni büyük harf yapıyor.
Benim mesleğim plastik kalıp tasarımcılığı.diyeceksiniz ki ne alakası var. bir kalıbın hem tasarımı ile hemde katı modelini yaparak cnc tezgahlarında işlemesiyle uğraşıyorum. Bu projeyi iş yerinde yaptığım için fazla boş vaktim olmuyor. Sorduğum sorulara mümkün olduğunca cevap vermeye çalışıyorum. fakat bazen araya zaman girip unuttuklarım olabiliyor. bu yüzden cevap veremediğim konular için kusura bakmayın.
Sayın seruz ilgin için sanada teşekkür ederim.
Konuyu Okuyanlar: 1 Ziyaretçi