textbox'a alt alta

[emrexcel123]

arkadaşlar ekte basit bir msn formu yaptım yazılanları alt alta nasıl yazdırabilirm....

 

[ileriexcel]

Şu şekil değiştirin

say = WorksheetFunction.CountA([a1:a65000]) + 4
Cells(say, 1) = TextBox1.Text

 

[emrexcel123]

satır

arkadaşım hücreye aktarmayı biliyorum fakat textbox'daki yazıları alt alta nasıl yazdırabilirim....(eki inceledin mi peki)

 

[Levent Menteşoğlu]

Textboxların properties penceresinden multiline özelliklerini true yapın.

 

[Zeki Gürsoy]

Merhaba,
Öncelikle Form1 deki TextBox'un "Multiline" değerini "True" yapın.
Bundan sonra alt satıra geçmek için (Messengerde de olduğu gibi)
Ctrl + Enter tuş kombinasyonu kullanmanız gerekir.

İyi çalışmalar...

 

[Levent Menteşoğlu]

Gönder butonunada aşağıdaki kodu yazarak deneyin.

Private Sub CommandButton1_Click()
If TextBox2.Text = "" Then
Exit Sub
End If
TextBox1.Text = TextBox1 & Chr(13) & Range("a4").Text & (" : ") & TextBox2.Text
TextBox2.Text = ""
End Sub

 

[emrexcel123]

sn hocam ve arkadaşlarım

beni yanlış anladınız ya da kendimi yanlış anlattım bağışlayın benim istediğim şey şu(belki fazla oldum ama)textbox2 benim yazdığım bölüm textbox1 ise karşının göreceği bölüm ben textbox2'e yazı yazdığım zaman textbox genişliği ne kadarsa o kadar kelime yazılabilsin sığmazsa alta aktarsın textbox1'de aynı şekilde aktarsın maxlength özelliğini kullandım fakat bu seferde verdiğim aralık kadar harf girebiliyorum umarım anlatabilmişimdir...

 

[Zeki Gürsoy]

textbox2'e yazı yazdığım zaman textbox genişliği ne kadarsa o kadar kelime yazılabilsin sığmazsa alta aktarsın textbox1'de aynı şekilde aktarsın

Bu istediğiniz TextBoxlar "Multiline = True" olduğunda içerik, hem otomatik olarak hem de Ctrl + Enter ile alt satıra atılıyor.

 

[emrexcel123]

arkadaşlar

bende bir sorun var herhalde olmuyor neyse yine de sağolun ben kendim bulmaya çalışacağım...

 

[Zeki Gürsoy]

Sizin için dosyanızı düzenledim.

Mesaj yazılan yerde(textbox2 de) , "Enter" ile mesajı Panoya(Textbox1) atar.

Yine Textbox2 deyken "Ctrl + Enter" ile Textbox2 de 2. satıra da geçebilirsiniz.

 

[emrexcel123]

işte bu ya

işte bu ya işte bu Allah'a şükür sn anemos size çok teşekkür ederim.son bir soru peki ya "ESC" tuşuna basınca kapanması için hangi tuş kodu lazım yani enter = 13 esc = ? ve hocam chr (10) "chr" = ? ne demek...(saolasın)

 

[Zeki Gürsoy]

"ESC" tuş kodu 27'dir.
chr(10) ise, 10= Ctrl + Enter birlikte kullanım tuş kodudur.
13 deseydik, yalnız Enter tuşuna basılma olayı gerçekleşecekti.

Konu açılmışken String fonksiyonu olan Asc(), sayısal kod döndürür.
Ör: Asc("A")=65'tir.

Chr() fonksiyonu ise bunun tam tersidir.
Ör: Chr(65)="A"

İyi çalışmalar.

 

[Levent Menteşoğlu]

Ek bir bilgi Esc ile kapanması için koda gerek yoktur. Formu kapatan yani unload me komutunun yazılı olduğu bir butonun properties penceresindeki "cancel" özelliğini true yaparsanız Esc tuşuna basınca kodu çalıştırabilirsiniz.