Vb.net 在vb 2012中使用vb6文件打印源

Vb.net 在vb 2012中使用vb6文件打印源,vb.net,Vb.net,我是vb 2012的新手,当我尝试应用VB6源代码时,这两个源代码有所不同,我一直在谷歌搜索如何使用vb 2012这个源代码,但我没有找到它,有谁能帮助我如何在vb 2012中使用这个源代码,下面的源代码是 Dim FileTeks作为字符串 FileTeks=App.Path&“\conn.ini” UserName=Trim(txtUserName.Text) 通过=修剪(txtPassword.Text) Server=Trim(txtServer.Text) 打开FileTeks以输出为

我是vb 2012的新手,当我尝试应用VB6源代码时,这两个源代码有所不同,我一直在谷歌搜索如何使用vb 2012这个源代码,但我没有找到它,有谁能帮助我如何在vb 2012中使用这个源代码,下面的源代码是

Dim FileTeks作为字符串

FileTeks=App.Path&“\conn.ini”

UserName=Trim(txtUserName.Text)

通过=修剪(txtPassword.Text)

Server=Trim(txtServer.Text)

打开FileTeks以输出为#1

打印#1,Enkrip(服务器,4)

打印#1,Enkrip(用户名,4)

打印#1,Enkrip(通过,4)

关闭#1


感谢您的帮助这里有一种在.NET中写入文件的方法

Using sw As New System.IO.StreamWriter("FileTeks.ini", False)
        sw.WriteLine(Enkrip(Server,4))
        sw.WriteLine(Enkrip(UserName,4))
        sr.WriteLine(Enkrip(Pass,4))

        sw.Flush()
        sw.Close()
End Using
这假设
Enkrip
的输出是字符串。或者(因为它是ini):

您可能需要清除“密钥”,以便可以重新读取它们,而不是加密整行。另外,您可能希望将其全部放在一个Try/Catch中,这样文件名的属性就不好了,或者您可以捕获它的权限有问题

另一种选择可能是使用PInvoke来使用旧的Win32读/写PrivateProfileString


HTH

使用.net中的VisualBasic包,您应该能够找到大多数VB6自己的命令。无论如何,vb.net不仅仅是对vb6的升级,它是一种完全不同的语言


如果您的代码库不是太大,我建议您尝试重构代码。我们曾经进行过一次从vb6到vb.net的自动转换,现在我们对此感到遗憾。

vb.net与vb6相比确实是一种全新的语言。不要认为它只是一个vb7;还有很多,我看不出这个代码有什么问题。当你试图运行或编译它时会发生什么?@JoelCoehoorn:是的,thanks@jmoreno:我在中发现一些错误,代码:打开。。。对于和#符号,实际上,有吗?这可能会将源vb6更改为VB2012,因为我不理解vb 2012中的更改是“Joel Coehoorn”所说的
sw.WriteLine("{0} = {1}", "Server", Enkrip(Server,4))
' or
sw.WriteLine("{0} {1}", "Server =", Enkrip(Server,4))