TextBox içindeki Tab ve Enter tuşları??

[udentr2002]

Merhaba arkadaşlar;
Textboxun içine yazıyı yazarken Tab tuşuna bastığımızda 2 karakter boşluk bırakması için vede textbox içine yazıyı yazarken Enter tuşuna bastığımızda imlecin yine aynı textbox içinde bir alt satıra geçmesi için bir şey yapabilirmiyiz böyle bir özellik belirlemek mümkünmü acaba Şimdiden ilgilenen tüm hocalarıma teşekkür ederim.

 

[udentr2002]

Şöyle bir ek bilgi vermek istedim eğer yapılabiliyorsa böyle bir şey bu bilgiler lazım olabilir diye düşündüm. Textbox içine toplam 43 karakter yazılabiliyor ve toplam 8 satır genişliğinde

 

[Orion1]

tab tuşunala ilgili istediğiniz oluyor ama enter tuşu ile isteğniz olmuyor.
Veya onu ben yapamadım.Ama isterseniz enter tuşu ile ilgili isteiğinizi aşağı ok tuşuna yaptırabiliriz.

 

[udentr2002]

Tamam Hocam Siz nasıl isterseniz bana uyar bir örnek yapıp gönderebilirseniz çok sevinirim hocam Enter tuşu yerine aşağı ok tuşuda uygundur.

bir satırda 43 karakter sığıyor ve topşam 8 satır sığıyor benim belirlediğim textbox içerisine

 

[Orion1]

enter tuşunuda ayarladım.
Ekli dosyayı inceleyiniz.

Dim s As Byte[B][COLOR="Red"]'Userformun GENERAL kısmına yazılacak[/COLOR][/B]
Private Sub TextBox1_Change()

End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If s = 1 Then
    Cancel = True
    s = 0
End If
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
On Error GoTo son
If KeyCode = 9 Then
    s = 1
    TextBox1.Value = TextBox1.Value & Space(2)
End If
If KeyCode = 13 Then
 s = 1
    TextBox1.Value = TextBox1.Value & vbLf
End If
son:
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
TextBox1.TabKeyBehavior = False
TextBox1.EnterKeyBehavior = False
End Sub

 

[udentr2002]

Hocam Çok teşekkür ederim Ellerinize sağlık

 

[Orion1]

Hocam Çok teşekkür ederim Ellerinize sağlık

Rica ederim.
iyi çalışmalar.

 

[BedriA]

enter tuşunuda ayarladım.
Ekli dosyayı inceleyiniz.

Dim s As Byte[B][COLOR="Red"]'Userformun GENERAL kısmına yazılacak[/COLOR][/B]
Private Sub TextBox1_Change()

End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If s = 1 Then
    Cancel = True
    s = 0
End If
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
On Error GoTo son
If KeyCode = 9 Then
    s = 1
    TextBox1.Value = TextBox1.Value & Space(2)
End If
If KeyCode = 13 Then
 s = 1
    TextBox1.Value = TextBox1.Value & vbLf
End If
son:
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
TextBox1.TabKeyBehavior = False
TextBox1.EnterKeyBehavior = False
End Sub

Evren Hocam,

Kod çalışıyor ancak textbox içinde metin varsa, metnin içindeki herhangi bir satırda enter a basıldığında, en alta gidiyor. Yani İmlecin önündeki satırları aşağı doğru çekmiyor.

Revize edilmesi mümkün mü acaba?

 

[Haluk]

Merhaba;

TextBox'da ki "Enter" tuşu için neden kod yazıyorsunuz ki ?

Textbox'ın "Multiline" özelliğini "True" yapın ve daha sonra imleci istediğiniz yere getirin, "Shift + Enter" tuşlayın.

İmleç, alt satıra geçecektir.


.

 

[BedriA]

Merhaba;

TextBox'da ki "Enter" tuşu için neden kod yazıyorsunuz ki ?

Textbox'ın "Multiline" özelliğini "True" yapın ve daha sonra imleci istediğiniz yere getirin, "Shift + Enter" tuşlayın.

İmleç, alt satıra geçecektir.

.

Haluk Hocam,

Bu kodu görene kadar dediğiniz şekilde yapıyordum ama belki kod revize edilir ve alışılageldiği gibi Enter kullanılır dedim.

Kullanıcı için daha rahat olur sanki.