vb.net类序列化 VBNET的编程机制

VB.NET 自定义一个文件类型，比如 "XX.abc" 里面存储文本，且只能自己可以打开，如何实现？

Function ByteToBin(m As Byte) As String ' 将字节型数据转换成八位二进制字符串

成都创新互联公司，专注为中小企业提供官网建设、营销型网站制作、成都响应式网站建设公司、展示型成都网站制作、网站设计、外贸网站建设等服务，帮助中小企业通过网站体现价值、有效益。帮助企业快速建站、解决网站建设与网站营销推广问题。

Dim c$

c$ = ""

Do While m 0

r = m Mod 2

m = m \ 2

c$ = r c$

Loop

c$ = Right("00000000" c$, 8)

ByteToBin = c$

End Function

Function Reverse(m As String) As String ' 将八位二进制字符串颠倒顺序

Dim i%, x$

x = ""

For i = 1 To 8

x = Mid(m, i, 1) x

Next i

Reverse = x

End Function

Function BinToByte(m As String) As Byte ' 将八位二进制串转换成十进制

Dim x As String * 1, y%, z%

z = 0

For i = 1 To 8

x = Mid(m, i, 1)

y = x * 2 ^ (8 - i)

z = z + y

Next i

BinToByte = z

End Function

Private Sub Command1_Click()

Dim x As Byte, i%, fname$

fname = InputBox("请输入要加密的文件名！注意加上路径名：")

If Dir(fname) = "" Then

MsgBox "文件不存在！"

Exit Sub

End If

Open fname For Binary As #1 ' 以二进制访问模式打开待加密文件

For i = 1 To LOF(1) ' LOF函数是求文件长度的内部函数

Get #1, i, x ' 取出第i个字节

x = BinToByte(Reverse(ByteToBin(x))) ' 这里调用了三个自定义函数

Put #1, i, x ' 将加密后的这个字节写回到文件原位置

Next i

Close

MsgBox "完成！"

End Sub

退出：Unload Me

网上帮你找的，如果不符合你的要求，你可以再去网上在搜搜，有很多代码的。

为什么vb/c#.net里面winform,窗体不能序列化？

因为他没有从serialable继承。

任何东西都可以序列化，没什么保护或者技术困难的问题。

vb.net做对象xml序列化学习，程序报错

Module Module1

Sub Main()

Dim MYAAA As New AAA

MYAAA.A1 = "BAIGEZY"

MYAAA.A2 = "ASDFASDF"

MYAAA.A3 = "EMC"

Dim serialize As XmlSerializer = New XmlSerializer(GetType(AAA))

serialize.Serialize(Console.Out, MYAAA)

Console.ReadLine()

End Sub

End Module

'类不要套在Module中

Public Class AAA

Public A1 As String

Public A2 As String

Public A3 As String

Public Sub New()

End Sub

End Class

名称栏目：vb.net类序列化 VBNET的编程机制
本文URL：http://www.hxwzsj.com/article/hhioji.html