Adding a special character 1

[MikeGeitner]

Hi,

I have a form where the user will enter a description of a dimension on a blueprint. I would like to add command buttons that will insert characters such as a "±" or a "°" at the end of the text that the user inputs. So, they would type in something like this, "145.02mm" hit the spacebar and then the plus/minus commmand button and get "145.02 ±", then they would continue typing and use these buttons as needed. Any suggestions are greatly appreciated by this noob.


Thanks,

Mike

 

[Remou]

You can use Chr. For example:
[tt]Private Sub cmdDegree_Click()
Me.txtText = Me.txtText & Chr(176) '177 is +/-
End Sub[/tt]

 

[MikeGeitner]

Yes! That works. Now, how do I get the insertion point back after clicking the "Degree sign" button?

Thanks,

Mike

 

[Remou]

You can use Set Focus and SelStart:

[tt]Me.txtText.SetFocus
Me.txtText.SelStart = Len(Me.txtText.Text)[/tt]

 

[DogLover2006]

mike,

Here is the code you are looking for :

Private Sub Command4_Click()
On Error GoTo Err_Command4_Click
Dim strChar As String, strInput, strOutput, strNewInput
Dim intNum As Integer

strInput = Me.Text0.Value
If strInput Like "*mm" Then
intNum = InStr(1, strInput, "M")
strNewInput = Left(strInput, intNum - 1)
End If

strChar = "+"
strOutput = strNewInput & strChar
Me.Text0.Value = strOutput
Me.Text0.SetFocus

Exit_Command4_Click:
Exit Sub

Err_Command4_Click:
MsgBox Err.Description
Resume Exit_Command4_Click

End Sub

 

[MikeGeitner]

Perfect, Thank you!

Mike