Karakter Birtürlü değişmedi

[Cekici]

 
Public Function ceevir(ByVal islem As String) As String
        Dim result As String
        Dim strip As String
        Dim lead As String
        Dim length1 As Integer
        Dim length2 As Integer
        Dim position As String
        Dim length As Integer
        length1 = 0
        If islem = "" Then islem = "0"
        strip = islem.Replace("(", "")
        strip = strip.Replace(")", "")
        strip = strip.Replace("-", "")
        strip = strip.Replace(" ", "")
        Debug.WriteLine(strip, "Strip value")
        length = strip.Length
        Debug.WriteLine(length, "Length of strip")
        Do
            position = strip.Substring(length1, 1)
            Debug.WriteLine(position, "Position")
            length2 = length1
            length1 = length1 + 1
            If position Like "[0-9]" = False Then length1 = length
        Loop Until (length1 = length)
        Debug.WriteLine(length2, "Length2")
        Debug.WriteLine(position, "Position")
        If position Like "[0-9]" = True Then
            If length = 10 Then
                result = "(" & strip.Substring(0, 3) & ") " & strip.Substring(3, 3) & " " & strip.Substring(6, 2) & " " & strip.Substring(8, 2)
            ElseIf length = 11 Then
                result = "(" & strip.Substring(1, 3) & ") " & strip.Substring(4, 3) & " " & strip.Substring(7, 2) & " " & strip.Substring(9, 2)
            Else
                result = islem
            End If
        End If
        Return result
    End Function
    Private Sub TextBox10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox10.TextChanged
        Dim result As String
        If Me.TextBox10.Text.Length = 10 Then
            result = ceevir(TextBox10.Text)
            TextBox10.Text = result
            TextBox10.SelectionStart = 17
        End If
    End Sub
    Private Sub TextBox11_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox11.TextChanged
        Dim result As String
        If Me.TextBox11.Text.Length = 10 Then
            result = ceevir(TextBox11.Text)
            TextBox11.Text = result
            TextBox11.SelectionStart = 17
        End If
    End Sub
    Private Sub TextBox10_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox10.KeyDown
        If e.KeyCode = Keys.Back Then
            Dim m As String
            If Me.TextBox10.Text.Length = 15 Then
                Me.TextBox10.Text = Replace(Me.TextBox10.Text, ")", "")
                Me.TextBox10.Text = Replace(Me.TextBox10.Text, " ", "")
            End If
            If Me.TextBox10.Text.Length = 11 Then
                m = Microsoft.VisualBasic.Mid(Me.TextBox10.Text, 3, 12)
                Me.TextBox10.Text = m
            End If
        End If
    End Sub

bir tane telefon numarası var örn= (216) 222 22 22 diye

If e.KeyCode = Keys.Back Then
Dim m As String
If Me.TextBox10.Text.Length = 15 Then
Me.TextBox10.Text = Replace(Me.TextBox10.Text, ")", "")
Me.TextBox10.Text = Replace(Me.TextBox10.Text, " ", "")
End If
koduyla boşlukları ve ) işaretini sildim ama bunların içine bunu ( da koyunca, diğerlerinide yapmaktan vaz geçiyor. bende yukarıdaki gibi denedim ama nafile şimdi ben textbox10 da backspace tusuna basınca numara 2162222222 şekline gelmesini istiyorum enson (2162222222 da kaldım parantezi silemedim sağdan aldım soldan aldım yine yok olmuyor bi türlü.

[Euclides]

1.Yöntem
"Enter"'e basıtğında metini düzeltir.

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim x As String
x = ""
If KeyCode = 13 Then
    For i = 1 To Len(Text1.Text)
        If ((Asc(Mid(Text1.Text, i, 1)) <= Asc("9")) And (Asc(Mid(Text1.Text, i, 1)) >= Asc("0"))) Then
            x = x & Mid(Text1.Text, i, 1)
        End If
    Next i
Text1 = x
End If
End Sub

2.Yöntem
TextBox'a sadece rakam girilebilir.

Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal nNew As Long) As Long
Const GWL_STYLE = (-16)
Const ES_NUMBER = &H2000
Private Sub Form_Load()
SetWindowLong Text1.hWnd, GWL_STYLE, GetWindowLong(Text1.hWnd, GWL_STYLE) Or ES_NUMBER
End Sub

[muharrem_tac]

Ben böyle denedim çalıştı :

If Me.TextBox10.Text.Length = 15 Then
Me.TextBox10.Text = Replace(Me.TextBox10.Text, ")", "")
Me.TextBox10.Text = Replace(Me.TextBox10.Text, " ", "")
Me.TextBox10.Text = Replace(Me.TextBox10.Text, "(", "")
End If

[muharrem_tac]

@Eulides , Cekici 'nin kodu VB.NET

[Euclides]

çok özür...
2.yöntemin işe yaramayacağı kesinde bekli 1.yöntem biraz değiştirmeyle çalışır ??

[muharrem_tac]

Birinci verdiğin örnek VB.NET 'e şöyle çevriliyor (denenmiştir) :

Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
        Dim x As String
        Dim i As Integer
        x = ""
        If e.KeyCode = Keys.Enter Then
            For i = 1 To Len(TextBox1.Text)
                If ((Asc(Mid(TextBox1.Text, i, 1)) <= Asc("9")) And (Asc(Mid(TextBox1.Text, i, 1)) >= Asc("0"))) Then
                    x = x & Mid(TextBox1.Text, i, 1)
                End If
            Next i
            TextBox1.Text = x
        End If
    End Sub

[Cekici]

muharrem_tac, mesajından alıntı:

Ben böyle denedim çalıştı :

If Me.TextBox10.Text.Length = 15 Then
Me.TextBox10.Text = Replace(Me.TextBox10.Text, ")", "")
Me.TextBox10.Text = Replace(Me.TextBox10.Text, " ", "")
Me.TextBox10.Text = Replace(Me.TextBox10.Text, "(", "")
End If

muharrem abi bunun aynısını ben 30 kere denedim bende çalışmıyor eğer bunu böyle yaparsam sonuç böyle oluyor...
keyDown olmadan önceki hali = (222) 222 22 22
olduktan sonraki hali = (222) 222 22 2

eğer o parantezlerden 1 tanesi ni kaldırırsam yani Code

If Me.TextBox10.Text.Length = 15 Then
Me.TextBox10.Text = Replace(Me.TextBox10.Text, " ", "")
Me.TextBox10.Text = Replace(Me.TextBox10.Text, "(", "")
End If

bu şekilde olursa sonuç = 222)2222222 böyle oluyor işte ne yaptıysam düzelmedi.

[Euclides]

@Cekici;
karakterler keydown yerine birde keyup kullanmayı dene.

[Cekici]

bilmem ki akşam bi deniyim ama hiç sanmıyorum öyle olsa o kodu dememe amaçlı olarak button içine yazıyim bakalım yapacak mi...mantıken çok saçma bişii.. ha bu arada 1 üstteki mesajımda 2. code da yaptım daha sonra başka bir olay içine

Me.TextBox10.Text = Replace(Me.TextBox10.Text, "(", "")

yazdım olmadı hatta daha sonra

sağınan 10 tanesini al dedim durum = (2223334455 idi bu olmasılazımdı=2223334455 ama yine olmadı mid olarak denedim yanıt yok yine bakalım ne yapazac.

[muharrem_tac]

Cekici, mesajından alıntı:

bunun aynısını ben 30 kere denedim bende çalışmıyor

Aynı anda TextBox10 için iki fonksiyon var biri Changed eventına biri de KeyDown eventına yazılmış . Bütün işlemi ceevir fonksiyonuna yaptırmak lazım . ceevir fonksiyonu işi bozuyor .