只要不大于unsigned long就有办法写入

将这个值先转换成long所对应的负数，然后写入就可以了。因为long和unsigned long在内存中是一样的，外在表现出来只是一个符号位的区别

没办法把无符号表现出来，是VB6的软肋

网上有个转换的代码  你自己搜下

[quote]只要不大于unsigned long就有办法写入

将这个值先转换成long所对应的负数，然后写入就可以了。因为long和unsigned long在内存中是一样的，外在表现出来只是一个符号位的区别

没办法把无符号表现出来，是VB6的软肋[/quote]


负数一般为补码形式储存吧，正数则就是原码，但不清楚VB是怎样存的。。。

&H86C71174 用十六进制表示就可以了。

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub Form_Load()
  Dim I As Long
  
  If DoubletoLong(2261193076#, I) Then Debug.Print "I=" & I & " Hex(I)=&H" & Hex(I)
End Sub

'将无符号整数(dblNumber)转成以带符号整数(返回值在LngNumber中，保持其在内存中的值是四字节无符号整数的值)
Private Function DoubletoLong(ByVal DblNumber As Double, ByRef LngNumber As Long) As Boolean
  Const MaxLong As Long = 2147483647
  Const MaxULong As Double = 4294967295#
  Const MinLong As Double = -2147483648#
  
  Dim HL As Long
  
  If DblNumber > MaxULong Then
    Exit Function
  ElseIf DblNumber > MaxLong Then
    HL = DblNumber / 65536#
    LngNumber = DblNumber - CDbl(HL) * 65536#
    CopyMemory ByVal VarPtr(LngNumber) + 2, ByVal VarPtr(HL), 2
  ElseIf DblNumber < MinLong Then
    Exit Function
  Else
    LngNumber = DblNumber
  End If
  DoubletoLong = True
End Function