用VB获得大容量硬盘信息(2)

　 End If
　 If .lowpart < 0 Then
　　 GetSize = GetSize (2 ^ 32 - 1 - .lowpart)
　 Else
　　 GetSize = GetSize .lowpart
　 End If
End With
End Function

Private Function GetSize(lngSize As LARGE_INTEGER) As Single

　注释：用来从LARGE_INTEGER型变量中换算出实际的大小
　 With lngSize
　　 If .highpart < 0 Then
　　　 GetSize = (2 ^ 32 - 1 - .highpart) * (2 ^ 32 - 1)
　　 Else
　　　 GetSize = .highpart * (2 ^ 32 - 1)
　　 End If
　　 If .lowpart < 0 Then
　　　 GetSize = GetSize (2 ^ 32 - 1 - .lowpart)
　　 Else
　　　 GetSize = GetSize .lowpart
　　 End If
　 End With
End Function

　　从LARGE_INTEGER的定义来看，应用此函数理论上可得到2^64/2^30=2^34G的分区的大小，不知这辈子能否用上这么大的硬盘．

上一篇： VB中拖动没有标题栏的窗体
下一篇： VB中让窗体始终处于最前面

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有