textbox附值的问题(页 1) - VB6论坛

xykz 发表于 2008-6-13 00:14

textbox附值的问题

Temp = Text2.Text
aaabbb = Split(Temp, vbCrLf)
For Each bbbaaa In aaabbb

If Option3.Value = True Then
      FormatAddress = Replace(bbbaaa, "thunder://", "")
      bbbccc = DecodeBase64String(FormatAddress)
      cccddd = Replace(bbbccc, "AA", "")
      dddeee = Replace(cccddd, "ZZ", "")
text2.text=dddeee
End If
next

注:temp变量里的内容大概是这样的:
thunder://QUFmdHA6Ly9nZzpteWdvZEA4LmRvd24uODBzLmNuOjkyMC8wODA2L8bmu8O+q8HpysK8/rK+L8bmu8O+q8HpysK8/rK+XzEubXA0Wlo=
thunder://QUFmdHA6Ly9nZzpteWdvZEA4LmRvd24uODBzLmNuOjkyMC8wODA2L8bmu8O+q8HpysK8/rK+L8bmu8O+q8HpysK8/rK+XzIubXA0Wlo=
thunder://QUFmdHA6Ly9nZzpteWdvZEA4LmRvd24uODBzLmNuOjkyMC8wODA2L8bmu8O+q8HpysK8/rK+L8bmu8O+q8HpysK8/rK+XzMubXA0Wlo=
thunder://QUFmdHA6Ly9nZzpteWdvZEA4LmRvd24uODBzLmNuOjkyMC8wODA2L8bmu8O+q8HpysK8/rK+L8bmu8O+q8HpysK8/rK+XzQubXA0Wlo=
thunder://QUFmdHA6Ly9nZzpteWdvZEA4LmRvd24uODBzLmNuOjkyMC8wODA2L8bmu8O+q8HpysK8/rK+L8bmu8O+q8HpysK8/rK+XzUubXA0Wlo=

为什么我无法把dddeee附值给textbox呢?

附值并没有提示错误...只是没有任何结果
但用print dddeee
却可以把结果打印出来

[[it] 本帖最后由 xykz 于 2008-6-13 00:19 编辑 [/it]]

xykz 发表于 2008-6-13 12:35

问题已解决:

Dim FormatAddress As String
Temp = Text2.Text
aaabbb = Split(Temp, vbCrLf)
Text2.Text = ""
For Each bbbaaa In aaabbb

If Option3.Value = True Then
      FormatAddress = Replace(bbbaaa, "thunder://", "")
      bbbccc = DecodeBase64String(FormatAddress)
      cccddd = Replace(bbbccc, "AA", "")
      dddeee = Replace(cccddd, "ZZ", "")
Text2.Text = Text2.Text & dddeee & vbCrLf
End If
Next

页: [1]