Vb.NET中textbox的中文乱码问题！

2003xp 2003-11-26 01:27:35

Dim Display As StreamReader
Display = New StreamReader("readme.txt")
TextBox1.Text = Display.ReadToEnd
Display.Close()
TextBox1.Select(0, 0)

用上面的代码读取readme.txt中的文字，但是中文字显示在debug的程序全是乱码，英文字全部正常！

谢谢！

...全文

454 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

2003xp 2003-11-26

打赏
举报

SammyXu(辣逼小芯)　　
　　完全GOOD！！

谢谢各位！

SammyXu 2003-11-26

打赏
举报

用这个绝对没问题：
Dim Display As StreamReader
Display = New StreamReader("readme.txt", System.Text.ASCIIEncoding.Default)
TextBox1.Text = Display.ReadToEnd
Display.Close()
TextBox1.Select(0, 0)

2003xp 2003-11-26

打赏
举报

终于解决了！！　　是文体文件的问题！

解决办法：　　文件－另存为　　第三个框“编码”我的默认为“ANSI”改为“UTF－8”

2003xp 2003-11-26

打赏
举报

渣渣的意思是一个个字符的读取出来显示在textbox上？

2003xp 2003-11-26

打赏
举报

mports System.IO
Imports System.Text

用了，还是乱码！

strawwan 2003-11-26

打赏
举报

System.Text.Encoding.Default
或者Imports System.Text

oo渣渣oo 2003-11-26

打赏
举报

先用Byte数组把文件读取出来.
再用System.Text.Encoding.Default.GetString(Byte数组)得到字符串

2003xp 2003-11-26

打赏
举报

Encoding.Default

在VB.net中显示是错误的语法，帮助中也找不到！！

不知道是什么意思？

ilooknow 2003-11-26

打赏
举报

Dim Display As StreamReader
Display = New StreamReader("readme.txt", Encoding.Default)
Me.txt5.Text = Display.ReadToEnd
Display.Close()
Me.txt5.Select(0, 0)

注意StreamReader使用的参数

strawwan 2003-11-26

打赏
举报

Dim Display As StreamReader
Display = New StreamReader("readme.txt", Encoding.Default)
Me.txt5.Text = Display.ReadToEnd
Display.Close()
Me.txt5.Select(0, 0)

試試

yujinliang 2003-11-26

打赏
举报

Public Function GetDbConstr() As String
On Error GoTo errh:
Dim str As String
Open App.Path & "\DbConnection.txt" For Input As #1
Line Input #1, str
Close #1
GetDbConstr = Trim(str)
Exit Function
errh:
GetDbConstr = App.Path + "\db.mdb"
End Function

vb6 代码

2003xp 2003-11-26