如题

解决方案 »

  1.   

    可不可以用函数取最后一位
    right("",1)
      

  2.   

    public Type MyType
       lngTest as long
       intTest as integer
    end typePrivate Sub Command1_Click()
     
        dim t as MyType    Dim var() As Byte
        
        t.intTest = 0
        t.lngTest = 10000
        
        ReDim var(0 To Len(t) - 1) As Byte  
        
        CopyMemory ByVal VarPtr(var(0)), ByVal VarPtr(t), Len(t)
        
       
        
    End Sub
      

  3.   

    to benyfeifei(狒狒) 
    不好意思,偶又来蹭分了
    http://community.csdn.net/Expert/topic/3195/3195637.xml?temp=.5307123
      

  4.   

    The CopyMemory function copies a block of memory from one location to another. VOID CopyMemory(
      PVOID Destination,  // pointer to address of copy destination
      CONST VOID *Source, // pointer to address of block to copy
      DWORD Length        // size, in bytes, of block to copy
    );
      

  5.   

    用位操作,对自定义数据每一位进行按位与,测试它是0还是1,然后每8位生生成一个byte。
      

  6.   

    jtkk() :请把你的代码贴出来看看,谢谢.
      

  7.   

    to bobbyxby(i386)
    哈哈,蹭分没关系,关键是大家互相学习