Question

vb6同一个字符串为何在窗体上显示与在文本框中显示的值不同？

资源文件中有四条记录：101、102、103、104分别对应四个字符串：小板凳、洗脸盆、黑桃仁、水杯。文本框的multiline属性已经设置为true.
Private Sub Form_Load()
Dim i As Integer
Me.AutoRedraw = True
For i = 101 To 104 '有四条记录
Text1.Text = LoadResData(i, 6)'文本框显示
Print LoadResData(i, 6)'窗体显示
Next
End Sub
恳请高手指点

Answer 1

Print显示会换行的，因为系统会移动Form上的画笔Pen的当前位置值。而Text=语句没有加回车换行符，没有把原来的内容再写一遍是不断覆盖自己，所以只会显示最后一个内容。&符号有类型转换作用，可以将字符、数字等直接拼成字符串。而+号只能用在2个字符串之间拼接，可能还不能处理空字符串。所以一般情况下用&就好了。

Answer 2

你想怎么显示?

你这样显示当然不一样了

Text1.Text = text1.text & LoadResData(i, 6) & vbcrlf '文本框显示

追问

刚刚接触VB，感觉怪怪的。能把text1.text & LoadResData(i, 6) & vbcrlf 这个表达式解释一下吗？两个&分别是干什么的，起什么作用？呵呵，麻烦了

追答

& 表示'和','and'的意思.vbcrlf表示换行

追问

我发现比如这个句子Text1.Text = Text1.Text & vbCrLf中的“&”可以由“+”号替换，而Text1.Text = text1.text & LoadResData(i, 6) & vbcrlf 替换就行不通了，为什么呀

追答

运算符怎么可能拿来当万能的? 这个和又指a&b,a和b懂了吗?
在你写大工程的时候比如几百行代码几千行代码的时候发生错误你有时会把+当作运算符作为四则运算,所以为了理清这个毛病用&最合适.楼下几位不要乱复制答案,真不知道你们是再哪复制的和主题完全不对

Answer 3

真正最简单的方法 不改变你的程序顺序。
Private Sub Form_Load()
Dim i As Integer
Me.AutoRedraw = True
For i = 101 To 104 '有四条记录
Text1.selText = LoadResData(i, 6) & vbcrlf '文本框显示
Print LoadResData(i, 6)'窗体显示
Next
End Sub

Answer 4

nction IsEng(ByVal strSource As String) As Boolean
Dim chrCheck As Char
Dim i As Integer
Dim intCount As Integer
intCount = strSource.Length - 1
For i = 0 To intCount
chrCheck = strSource.Chars(i)
If Not Char.IsLetter(chrCheck) Then
Return False
End If
Next
Return True
End Function
2.测试函数
Dim blnEng As Boolean
blnEng = IsEng("abcd5") 'False
blnEng = IsEng("abcdf") 'True

Answer 5

1.添加如下函数
Private Function IsEng(ByVal strSource As String) As Boolean
Dim chrCheck As Char
Dim i As Integer
Dim intCount As Integer
intCount = strSource.Length - 1
For i = 0 To intCount
chrCheck = strSource.Chars(i)
If Not Char.IsLetter(chrCheck) Then
Return False
End If
Next
Return True
End Function
2.测试函数
Dim blnEng As Boolean
blnEng = IsEng("abcd5") 'False
blnEng = IsEng("abcdf") 'True

追问

你这说的是啥，不懂。 Return False与Return True两句有问题。红色显示“缺少结束”.请问您的代码怎么才能通过编译然后理解它？