Metin Kutusuna Yazının büyük harf yazılması
Tarih
18/03/2009 11:07
Konu Sahibi
sinan55
Yorumlar
7
Okunma
5306
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ü 
Sponsor Reklam
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ü 
Sponsor Reklam
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.546
7
30/10/2008
804
Tekirdağ
Ofis XP
Dün,13:07
Çözüldü 
Sponsor Reklam
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ı: 79)
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
  Formdaki Satırı Ekle Dediğimizde O Satırı Seçilenler Kutusuna Yollamak haziran4 5 53 Dün, 14:53 haziran4
  Raporda metin kutusunda özel görünüm. metbal 2 87 20/02/2017, 18:27 metbal
  Sorgudaki Toplamı Form Üzerinde ki Metin Kutusunda Göstermek haziran4 2 43 20/02/2017, 12:35 haziran4
  İsk2Sonuc Metin Kutusunu Urun Ara Toplam Metin Kutusuna Yazdırma haziran4 2 57 14/02/2017, 12:47 haziran4
Exclamation Access Büyük Verilerde Sorgu Hatası aydogdu_115 9 390 05/02/2017, 13:26 atoz112


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