How to truncate text

[matrik02]

I have typing the textbox more then 13 character. How I can trancate this character to 8 character?
For example "ABCDEFGHIJKCVBNE" will become "ABCDEFGH"



If Len(TxtKrigRasterWorkspace.Text) >= 13 Then

[RhinoBull]

Set MaxLength property to whatever number you wish:

Private Sub Form_Load()
    Text1.MaxLength = 10
End Sub

[BruceG]

You can also set the MaxLength property of the textbox at design-time.

[matrik02]

How to pop up with messagebox when the input reach to maximum?

[Dungeon Keeper]

How to pop up with messagebox when the input reach to maximum?

Private Sub Text1_Change()
    If Len(Text1.Text) > 8 Then MsgBox "Something"
End Sub

[Siddharth Rout]

I have typing the textbox more then 13 character. How I can trancate this character to 8 character?
For example "ABCDEFGHIJKCVBNE" will become "ABCDEFGH"



If Len(TxtKrigRasterWorkspace.Text) >= 13 Then

What I understand from above is that no matter what the user enters you want only the 1st 8 characters. If yes, then is this what you want?

Sub aaa()

If Len(Trim(TxtKrigRasterWorkspace.Text)) >= 13 Then
    
    TxtKrigRasterWorkspace.Text = Left(Trim(TxtKrigRasterWorkspace.Text), 8)

End If

End Sub

by the way Trim suppresses the leading and trailing spaces...

[RhinoBull]

How to pop up with messagebox when the input reach to maximum?

Why messagebox? They are annoying.
Show the tooltip instead (something like "Maximum number of characters allowed is 10")

[Dungeon Keeper]

How to show tooltip?

[RhinoBull]

It's property (most controls have it) that you can set at design or runtime.

[Dungeon Keeper]

How can i show tooltip?

[RhinoBull]

It's property (most controls have it) that you can set at design or runtime.

[Dungeon Keeper]

I know how can i show it, but is there any way to show it if condition is met.
Lets say

If Len(Text1.Text) = 10 then show text1.tooltip

[Hack]

Try

Private Sub Text1_Change()
If Len(Text1.Text) <> 8 Then
   Text1.ToolTipText = vbNullString
Else
   Text1.ToolTipText = "You can only have 8 characters in the textbox"
End If
End Sub

[Hack]

Try

Private Sub Text1_Change()
If Len(Text1.Text) <> 8 Then
   Text1.ToolTipText = vbNullString
Else
   Text1.ToolTipText = "You can only have 8 characters in the textbox"
End If
End Sub

[BruceG]

Also, if you set the MaxLength property, either in code as Rhino has suggested, or in the design-time property sheet as I have suggested, you will not need to show a message of any kind, as the user will simply not be able to enter any more text into the box.

[RhinoBull]

... you will not need to show a message of any kind, as the user will simply not be able to enter any more text into the box.

Exactly. Which is why I suggested tooltip.