为什么两个值不一样呢.如何使这两个值相同呢.

[会织网的蚂蚁]

Dim TempPass As String
Dim TempPass1 As String
Dim TempPassString As Long
TempPass = String(255, 0)
TempPass1 = String(255, 0)
TempPassString = GetPrivateProfileString("TempPassword", "TempPassword", "没有获得匹配", TempPass, 256, "H:\工作任务\工资软件\GZSMS.ini")
TempPass1 = Trim(Txt_Password.Text)
MsgBox Trim(TempPass)
MsgBox Trim(TempPass1)

[波导终结者]

TempPass1 = Trim(Txt_Password.Text)
你在哪里给Txt_Password.Text赋过值了？没有体现出来。

[yachong]

TempPass可能最后有一个null字符，chr(0)
去掉它

[舉杯邀明月]

前面：TempPass = String(255, 0)
后面那个函数你怎么用256？

[m60a1]

TempPass1 能放到TempPass中去吗??LZ