Metin Kutusuna Yazının büyük harf yazılması
Tarih
18/03/2009 11:07
Konu Sahibi
sinan55
Yorumlar
7
Okunma
5110
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



sinan55
Aktif Üye
Kullanici Avatari
Aktif Üye
134
07/02/2009
0
Samsun
Ofis 2013 Tr. 64 Bit
16/01/2015,09:40
Çözüldü 
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.
Cevapla


tdsharun
>>> O Şimdi Sivil<<<
Kullanici Avatari
Aktif Üye
778
06/11/2008
225
Kütahya
Ofis 2003
31/12/2011,02:16
Çözüldü 
Bahsettiğiniz alanın güncelleştirme sonrasında olayında şu kodu kullanın:

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
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)


Metin kutusundan çıktığınızda otomatik olarak harfler büyüyecektir. Çıkıldığında olayına da koyabilirsiniz.

Kolay gelsin...

Cevapla


sinan55
Aktif Üye
Kullanici Avatari
Aktif Üye
134
07/02/2009
0
Samsun
Ofis 2013 Tr. 64 Bit
16/01/2015,09:40
Çözüldü 
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.
Cevapla


tdsharun
>>> O Şimdi Sivil<<<
Kullanici Avatari
Aktif Üye
778
06/11/2008
225
Kütahya
Ofis 2003
31/12/2011,02:16
Çözüldü 
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... Img-grin

Ben bugüne kadar görmedim. Tabi ustalardan biri çıkar "Var" der, biz de öğrenmiş oluruz... Img-grin

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... Img-grin
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...
Cevapla


Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.544
7
30/10/2008
804
Tekirdağ
Ofis XP
02/12/2016,15:18
Çözüldü 
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.
resim 

Listeden "Microsoft Forms 2.0 TextBox" seçeneğini seçin
ve formda herhangi bir yere tıklayın.
resim 

Kod kısmında change olayına şunu yazıyoruz.

Kod:
Private Sub TextBox3_Change()
    Me.TextBox3 = UCase(Replace(Me.TextBox3, "i", "İ"))
End Sub

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.



Ek Dosyalar
.rar   BuyukHarf_Seruz.rar (Dosya Boyutu: 113,01 KB / İndirme Sayısı: 77)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla


sinan55
Aktif Üye
Kullanici Avatari
Aktif Üye
134
07/02/2009
0
Samsun
Ofis 2013 Tr. 64 Bit
16/01/2015,09:40
Çözüldü 
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.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Liste kutusuna tıklayınca metin kutusuna bilgiyi getirme nightashes 5 92 28/11/2016, 23:33 nightashes
  Metin Kutusu Hk. Serkan Çevik 2 66 25/11/2016, 23:40 Serkan Çevik
Çözüldü seçime bağlı metin kutusunu tabloda aktif veya pasif yapma EROLAKSAKAL 13 4.013 12/11/2016, 11:48 atoz112
  Liste Kutusuna Kayıt ekleme mmert06 6 196 28/10/2016, 22:59 mmert06
  Liste Kutusuna Veri Çekme Allback 2 133 12/10/2016, 11:27 Allback


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya