textboxda telefon numarası formatı

[udentr2002]

textboxa geldiğimde (0) yazısı otomatik yazmalı ve ben sıfır sayısının arkasına 4223217852 telefon numarsını yazdığımda textboxdaki görüntü (0) 422 321 78 52 şeklinde olmalı bunun için nasıl bir kod yazabilirim. şimdiden ilgilenen arkadaşlara teşekkür ederim

 

[Seyit Tiken]

Bu şekilde deneyin.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "(0) ### ### ## ##")
End Sub

 

[udentr2002]

teşekkürler

Ama hocam malsef olmadı belkişde ben anlatamadım
mesala textbox1 in exit olayında yani textbox1 den çıktığımız zaman textbox 2 de otamatik olarak (0) gelecek hemen imlec ) parantez kapama işaretinden sonra bekleyecek ve oraya 4223214556 gibi bir telefon numarası girip textbox2 den çıktığımızda textbox2 deki görüntü şölye olacak

(0)422 321 45 56 şeklinde olmalı bunu nasıl yapabiliriz

 

[sbayyigit]

Ama hocam malsef olmadı belkişde ben anlatamadım
mesala textbox1 in exit olayında yani textbox1 den çıktığımız zaman textbox 2 de otamatik olarak (0) gelecek hemen imlec ) parantez kapama işaretinden sonra bekleyecek ve oraya 4223214556 gibi bir telefon numarası girip textbox2 den çıktığımızda textbox2 deki görüntü şölye olacak

(0)422 321 45 56 şeklinde olmalı bunu nasıl yapabiliriz

Arkadaş neden olmadı ki? sayın seyit diken hocanın yaptığı şekilde textbox exit olayında şeklinde textboxa işliyor zaten. sanırım bir yerde hata yapıyorsun.

 

[Zeki Gürsoy]

Private Sub TextBox1_Enter()
    With TextBox1
        .Text = "0"
        .SelStart = 1
    End With
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1 = Format$(Right(TextBox1, Len(TextBox1) - 1), "(0) ### ### ## ##")
End Sub

 

[ahmett46]

Private Sub TextBox1_Enter()
    With TextBox1
        .Text = "0"
        .SelStart = 1
    End With
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1 = Format$(Right(TextBox1, Len(TextBox1) - 1), "(0) ### ### ## ##")
End Sub

.Text = "(0)" şeklinde yazıp, ama textbox a direk numara girmeye başladığımızda silinmese imleç (0) yanında dursa daha güzel olmazmı saygılar

 

[Zeki Gürsoy]

Olabilir.

Private Sub TextBox1_Enter()
    With TextBox1
        .Text = "(0)"
        .SelStart = 3
    End With
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1 = Format$(Right(TextBox1, Len(TextBox1) - 3), "(0) ### ### ## ##")
End Sub

 

[ahmett46]

Sayın Anemos mausla tıkladığımızda oluyor ama enterle textbox a geldiğimizde (0) yine siliniyor.