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

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

相关问答

Q1: VB.net每种数据类型特点？

VB.NET数据类型VB.NET中有12种不同的数据类型，可以分成三类：数值类型、文本类型和混合类型。数值类型是VB.NET数据类型的主要类型，共7种。数值类型的数据类型见下表。 数据类型表示方式取 值 范 围说 明整型Integer–2147483648～2147483647用于表示简单整数字节型Byte0～255用于简单算术运算。由于这个类型的变量可以在一个字节中存储，所以运算速度最快短整型Short–32768～32767是整型的一种形式，相对表示范围较小长整型Long–9223372036854775808～9223372036854775807是整型的一种形式，相对表示范围较大单精

度型Single–3.402823E38～–1.401298E-45(对于负数)和1.401298E-45～3.402823E38(对于正数)用于存放单精度浮点数双精

度型Double–1.79869313486232E308～–4.94065645841247E-324(对于负数)和4.94065645841247E-324～1.79869313486232E308(对于正数)用于存放双精度浮点数小数Decimal当小数位为0的时候，为–79228162514264337593543950335～

79228162514264337593543950335；当小数位为28的时候，为–7.9228162514264337593543950335～

7.9228162514264337593543950335常用于存储货币值 数值类型的数据类型 用于存放文本的数据类型有两个。文本类型的VB.NET数据类型见下表。 数 据 类 型表 示 方 式说 明字符串型String用于存放任何形式的字符串，包括一个字符或者多行字符字符型Char用于存放一个字符，它以0～65535之间数字的形式存储文本类型的数据类型 其中需要说明的是： (1) 对于String类型，可以存放任何形式的字符串，它可以是纯粹的文本，也可以是文本和数字的组合或者是数字、日期等。例如"This is a book. "和"12345"都是字符串。对于字符串类型的数据，可以进行相关的字符串操作，例如连接、截断等。 (2) 对于Char类型，可以存储的只是一个字符，注意，这个字符的存储编码必需是一个数字。在计算机系统中，可以显示很多符号(不仅仅是英文字母)，为了能够正确地显示，国际上有通用的标准(例如Unicode编码)，为每个字符设定了一个标准的数值来表示这个字符。其余的数据类型还有：Date数据类型、布尔数据类型和Object数据类型，其说明见下表。 数 据 类 型表 示 方 式说 明日期型Date必须用mm/dd/yyyy的格式表示，也可以存储时间(可以存储00:00:00～23:59:59之间的任何时间)布尔型Boolean取值为True和False对象型Object 其他数据类型 其中需要说明的是：在VB.NET中，对于Boolean类型的数据，当需要把布尔类型的值转换为数值类型的时候，会把True当成1来处理，把False当作0来处理。当需要把VB.NET数值类型的值转换为布尔类型的时候，会把0转换为False，而把其他的非0数值转换为True。

Q2: vb.net过滤文件类型，新手求助

*.* 所有类型所有文件

| 回车上面 】的右边 、这个键按住shift

一个|的左右两边为一组 左边代表要显示给用户看的提示文本 右边代表具体要过滤的文件类型

Q3: vb.net中怎么判断文件类型

这个问题可以用注册表解决。

Function getOpenCommand(fileExt As String) as String

Dim fileType as String, openCommand as String

fileExt = "." + fileExt

'取得文件扩展名在注册表里的文件类型名称

'比如.zip的类型名称一般是zipfile

fileType = 读取注册表的classes_root下的子键(fileExt)的默认键值

'取得打开这种文件的程序

openCommand = 读取注册表的classes_root下的子键(fileType + "\shell\open\command")的默认键值

Return getOpenCommand

End Function

读取注册表的HKEY_CLASSES_ROOT下的子键的默认键值的方法可以在网上搜索到。

这样getOpenCommand("doc")就可以得到一个字符串(包括引号)：

"C:\Program Files\Word\word.exe" "%1"

这里只需要用Spilt函数把C:\Program Files\Word\word.exe分离出来就好了

Q4: vb和vb.net的区别和特点

1、vb.net  完全符合面向对象的编程语言抽象、封装、继承的四大特性，而vb不支持继承。

2、错误处理不同。

vb中只是On Error.....goto和On Errer Resume Next ，这些错误称为非结构化异常处理。而在vb.net中采用的结构化异常处理机制，try...catch....finally控制。

3、两者产生的窗体不同。

vb.net 允许创建不同类型的应用程序，例如，创建ASP.NET和ASP.NET Web 服务应用程序，还允许创建控制台应用程序和作为桌面服务运行的应用程序。但是vb 只能创建Windows窗体。

4、数据库访问的差别。

vb6.0是通过ADO（Active X Data Objext）来实现对数据库访问。而vb.net 是通过ADO.NET来访问数据库。

扩展资料

Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。

“Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

Visual Basic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序 。

参考资料：百度百科-Visual Basic

Q5: VB.NET中，文件对话框（OpenFileDialog）显示某种设定的文件类型需要修改什么属性？

Filter 属性设置当前文件名筛选字符串，该字符串确定出现在对话框的“文件类型”框中的选项。

openFileDialog1.InitialDirectory = "c:\\" ;

openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" ;

openFileDialog1.FilterIndex = 1 ; // 获取或设置文件对话框中当前选定筛选器的索引；

openFileDialog1.RestoreDirectory = true ;

对于每个筛选选项，筛选器字符串都包含筛选器说明，后接一垂直线条 (|) 和筛选器模式。不同筛选选项的字符串由垂直线条隔开。