－の符号を０につけないようにする

質問

電卓で数字の前にマイナスをつけたりはずしたりする
〔+/-〕がありますが、下のソースだと、
０にマイナスがついてしまいます。
０に－をつけないようにするには、どうすればよいでしょうか？
If mid(txtDisplay.Text, 1, 1) = "-" Then '-符号あり
の部分をleft(txtDisplay.Text,1)にすると、leftでは
戻り値の型をindex化できないとエラーがでてしまいます。

Private Sub cmdHanten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHanten.Click
If mid(txtDisplay.Text, 1, 1) = "-" Then '-符号あり
txtDisplay.Text = Mid(txtDisplay.Text, 2)
Else
txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub

回答No.1

sugao_chib · ベストアンサー

vb2005では
Microsoft.VisualBasic.Left
とすればエラーになりません。

また、マイナスを取り除くのは単純に一度数値化してから代入するのはだめでしょうか？
txtDisplay.Text = Microsoft.VisualBasic.Val(txtDisplay.Text)

お礼

ありがとうございます。
なるほど。数値化するという方法がありましたか。
解決しました。