找了1天刚找到的代码，但水平低，放上来，大家一起来。

Question

这是一个从二进制文件中读一个Chr_RS结构的数据的问题，也许你看了会明白一些。'模块中：
Option Explicit
'以下是数据结构声明
Public Type Chr_RS
    CHR1B As Byte
    CHR1 As String * 15
    CHR2B As Byte
    CHR2 As String * 14
    CHRIDB As Byte
    CHRID As String * 10
    CHR_DEL As Byte
End Type'以下是函数，在这儿是从指定点开始读出Chr_RS结构的数据。
Public Function Chr_R_F(ID_C As String, Chr_C As String) As Chr_RS
Dim Posi_Me_C As Double '初始点
Dim POSI_Me_Go As Double '每段数据偏移量
Dim Path_Chr_DB As String '二进制文件的路径设定
Dim ChrSXX As Chr_RS '临时的Chr_RS。Posi_Me_C = 137
POSI_Me_Go = 72Path_Chr_DB = "C:" & "\Hum.DB"
Open Path_Chr_DB For Binary As #3 '以二进制方法打开文件"C:\Hum.DB"
Get #3, Posi_Me_C, ChrSXX '以二进制方法读一组记录。
Close #3 '读完后关闭已打开文件
Chr_R_F = ChrSXX '将读出的数据传给函数用以返回。
Chr_R_F.Chr_DEL = -1 '您可以随你的高兴对返回的结构中的任一单元进行改动。
End Function'程序中，下面的东东太容易了，我就不细注解了。
Private Sub Command1_Click()
Dim aa As Chr_RS
aa = Chr_R_F("0", "0")
Print Left(aa.CHRID, CInt(aa.CHRIDB))
Print Left(aa.CHR1, CInt(aa.CHR1B))
Print Left(aa.CHR2, CInt(aa.CHR2B))
Print aa.CHR_DEL
End Sub
_________________________________
以上是转贴，像这个Chr_RS结构是什么意思，我理解不了，还有如果可以的话谁帮我看下 然后写个这段代码的基本原理，或每句上加个注解。项目用，谢谢。

Answer 1

这段代码要实现什么功能？？
我也是学VB的，以我个人的理解，Chr_Rs结构应该和C语言中的结构类型一样吧。

Answer 2

有过VB编写经验的应该都知道Chr_RS是一个type类型的数据吧？
我想楼主的意思应该是说Chr_RS类型在这个程序中的作用与含义是什么对吧？
根据我的理解，应该是从一个二进制文件读取任意字节的数据吧？

Answer 3

Chr_RS是一种自定义数据类型（结构）。使用它就像使用long,float类型一样。
chr_rs这个结构可能就是打开的文件中存储数据的结构！

Answer 4

同上，不过程序中chr_rs这个结构应该说有点问题（在win32编程中）