vb.net乱码问题 vb程序中文乱码

vb.net编的记事本怎么保存后的文档成乱码

这是编码问题。

站在用户的角度思考问题，与客户深入沟通，找到偏关网站设计与偏关网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站制作、成都网站设计、企业官网、英文网站、手机端网站、网站推广、主机域名、虚拟空间、企业邮箱。业务覆盖偏关地区。

用下面的方法：

If (Me.OpenFileDialog1.FilterIndex = 1) Then '1是一个标识

System.IO.File.WriteAllText(Me.SaveFileDialog1.FileName, RichTextBox1.Text, System.Text.Encoding.Default) '当标识等于1时保存的事PlainText格式

Else '否则

System.IO.File.WriteAllText(Me.SaveFileDialog1.FileName, RichTextBox1.Rtf, System.Text.Encoding.Default) '保存的是另一种格式

VB.net网上读取下来的信息乱码

把Default改成UTF-8或unicode等，看你网页是什么格式的。删掉default会弹出属性或方法列表，里面有格式选择，就几种格式，多试几次就对了。

有关vb.net操作文档出现乱码问题

在使用streamReader和streamWriter的时候使用编码参数。

比如：dim sw As New StreamRriter("H:\编程资料\1.txt"，System.Text.Encoding.Default)

dim sr As New StreamWeader("H:\编程资料\2.txt"，true,System.Text.Encoding.Default)

VB.net编程进行数据导入后出现乱码问题

'access 数据表表名：chexing

'结构id、chexing、chang、kuan、gao

Dim id() As Long

Dim chang() As Long

Dim kuan() As Long

Dim gao() As Long

Private Sub Combo1_Click()

Text1.Text = chang(Combo1.ListIndex)

Text2.Text = kuan(Combo1.ListIndex)

Text3.Text = gao(Combo1.ListIndex)

End Sub

Private Sub Form_Load()

ReDim id(0)

ReDim chang(0)

ReDim kuan(0)

ReDim gao(0)

Combo1.Clear

db = "d:\chexing.mdb"

connstr = "DBQ=" + db + ";DefaultDir=;DRIVER="

Set conn = CreateObject("ADODB.Connection")

conn.Open connstr

websql = "select * from chexing order by id"

Set rs = CreateObject("adodb.recordset")

rs.Open websql, conn, 1, 1

If rs.EOF And rs.BOF Then

Else

Do While Not rs.EOF

Combo1.AddItem rs("chexing")

id(UBound(id)) = rs("id")

ReDim Preserve id(UBound(id) + 1)

chang(UBound(chang)) = rs("chang")

ReDim Preserve chang(UBound(chang) + 1)

kuan(UBound(kuan)) = rs("kuan")

ReDim Preserve kuan(UBound(kuan) + 1)

gao(UBound(gao)) = rs("gao")

ReDim Preserve gao(UBound(gao) + 1)

rs.MoveNext

Loop

End If

rs.Close

Set rs = Nothing

Set conn = Nothing

Combo1.ListIndex = 0