Question

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

资源文件中有101/102/103/104/四条记录：小板凳、洗脸盆、黑桃仁、水杯。
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
文本框 的muiltlines属性也已设为true.请高手给指点一下！

Answer 1

For i = 101 To 104 '假设有四条记录
Text1.Text = text1.text & LoadResData(i, 6)'在文本框中的显示结果
Print LoadResData(i, 6) '在窗体上的显示结果
Next
你不停的给textbox赋值，他只会显示最后一次的赋给它的值。

Answer 2

真正最简单的方法 不改变你的程序顺序。
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 3

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