VB msgbox无效字符问题
PrivateSubCommand1_click()'在Text3中查找出现Text2内容的位置并保存在j变量中j=InStr(Text3.Text,Text2.Text...
Private Sub Command1_click()
'在Text3中查找出现Text2内容的位置并保存在j变量中
j = InStr(Text3.Text, Text2.Text)
'若查找到设定字串,则替换
If j <> 0 Then
'取右字串的起始位置,存仓在变量h中
h = j + Len(Text2.Text)
'取左字串,链接替换内容,在连接右字串,实现替换
Text3 = Left(Text3.Text, j - 1) + Text1.Text + Mid(Text3.Text, h)
Else
'若未找到设定字串,则提示
msgbox ("未找到!",vbokonly,"提示")
到了最后,换行总是出现
然后光标就返回到了感叹号后面的引号后面。求助啊,是引号打错了么 展开
'在Text3中查找出现Text2内容的位置并保存在j变量中
j = InStr(Text3.Text, Text2.Text)
'若查找到设定字串,则替换
If j <> 0 Then
'取右字串的起始位置,存仓在变量h中
h = j + Len(Text2.Text)
'取左字串,链接替换内容,在连接右字串,实现替换
Text3 = Left(Text3.Text, j - 1) + Text1.Text + Mid(Text3.Text, h)
Else
'若未找到设定字串,则提示
msgbox ("未找到!",vbokonly,"提示")
到了最后,换行总是出现
然后光标就返回到了感叹号后面的引号后面。求助啊,是引号打错了么 展开
展开全部
你用了中文的逗号,代码中不能用中文的逗号代替英文的逗号,除非是作为字符串显示中文语句
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
是你“未找到!”后面的那个逗号不对,那个逗号被你写成中文的了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
MsgBox "未找到!", vbOKOnly, "提示"
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询