TextBox manipulation

Du skal kigge på OnChange, 2 min så vender jeg lige tilbage.noget lignende:

Utestet men burde virke:
Private Sub Text1_Change()
  If InStr(Text1.Text, "æ") Then
    text2.Text = Replace(Text1.Text, "æ", "*")
  End If
End Sub

Og det var et svar.

F.eks. sådan her
Private Sub Text1_Change
    Dim str As String
    Dim s As String
    Dim i As Integer
    i = 1
    s = "æ"
       
    str = Text1.Text
   
    While (i > 0)
        i = InStr(1, str, s, vbTextCompare)
       
        If i > 0 Then
            str = Left(str, i - 1) + "*" + Right(str, Len(str) - i)
        End If
       
    Wend
           
    Text2.Text = str
End Sub

bertie's svar er naturligvis smartere, men jeg så det ikke før jeg svarede :-) Der skal dog lige denne krølle på, så teksten opdateres selvom der ikke er indtastet æ:

Private Sub Text1_Change()

  If InStr(Text1.Text, "æ") Then
    Text2.Text = Replace(Text1.Text, "æ", "*")
  Else
    Text2.Text = Text1.Text
  End If
 
End Sub

Ja selvfølgelig driis, du har ret, det tænkte jeg ikke på :-)

Hej igen.

Nu har jeg lavet det sådan her, og det virker, Bertie du får point TAKKER.

Mvh.

Christian_h

Private Sub Text1_Change()

Text2.text = Text1.text

If InStr(Text2.text, "æ") Then
    Text2.text = Replace(Text2.text, "æ", "{")
  End If

If InStr(Text2.text, "ø") Then
  Text2.text = Replace(Text2.text, "ø", "|")
  End If
 
If InStr(Text2.text, "å") Then
    Text2.text = Replace(Text2.text, "å", "}")
  End If

If InStr(Text2.text, "Æ") Then
    Text2.text = Replace(Text2.text, "Æ", "[")
  End If

If InStr(Text2.text, "Ø") Then
    Text2.text = Replace(Text2.text, "Ø", "\")
  End If

If InStr(Text2.text, "Å") Then
    Text2.text = Replace(Text2.text, "Å", "]")
  End If


End Sub

Ok, og takker.

Sålidt, på denne måde sparer jeg 6 stk. else sætninger !!.

Ja det er rigtigt :-)