1,451
社区成员
发帖
与我相关
我的任务
分享晕，这么简单的代码也会出错
一个按钮一个文本框,点击按钮，文本框内的内容减去一个字符，下面是我写的
Private Sub Command1_Click()
Dim t As String, b As String
t = Text1.Text
b = Right(x, 1)
Text1.Text = Text1.Text - b
End Sub
运行时出错“类型不匹配”
Private Sub Command1_Click()
Dim t As String, b As String
t = Text1.Text
b = Right(x, 1)
Text1.Text = Text1.Text - b
End Sub
运行时出错“类型不匹配”
...全文
请发表友善的回复…
发表回复
啊维 2004-03-25
- 打赏
- 举报
要判断Text1.Text <> "",可能是你的Text1.text刚开始时没有数据,所以出错
fuanwei 2004-03-25
- 打赏
- 举报
If Text1.Text = "" Then
Exit Sub
End If
Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1)
Exit Sub
End If
Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1)
rainstormmaster 2004-03-25
- 打赏
- 举报
Private Sub Command2_Click()
Text1.SetFocus
Text1.SelStart = Len(Text1.Text)
SendKeys Chr(8)
End Sub
Text1.SetFocus
Text1.SelStart = Len(Text1.Text)
SendKeys Chr(8)
End Sub
openforever 2004-03-25
- 打赏
- 举报
UP
northwolves 2004-03-25
- 打赏
- 举报
Private Sub Command1_Click()
If Text1.Text <> "" Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub
If Text1.Text <> "" Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub
homeland520 2004-03-25
- 打赏
- 举报
代码为：
Private Sub Command1_Click()
Dim t As String, b As String, s As Integer, m As Integer
t = Text1.Text
s = Len(t)
m = s - 1
b = Left(t, m)
Text1.Text = b
End Sub
Private Sub Command1_Click()
Dim t As String, b As String, s As Integer, m As Integer
t = Text1.Text
s = Len(t)
m = s - 1
b = Left(t, m)
Text1.Text = b
End Sub
