Function ByteToBin(m As Byte) As String ' 将字节型数据转换成八位二进制字符串
Dim c$
c$ = ""
Do While m 0
c$ = r c$
Loop
ByteToBin = c$
End Function
Function Reverse(m As String) As String ' 将八位二进制字符串颠倒顺序
Dim i%, x$
x = ""
x = Mid(m, i, 1) x
Next i
Reverse = x
Function BinToByte(m As String) As Byte ' 将八位二进制串转换成十进制
Dim x As String * 1, y%, z%
z = 0
x = Mid(m, i, 1)
z = z + y
BinToByte = z
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 ' 将加密后的这个字节写回到文件原位置
Close
MsgBox "完成！"
End Sub
退出：Unload Me
网上帮你找的,如果不符合你的要求,你可以再去网上在搜搜,有很多代码的.
"结构"是 Visual Basic 早期版本支持的用户定义类型 (UDT) 的一般化.除字段外,结构还可以公开属性、方法和事件.结构可以实现一个或多个接口,而您可以分别为每个字段声明访问级别.
可以合并不同类型的数据项来创建结构.结构将一个或多个"元素"彼此关联并且将它们与结构本身关联.声明了结构后,它将成为"复合数据类型",而您可以声明该类型的变量.
想让单个变量持有几个相关信息时结构很有用.例如,您可能想将一个雇员的姓名、电话分机号和薪金放在一起.可以对这些信息使用几个变量,或者可以定义一个结构并将它用于单个雇员变量.当有许多雇员并且所以呢有该变量的许多实例时,结构的优点变得非常明显.
使用 Structure 语句语句作为结构声明的开始,并使用 EndStructure 语句作为结构声明的结束.在这两条语句之间必须至少声明一个"元素".元素可以是任何数据类型,但是至少一个必须是非共享变量,或是非共享非自定义事件.
不能在结构声明中初始化任何结构元素.如果将一个变量声明为结构类型,则可以通过变量访问元素来给它们赋值.
声明一个结构：
可以使用 Public、Protected、Friend或Private关键字指定结构的访问级别,或者使用默认值 Public.如：
Private Structure employee
End Structure
向结构体添加元素：
结构必须具有至少一个元素.必须声明结构的每个元素并指定其访问级别.如果使用不含任何关键字的 Dim 语句 (Visual Basic),则可访问性默认值为 Public.如：
Public givenName As String
Public familyName As String
Public phoneExtension As Long
Private salary As Decimal
Public Sub giveRaise(raise As Double)
salary *= raise
Public Event salaryReviewTime()
－－－－－－－－－－－－－－－－－－－－－－－－－－－
另外,关于你的问题,请参考下面C++/C对自定义类型的比较：
①.、在C++中,不需使用typedef
struct Structure1 {
char c;
int i;
float f;
double d;
};
int main() {
s1.c = 'a'; // Select an element using a '.'
s1.i = 1;
}
typedef struct {
s1.c = 'a';
注意下你给ButtonTop的Image属性赋值的地方,你的属性SET里是针对【上】这个类的改变,你如果这样写是触发不了属性改变的：
ButtonTop.背景?=?Image.FromFile("C:/1.png")
正确的处理办法应该是new一个【上】类的对象,初始化时进行赋值就可以了
Me.ButtonTop?=?New?Class1()?With?{.背景?=?Image.FromFile("C:/1.png")}
以上就是土嘎嘎小编为大家整理的vb.net自定义数据相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！