锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net自定义类型 vba 自定义类

IT技术变量

让vb.net自定义数据类型包含静态数组Structure RASCONN95
dwSize As Long
hRasConn As Long
szEntryName(256) As Byte
szDeviceType(128) As Byte
szDeviceName(16) As Byte
End Structure
VB.NET 自定义一个文件类型，比如 "XX.abc" 里面存储文本，且只能自己可以打开，如何实现？Function ByteToBin(m As Byte) As String' 将字节型数据转换成八位二进制字符串
Dim c$
c$ = ""
Do While m0
r = m Mod 2
m = m \ 2
c$ = rc$
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.net自定义类型 vba 自定义类】网上帮你找的 ， 如果不符合你的要求 ， 你可以再去网上在搜搜，有很多代码的 。
在vb.net中怎么调用自定义类？代码已测试 。
一、测试需要vb.net自定义类型的INI文件 。名称为“setinfo.ini”vb.net自定义类型，存放路径为vb.net自定义类型你解决方案里“Bin“文件夹的”Debug“文件夹里 。
内容vb.net自定义类型：
[Location]
pnlTime.Location.X=787
pnlTime.Location.Y=0
[TopMost]
Top=True
二、操作INI文件的类 。新建一个类vb.net自定义类型，类中内容为：
Public Class Class1
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Int32, _
ByVal lpFileName As String _
) As Int32
End Class
三、界面代码：
Imports System.IO 'for path
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
getINI()
End Sub
Private Sub getINI()
Dim iniclass As New Class1 '
Dim myBf As String 'get set_info 开辟存储的内存
myBf = New String(CChar(""), 256)
Dim myFN As String '配置文件的文件路径
myFN = Path.Combine(My.Application.Info.DirectoryPath, "setinfo.ini")
Dim myAN As String 'Application_NAME,也是Section名称
myAN = Me.TextBox1.Text
Dim myKN As String 'KEY_NAME,关键字名称
myKN = Me.TextBox2.Text
Class1.GetPrivateProfileString(myAN, myKN, "", myBf, myBf.Length, myFN) '调用读取INI文件的操作
TextBox3.Text = Microsoft.VisualBasic.Left(myBf, InStr(myBf, Chr(0)) - 1) '截取有用部分,有必要
End Sub
End Class
四、测试截图如下
新人vb.net 怎么自定义类型其实就是结构体vb.net自定义类型 ， 如下面
Public Structure My_type

推荐阅读


上一篇：java缩短代码行数，java一行代码太长

下一篇：电脑的硬盘空间怎么分，电脑硬盘容量怎么分配