| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
免费IT实战开发视频教程合集分享千里之行 始于足下
共有 133 人关注过本帖
标题:VB缺少语句结束
只看楼主 加入收藏
leziyi
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2016-10-30
结帖率:100%
  问题点数:0  回复次数:4   
VB缺少语句结束
Private Sub Command1_Click()

Winsock1.SendData Text2.Text

Dim n

n = Time()

If Text1.Text <> "" Then

   Text1.Text = "n & Chr(13) & Chr(10) & "我说:" & Text2.Text"
   
   
Else

   Text1.Text = "Chr(13) & Chr(10) & n & Chr(13) & Chr(10) + Text2.Text"
   
End If

End Sub

Private Sub Command2_Click()

Tools1.ScreenShot_Save

End Sub
2018-11-03 08:49
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:74
帖 子:764
专家分:4020
注 册:2016-5-10
  得分:0 
Text1.Text = "n & Chr(13) & Chr(10) & "我说:" & Text2.Text"
应该为:Text1.Text = n & Chr(13) & Chr(10) & "我说:" & Text2.Text

Text1.Text = "Chr(13) & Chr(10) & n & Chr(13) & Chr(10) + Text2.Text"
应该为:Text1.Text = Chr(13) & Chr(10) & n & Chr(13) & Chr(10) & Text2.Text

搞清楚变量与字符串的区别。
2018-11-03 09:22
leziyi
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2016-10-30
  得分:0 
你这样Text1的输出就变成了n & Chr(13) & Chr(10) & "对方说:" & Text2.Text
2018-11-03 09:56
leziyi
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2016-10-30
  得分:0 
附件: 您没有浏览附件的权限,请 登录注册
2018-11-03 09:59
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:74
帖 子:764
专家分:4020
注 册:2016-5-10
  得分:0 
以下是引用leziyi在2018-11-3 09:56:49的发言:

你这样Text1的输出就变成了n & Chr(13) & Chr(10) & "对方说:" & Text2.Text


你运行一下看看结果再说!变量、对象与字符串的连接你好好看看吧!
如果你要输出 “n & Chr(13) & Chr(10) & "对方说:" & Text2.Text”这样的字符串,这个也有错误!
应该是 Text1.Text = "n & Chr(13) & Chr(10) & ""我说:"" & Text2.Text"  ,注意使用双引号。

[此贴子已经被作者于2018-11-3 12:20编辑过]

2018-11-03 12:14







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026691 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved