Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Public A As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click WritePrivateProfileString("参数一", "X轴速度", "123", Environment.CurrentDirectory & ".参数.TXT") End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click GetPrivateProfileString("参数一", "X轴速度", "TextBox1", A, 255, Environment.CurrentDirectory & ".参数.TXT") TextBox1.Text = A End Sub
上面这段程序总是报“尝试读取或写入受保护的内存。这通常指示其他内存已损坏。”是怎么回事啊，写没有问题就只有读的时候老报错，求大家给我瞧瞧。

这是截图。

字符串必须有较长的初值，用space()填充。或者用vbfixedstring

问题解决了 问题出在Visual Basic 6.0 的 Long 数据类型为 Visual Basic .NET 的 Integer 数据类型，而我后面用了Long改为Integer就正常了。

然后还有3楼说的问题解决了 我这段程序就正常了。